---

Hallo!

Ich habe ein VBA-Programm von einer Kollegin übernommen. Bei ihr funktioniert es prima, bei mir bleibt das Programm immer stehen, bevor der Punkt P_END in der Funktion COMMAND_LINE geschrieben wird. Habt ihr eine Idee, woran das liegen könnte? Ich benutze Autocad 2007.

Function COMMAND_LINE(P_START As Variant, P_END As Variant)
    ThisDrawing.SendCommand "(command " & Chr(34) & "_line" & Chr(34)& ")" & vbCr
    ThisDrawing.SendCommand P_START(0) & "," & P_START(1) & "," & P_START(2) & vbCr
    ThisDrawing.SendCommand P_END(0) & "," & P_END(1) & "," & P_END(2) & vbCr & vbCr
    ThisDrawing.SendCommand Chr(27)
End Function

Vielen Dank für eure Tipps!

Insa

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

das ist ja wohl etas durch Auge ins Knie geschosssen
Du rufst aus VBA per SendCommand einen Lispausdruck auf, der wiederum per Command einen Autocad Befehl startet

Einfacher gehts wohl so

Function COMMAND_LINE(P_START, P_END As Variant) as AcadLine
    Set COMMAND_LINE = ThisDrawing.ModelSpace.AddLine(P_START, P_END)
End Function

Und zum Testen

    Dim p1(2) As Double
    Dim p2(2) As Double
   
    p1(0) = 0
    p1(1) = 0
    p1(2) = 0

    p2(0) = 10
    p2(1) = 10
    p2(2) = 0

    Call COMMAND_LINE(p1, p2)
   

------------------
   
Ing. Anton Fuchs
WWW.FFZELL.AT.TC

[Diese Nachricht wurde von fuchsi am 08. Okt. 2007 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

und wenns wirklich mittels Sendcommand passieren soll, aus welchen grunde auch immer,
dann wenigstens ohne LISP

Function COMMAND_LINE(P_START, P_END As Variant) As AcadLine
    ThisDrawing.SendCommand "._line" & vbCr & P_START(0) & "," & P_START(1) & "," & P_START(2) & vbCr & P_END(0) & "," & P_END(1) & "," & P_END(2) & vbCr & vbCr
End Function

------------------

Ing. Anton Fuchs
WWW.FFZELL.AT.TC

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Vielen Dank, fuchsi!
Funktioniert beides ohne Probleme.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP