DXF export von einem SelectionSet (Autodesk/AutoCAD VBA)

Hallo,

ich versuche gerade die Objekte von einem SelectionSet als dxf zu exportieren.
Dazu fand ich heraus dass dies nur über einen LISP Befehl funktioniert.

Hierzu habe ich folgendes gefunden:

Code:

Set ssetObj = SSetColl.Add("ges")
ssetObj.SelectOnScreen
ThisDrawing.SendCommand "filedia 0 dxfout C:\Exportfile" & vbCr & "O Vorher "
ThisDrawing.SendCommand "filedia 1 "

Allerdings wird da als Objekt "Vorher" übergeben. Das bezieht sich wohl auf die letzte Selektion, welche in dem Zeichnungs-Fenster erstellt wurde.

Wenn ich den Code Oben also ausführe, wird immer die Auswahl von "SelectOnScreen" exportiert.

Ich ändere nun per Script den Inhalt von ssetObj und schon ist das Problem da. Wenn ich nun exportiere, wird alles aus der "SelectOnScreen" Auswahl exportiert. Aber nicht der Inhalt von ssetObj.
Beispiel: Ich selektiere 5 Elemente auf dem Bildschirm, und lösche die ersten 3 aus der Liste. Wenn ich nun exportiere, werden dennoch alle 5 Elemente exportiert.

Auch

Code:

ssetObj.Highlight True

bringt nichts

Die Lösung wäre ja, indem man nicht "Vorher" übergibt, sondern das SelectionSet.
Nur wie?

In Lisp würde man es so lösen:

Code:

(setq objekte (ssget))
(COMMAND ".dxfout" (getfiled "Verzeichniss" verz_komplett "dxf" 1) "V" "R12" "O" objekte "" "6")

In "objekte" sind die zu exportierenden Objekte.

Nur in VBA weiß ich nicht wie ich es von der Syntax her schreiben soll.
Das hier geht schon mal nicht:

Code:

ThisDrawing.SendCommand "filedia 0 dxfout C:\Exportfile" & vbCr & "O ssetObj "

Er schreibt dann:
Objekte wählen: ssetObj
*Ungültige Auswahl*

Weiß jemand wie ich die Objekte, welche ich exportieren möchte, übergeben muss?

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

FlaechenStempel_Tool CAD APP für Allgemeine Werkzeuge