Beste,
In een verkregen tekening heb ik enkel 3D_lijnen maar geen 3D_punten.
Bestaat er een mogelijkheid om rap 3D_punten te verkrijgen uit deze lijnen?
Met Vriendelijke Groeten,
Bruno
Hoe bedoel je geen 3d punten?
Wil je "Points" in je tekening?
Inderdaad.
Op alle knikpunten van de 3d_lijnen had ik graag een 3d_point verkregen.
Is dit via een of andere manier mogelijk?
Groeten
Als je een beetje vba wilt toepassen dan heb je hier wel wat aan:
Sub Poly3DToPoints()
Dim Ent As AcadEntity, C, T&, V(0 To 2) As Double, PP
Dim pointObj As AcadPoint
ThisDrawing.Utility.GetEntity Ent, PP, "Selecteer 3Dpolylijn: "
C = Ent.Coordinates
For T = 0 To (UBound(C)) Step 3
V(0) = C(T)
V(1) = C(T + 1)
V(2) = C(T + 2)
Set pointObj = ThisDrawing.ModelSpace.AddPoint(V)
Update
Next
End Sub
Beste EddyBeerke,
Hartelijk dank.
Met deze routine is mijn probleem afdoende opgelost. :vreegoe:
Groeten,
BV
ff (Opgelost) erbij zetten in onderwep