---

Hallo Forum,
ich hätte da mal ein Problem. Nach dem ich mich fast 3 Jahre vor diesem gedrückt habe brauche ich jetzt doch eine Lösung. Grundkenntnisse in VBA und VB6 vorhanden.
Routine die mir die Aktuelle Selection als .dxf in ein bestimmtes Verzeichniss ausgibt.
Zeichnungspfad z.B. C:\05_00815\dwg\05_12_12_jw_grundriss.dwg
dxf Pfad Datei 1 C:\05_00815\dxf\0001jw01.dxf
dxf Pfad Datei 2 C:\05_00815\dxf\0001jw02.dxf
Der name z.B. 0001jw01 ist ein einem textfeld vorhanden das zur Selection gehört.

Gruß Jesse

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

---

Hallo Jesse,

dann schreibe doch einen Wblock raus, oder lösche alle Elemente, die nicht zur Auswahl gehören und speichere die Zeichnung unter einem neuen Namen.

Wo ist denn dein Problem genau?

Grüße Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

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

---

Hallo,

ein Beispiel aus der Hilfe:

Code:

---

Sub Example_Export()
    ' This example exports the current drawing to DXF format.
    ' Note that a valid selection set must be provided, even
    ' though the contents of the selection set are ignored.
   
   
    ' Define the name for the exported file
    Dim exportFile As String
    exportFile = "C:\AutoCAD\DXFExprt"    ' Adjust path to match your system
   
    ' Create an empty selection set
    Dim sset As AcadSelectionSet
    Set sset = ThisDrawing.SelectionSets.Add("TEST")
   
    ' Export the current drawing to the file specified above.
    ThisDrawing.Export exportFile, "DXF", sset
   
End Sub

---

Wenn du dein Selectionset füllst,
- ist schon was gewählt? ( mit Pickfirst)
- wenn nicht dann Auswahl fordern (selectonscreen)
- Das Selectionset durchlaufen und deinen Text finden (für Dateinamen)
- Wenn gefunden export nach dxf
- sonst den Text noch wählen lassen

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.

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