Hi,
Da es bei 3-D-Modellen immer mal wieder zu Schwierigkeiten (oder Abstürzen) kommen kann habe ich mir ein kleines Programm geschrieben, das schnell eine Zeichnung unter neuen, Datum-bezogenen Namen abspeichert. Dann kann ich auf eine ältere Version zurückgreifen.
Vielleicht kann es jemand brauchen.
(defun c:spals ()
;;;Die geöffnete Datei hat den Namen: "zchngname-24-1207.dwg"
(setq oname1 (getvar "dwgname"))
(setq oname0 (getvar "DWGPREFIX"))
(setq oname (strcat oname0 oname1))
(if (= oname "" ) (command "sichals" "2000")
(progn
(setq lname (strlen oname))
(setq oname (substr oname 1 (- lname 11)))
(setq cd(rtos(getvar"cdate")2 6))
(setq cd (strcat
oname
(substr cd 7 2)
"-"
(substr cd 10 4)
".dwg"
))
(print cd)
;;;Am 24. wird um 12:30 unter "zchngname-24-1230.dwg abgespeichert
(command "sichals" "2000" cd)
))
)
------------------
Konstruktive Grüße
sigy
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP