求一个cad的LISP程序

2025-01-06 09:11:25

推荐回答（2个）

回答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:")
)

回答2：

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