申请另存为的cad代码

cbwt8116 · 发表于 2019-5-13 10:31:01

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 cbwt8116 于 2019-5-13 10:33 编辑

申请另存为的cad代码：

在D盘back目录中另建文件名同名代码，如小学.dwg备份目录就是D:\back\小学
运行lisp程序另存为一份文件。文件名：yyyy-mmdd-hhmm小学.dwg
另存同时，当前运行的cad文件名保持不变，仍保持在原文件目录中。

申请删除备份的cad代码：
运行cad代码，则删除备份目录及备份目录中的文件。

谢谢！

王鹏_pBZlo · 发表于 2019-5-13 11:03:03

(defun c:tt()
(vl-file-copy (strcat (getvar "dwgprefix")(getvar "dwgname")) (strcat "d:\\back\\" (rtos (getvar "cdate") 2 4) "_" (getvar "dwgname")))
)

cbwt8116 · 发表于 2019-5-13 14:12:25

王鹏_pBZlo 发表于 2019-5-13 11:03
(defun c:tt()
(vl-file-copy (strcat (getvar "dwgprefix")(getvar "dwgname")) (strcat "d:\\back\\" (r ...

非常感谢。但是没有新建文件名同名的文件夹。

王鹏_pBZlo · 发表于 2019-5-13 15:05:42

本帖最后由王鹏_pBZlo 于 2019-5-13 21:24 编辑

见下一楼

王鹏_pBZlo · 发表于 2019-5-13 15:18:48

(defun c:tt( / dwgname path) ;创建备份
(setq dwgname (getvar "dwgname"))
(setq path (substr dwgname 1 (- (strlen dwgname) 4)))
(setq path (strcat "d:\\back\\" path))
(if (not (findfile path)) (vl-mkdir path))
(vl-file-copy (strcat (getvar "dwgprefix")(getvar "dwgname")) (strcat path "\\" (rtos (getvar "cdate") 2 4) "_" (getvar "dwgname")))
)

(defun c:tt1( / dwgname path) ;删除备份
(setq dwgname (getvar "dwgname"))
(setq path (substr dwgname 1 (- (strlen dwgname) 4)))
(command "shell" (strcat "rd d:\\back\\\"" path "\"/S/Q"))
)

账号		自动登录	找回密码
密码			立即注册

[编程申请] 申请另存为的cad代码

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

评分