nyistjz 发表于 2022-9-23 11:26:26

类似于DUOTAB的文件重命名！
已有 21 人购买  本主题需向作者支付 1 个明经币 才能浏览 购买主题

nyistjz 发表于 2022-9-23 22:22:37

本帖最后由 nyistjz 于 2022-9-24 09:00 编辑

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

(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 发表于 2022-9-24 09:54:05

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

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

zhangcan0515 发表于 2022-9-23 22:57:31

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

nyistjz 发表于 2022-9-23 23:28:07

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

一楼灵活，二楼快捷！

paulpipi 发表于 2022-9-24 08:57:06

感谢分享，非常实用

自贡黄明儒 发表于 2022-9-24 13:13:01

一句可成

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

hzyhzjjzh 发表于 2022-9-24 13:57:28

感谢分享，{:1_1:}

nyistjz 发表于 2022-9-24 17:31:42

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

简洁！

czb203 发表于 2022-9-24 20:01:59


感谢分享，非常实用
页: [1] 2
查看完整版本: 文件重命名