Hallo Hans-Peter
mit folgendem Programm wird gespeichert wie gewünscht.
Wenn es dass ist, was du meinst, könntest du in einem Werkzeugkasten ein Symbol mit dem Kommando einfügen und mit einem Klick ausführen.
(defun my_save ( / CMD Pfad Name)
(setq CMD (getvar "CMDDIA")
Pfad (getvar "DWGPREFIX")
Name (vl-filename-base (getvar "DWGNAME")))
(setvar "CMDDIA" 0)
; Speichern als DWG
(command "_SAVE" (strcat Pfad Name ".dwg"))
; als IGES
(command "_IGESOUT" (strcat Pfad Name ".igs") "") ; Options einstellen ?
(setvar "CMDDIA" CMD)
(alert (strcat "Gespeichert als \n \n" Pfad Name ".dwg\n" Pfad Name ".igs"))
(princ)
)
Schöne Grüße
Helmut
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP