Ich hab da eine Krücke - berücksichtigt nicht alle Möglichkeiten (bestehende Zeichnung), aber vielleicht kannst was damit anfangen.
;Die aktuelle Zeichnung wird gespeichert (Speichern unter) und dann gelöscht
(defun c:movdwg ()
(setq dwg (strcat (getvar "DWGPREFIX") (getvar "DWGNAME")))
(if (setq dwgneu (getfiled "Wohin verschieben und speichern" dwg "DWG" 1))
(progn
(command "_.SAVEAS" "" dwgneu)
(setq abbruch nil)
)
(setq abbruch T)
)
(setq dwg1 (strcat (getvar "DWGPREFIX") (getvar "DWGNAME")))
(if (/= dwg dwg1)
(progn
(command "del" dwg)
(princ (strcat "\nZeichnung wurde verschoben nach " dwg1 " !"))
)
(if (not abbruch)
(princ (strcat "\nZeichnung wurde unter altem Namen " dwg1 " verspeichert !"))
)
)
(command "_OPEN" (getfiled "Neue Zeichnung öffnen" "" "dwg" 8))
(princ)
)
;-------------------------------------------
In der ACAD.PGP mußt Du noch folgende Zeile einfügen:
DEL, DEL, 8,*Zu löschende Datei:,
Es funktioniert erst, nachdem die ACAD.PGP neu geladen wurde - Befehl NEUINIT.
------------------
Gruß, Ernst
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP