---

Hallo!
Ich bin gerade dabei ein VBA-Modul zu schreiben welches mir nach Klick in einer Fläche die Eck-Koordinaten der gewählten Fläche zurückgibt.
Die Fläche erhalte ich mittels Befehl „-UMGRENZUNG“ und der daraus resultierenden Polylinie.
In VBA führe ich den Befehl mittels der Methode „SendCommand“ aus.
Soweit – so gut. Ich möchte nun aber dem Befehl „UMGRENZUNG“ Umgrenzungslinien zuweisen (zum Beispiel ein bestimmter Layer) aus denen ich dann den Umriss erstelle, ohne das mir sonstwelche Elemente in der Zeichnung im Weg stehen oder mir falsche Umrisse liefern.
Befehlszeile in ACAD:
BEfehl: -UMGRENZUNG
        o (für Optionen)
        u (für Umgrenzungslinien)
        <hier Elemente wählen>
        Internen Punkt wählen  ... und fertig.

Gibt es eine Methode den Befehl Umgrenzung innerhalb VBA auszuführen ohne ihn als Texteingabe an Autocad zu überweisen? Wäre einfacher um dem Befehl einen Auswahlsatz zuzuweisen.
Oder wie kann ich bei der Methode mit „SendCommand“ über VBA AutoCAD einen Auswahlsatz zuweisen?

Kennt vielleicht jemand eine Lösung?
Grüsse,
MetZip

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

---

Ansonsten dann eine Pline erstellen und die Koordinaten durchschleifen:

Code:

---

Sub Test()
Dim lineObj As Object
Dim LinePickPnt As Variant
Dim i As Integer
Dim xCoord As Variant
Dim yCoord As Variant
Dim coords As Variant
ThisDrawing.Utility.GetEntity lineObj, LinePickPnt, "Polylinie auswählen: "
MsgBox "Eine " & lineObj.EntityName & " ausgewählt."
i = 0
coords = lineObj.Coordinates
For i = 0 To UBound(coords) - 1 Step 2
xCoord = coords(i)
yCoord = coords(i + 1)
MsgBox "X: " & xCoord & " Y: " & yCoord
Next i
End Sub

---

http://ww3.cad.de/foren/ubb/Forum259/HTML/000499.shtml#000005

Leider ohne Sendcommand und grösseren Aufwand nicht möglich.

Manchmal Gates, manchmal Gates nicht 

------------------
MfG Proxy

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

---

... wäre noch anzumerken:
meistens Gates nicht, oder es Gate anders als man denkt  ;-)

lg Nancy

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

---

Danke Proxy,
das mit der Polylinie wählen und deren Koordinaten auslesen ist mir klar. Ich wollte mir einfach die Arbeit ersparen, zuerst eine Polylinie zu erstellen. Werde die Lösung nehmen, bei welcher ich vorher nicht benötigte Layer friere, meine Umgrenzung mache und anschliessend wieder die Layer zurück Setze.
Trotzdem Danke für den Tip

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