---

Hallo erstmal,
wir haben folgendes Problem:
ich möchte ohne viel zu klicken eine dxf-datei im ACAD 12 Format erstellen und die Objekte wählen aus der Zeichnug.

Bisheriger Ablauf:
Datei speichern unter
ACAD 12 Dxf wählen
Optionen anklicken und "Objekte wählen" anklicken
Objekte wählen
Datei-Namen eingeben

gewünschter Ablauf:
Button anwählen
Datei-Namen eingeben
Seichern als DXF ACAD12 und dann die gewünschten Objekte aus Zeichnug wählen

Hab es schon als Makro probiert, aber es scheitern daran, dass kein Fenster erscheint, in dem ich den Datei-Namen eingeben kann, unter dem die Datei gespeichert wird.(es wird immer der aktuelle Datei-namen verwendet, z.b Aktuelle Dwg.Dwg - aktuell Dwg.DXF)
Kann dieses Problem mittels Makro, VBA oder Lisp lösen.
Bin für jede antwort dankbar.
Vielen Dank im Vorraus
Michael

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

---

Hai

Hier Lisp
(defun c:saR12dxf ( / )
  (setq nam (getfiled "Was fürn Name?" "" "dxf" 1))
  (if (= nam nil)
    (setq name (strcat (getvar "dwgprefix")(substr (getvar "dwgname") 1 (- (strlen (getvar "dwgname")) 3))"dxf"))
    )
  (setq as (ssget))
  (if as
    (command "dxfout" nam "V" "r12" "O" as"" "")
    )
  )

Hier Button für R15(2000)
^C^C(initdia);_.dxfout;

------------------
Gruß
CADwiesel

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

---

Hallo Cadwiesel,

erstmal vielen Dank für die schnelle Antwort.
Ich werde morgen die Lispelei probieren und mich melden, ob sie erfolgreich war.
Nochmals Danke und Ciao

Michael

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