Hallo zusammen,
mein Problem, ich möchte eine LWPolylinie mit 3 beliebigen Punkten (x,y und z) zeichnen.
Die Ausrichtung der Zeichenebene habe ich hinbekommen, aber die Linie läuft nicht
durch die vorgegebenen Punkte.
Im AutoCad Modell ist es ja kein Problem. Als Anlage habe ich eine die Testzeichnung
und den Code angehängt.
Ich hoffe jemand von euch kann mir weiterhelfen
Hier meine ersten Gehversuche
Code
--------------------------------------------------------------------------------
Sub setze_BKS()
Dim Points(0 To 5) As Double
Dim uscColl As AcadUCSs
Dim ucsObj As AcadUCS
Dim Ursprung(0 To 2) As Double
Dim xVektor(0 To 2) As Double
Dim yVektor(0 To 2) As Double
Set uscColl = ThisDrawing.UserCoordinateSystems
BKS_bez = "BKS_temp"
ThisDrawing.SendCommand "bks" & vbCr & "welt" & vbCr
' Bestimme das BKS
Ursprung(0) = 390: Ursprung(1) = 10: Ursprung(2) = 200
xVektor(0) = 390: xVektor(1) = 10: xVektor(2) = 220
yVektor(0) = 438.564: yVektor(1) = 97.416: yVektor(2) = 200
For i = 0 To uscColl.Count - 1
If uscColl(i).Name = BKS_bez Then
uscColl(i).Delete
Exit For
End If
Next i
Set ucsObj = uscColl.Add(Ursprung, xVektor, yVektor, BKS_bez)
ThisDrawing.SendCommand "bks" & vbCr & "EN" & vbCr & "HO" & vbCr & BKS_bez & vbCr
Points(0) = 0: Points(1) = 0
Points(2) = 20: Points(3) = 0
Points(4) = 20: Points(5) = 100
Set AcadPolyline = ThisDrawing.ModelSpace.AddLightWeightPolyline(Points)
End Sub
--------------------------------------------------------------------------------
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP