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:
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?
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)
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