CADsite forum

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. 

Groeten,
BV

ff (Opgelost) erbij zetten in onderwep