文件重命名

nyistjz

来个更简单的，直接添加时间后缀！
这个命令最好能加在工具条的一个按钮上，用的时候就点一下，十分方便。

(defun c:rename2(/ *acad* *doc* *docs* av:gettime ext file1 id n name1 name2 path pre suf)
        (setvar "CMDECHO" 0)
        (setq *ACAD* (vlax-get-acad-object ))
        (setq *DOC* (vla-get-ActiveDocument *ACAD* ))
        (setq *docs* (vla-get-Documents *ACAD*))
        (defun av:gettime (format)(menucmd (strcat "M=$(edtime,$(getvar,date)," format ")")))
        (setq file1 (vla-get-FullName *doc*))
        (cond
                ((wcmatch "" file1)
                        (vla-SendCommand *doc* "qsave ")
                )
                (t
                        (setq path (vl-filename-directory file1))
                        (setq name1 (vl-filename-base file1))
                        (setq ext (vl-filename-extension file1))
                        (setq id " - ");前后分割符
                        (setq n (vl-string-search id name1))
                        (setq pre (if n (substr name1 1 n) name1))
                        (setq suf (strcat id (av:gettime "YYMODDHHMMSS")))
                        (setq name2 (strcat path "\\" pre suf ".dwg"))
                )
        )
        (cond
                ((null name2))
                ((findfile name2))
                (name2
                        (vla-SaveAs *doc* name2 ac2004_DWG)
                        (command-s "qsave")
                       (vl-file-delete file1)
                )
                (t nil)
        )
        (setvar "CMDECHO" 1)
        (princ)
)


(c:rename2)

czww26

nyistjz 发表于 2022-9-23 22:22
来个更简单的，直接添加时间后缀！
这个命令最好能加在工具条的一个按钮上，用的时候就点一下，十分方便。 ...

感谢楼主，非常实用，顶起

zhangcan0515

楼主这个程序很实用啊，不用在安装其他插件了，这个源码学习的地方也有很多，平时对这一类功能研究的很少，再次谢谢楼主。

nyistjz

一楼和二楼，是两种不同的重命名办法，各有利弊。

一楼灵活，二楼快捷！

paulpipi

感谢分享，非常实用

自贡黄明儒

一句可成

1. (startapp "cmd.exe /C rename D:\\0000\\1.txt 3.doc")

(startapp "cmd.exe /C rename D:\\0000\\1.txt 3.doc")

hzyhzjjzh

感谢分享，

nyistjz

自贡黄明儒 发表于 2022-9-24 13:13
一句可成

简洁！

czb203

感谢分享，非常实用