Coordinaat optellen met waarde voor nieuwe coordinaat.

[hcwarbout]

Ik ben bezig met het maken van een programma voor het invoegen van blokken.

Na het plaatsen van het eerste blok wil ik op een vaste afstand een tweede blok  plaatsen enz.
Voor het plaatsen van het eerste blok gebruik ik de volgende code:

Code Selecteer Uitklappen


Naam = "K:\20\MSM.dwg"

Me.Hide

Dim inspnt As Variant
inspnt = ThisDrawing.Utility.GetPoint(, vbCr & "Geef plaats: ")

Dim BR As AcadBlockReference
Set BR = ThisDrawing.ModelSpace.InsertBlock(inspnt, Naam, 1, 1, 1, 0)


Kan iemand mij helpen?

[EddyBeerke]

Ik zie dat je een formulier gebruikt.
Je zou hier in een invulveld kunnen zetten voor de afstand, eventueel met een knop voor de afstand (getdist).
Dan is het een rekensom: coord1(0) + afstand(0)
coord1(1) + afstand(1)

[sschevers]

Kijk eens naar de volgende functie

Thisdrawing.Utility.PolarPoint (punt, hoek, afstand)

Je geeft het insertionpoint van je block mee en de afstand en de hoek (radialen). Je krijgt een nieuw punt terug die je kunt gebruiken voor je volgende block

stephan