---

Servus Zusammen,

ich möchte ein mit vba gezeichnetes Polygon ebenfalls mit vba extrudieren. hierfür habe ich folgenden code geschrieben:

Sub Sockel_mit_Auflager(Anfangspunkt, UK_Wand, Wandhoehe, Wandlaenge, Wanddicke, h_Auflager_links, b_Auflager_links, h_Auflager_rechts, b_Auflager_rechts)
       
        Dim plineObj As AcadLWPolyline
        Dim points(0 To 17) As Double
        'Punkt 1
        points(0) = Anfangspunkt: points(1) = UK_Wand + Wandhoehe
        'Punkt 2
        points(2) = Anfangspunkt + Wandlaenge: points(3) = UK_Wand + Wandhoehe
        'Punkt 3
        points(4) = Anfangspunkt + Wandlaenge: points(5) = UK_Wand + h_Auflager_rechts
        'Punkt 4
        points(6) = Anfangspunkt + Wandlaenge - b_Auflager_rechts: points(7) = UK_Wand + h_Auflager_rechts
        'Punkt 5
        points(8) = Anfangspunkt + Wandlaenge - b_Auflager_rechts: points(9) = UK_Wand
        'Punkt 6
        points(10) = Anfangspunkt + b_Auflager_links: points(11) = UK_Wand
        'Punkt 7
        points(12) = Anfangspunkt + b_Auflager_links: points(13) = UK_Wand + h_Auflager_links
        'Punkt 8
        points(14) = Anfangspunkt: points(15) = UK_Wand + h_Auflager_links
        'Punkt 9
        points(16) = points(0): points(17) = points(1)
       
        Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
       
        Dim Teil As String
        Teil = plineObj.handle
        ThisDrawing.SendCommand "_extrude" & vbCr & Teil & vbCr & Replace(CStr(Wanddicke), ",", ".") & vbCr
       
End Sub

Allerdings funktioniert die SendCommand-Funktion nicht. Das auswählen der gerade erstellten Polygons funktioniert einfach nicht. AutoCad sagt, das es eine ungültige Auswahl ist. Habs auch schon mit "v" probiert, geht auch nicht....Wie kann ich denn nun das Polygon auswählen?

------------------
Grüßle
Gregi

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

---

Hallo Gregi,

schau mal hier.
Da gibt es ein Beispiel wie du eine Selection machen kannst und die mit Sendcommand auswertest.

Wilfried Stelberg

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

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

---

Zitat:

---

Original erstellt von Gregi:
ThisDrawing.SendCommand "_extrude" & vbCr & Teil & vbCr & Replace(CStr(Wanddicke), ",", ".") & vbCr
[/i]

---

In der Variable teil ist ja die referenznummer der Polylinie gespeichert. Die akzeptiert Autocad aber nicht bei einer Objektwahl

Da das aber eh das zukletzt erstellte teil ist, sollte das so funktionieren
ThisDrawing.SendCommand "_extrude" & vbCr & "_last" & vbCr &

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

Ing. Anton Fuchs
WWW.FFZELL.AT.TC

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