Question

求一个cad的LISP程序

我在使用cad的过程中每一天都要保存一个版本，很麻烦，能不能写一个LISP，自动能另存为今天的版本。比如我有一张图叫“菜鸟图”，使用命令后能在当前文件目录下另存为“菜鸟图201X.XX.XX（今天的日期）”的文件。

Answer 1

我可以帮你编制，做到这个功能。请你先给这个命令起个名称。如果你愿意，我可以帮你起这个名字，就叫ct 吧（存图的意思）。源代码如下，图形直接存到D:盘根目录下。
(defun c:ct (/ dat file)
(setq dat (rtos (fix (getvar "cdate"))))
(setq file (strcat "d:" (substr (getvar "dwgname") 1 (- (strlen (getvar "dwgname")) 4)) dat))
(command "saveas" "" file "y")
(princ "当前的DWG文件存储目录为：d:")
)

Answer 2

不要什么LISP程序，工具-选项-打开保存-文件保存 另存为 选择你要的版本，确定 退出，以后就保存你选择的版本了。