---

TEST_BKS.dwg

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