---

Hallo zusammen ...

Habe ein Problem ... probiere zum erstenmal ein Makro für AutoCad zu programmieren ... kann mir jemand helfen und einen Tip geben wie ich über eine Eingabe der Koordinaten (Form+TextBox) eine Linie zeichnen kann ?

Bekomme das irgendwie nicht hin mit

ThisDrawing.Modelspace.Acadline(Startpunkt,Endpunkt) .... es ist auch alles Eingeschalten in Verweise !?

   

Danke schonmal im voraus

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

---

Steffen21.dvb.txt

Hi Steffen,

Hier mal ein kleines Beispiel. EInfach das .txt entfernen un über Appload laden. Ausführen kannst du das Makro mit -vbarun und test1.

Gruß, Carsten

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

---

Hallo Steffen,

willkommen im Forum.

Probier mal object.AddLine(StartPoint, EndPoint)

Hier das Beispiel aus der Hilfe:

Sub Example_AddLine()
    ' This example adds a line in model space
   
    Dim lineObj As AcadLine
    Dim startPoint(0 To 2) As Double
    Dim endPoint(0 To 2) As Double
   
    ' Define the start and end points for the line
    startPoint(0) = 1#: startPoint(1) = 1#: startPoint(2) = 0#
    endPoint(0) = 5#: endPoint(1) = 5#: endPoint(2) = 0#
   
    ' Create the line in model space
    Set lineObj = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint)
    ZoomAll
   
End Sub

Gruß, Huebi

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

---

Danke euch beiden ... für die schnelle Antwort ... funktioniert gut werde das jetzt mal in mein restliches Makro einbauen !         

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

---

Ich wünsche gutes Gelingen 

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

---

Danke euch beiden .... funktioniert super ... werde es mal in mein restliches Makro einbauen mal sehen ob es dann funktioniert ....       

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