CAD二次开发求LISP高手写个程序

显示全部楼层 · 2011-12-3 12:56:10

改为如下即可：(defun c:sdd ( dwg ) (setq dwg (getfiled "路径+文件名" "" "Dwg" 1)) (if (wcmatch dwg"* ####-##-## ##:##.dwg")
(setq dwg (substr dwg 1 (vl-string-search " " dwg)))
(setq dwg (substr dwg 1 (- (strlen dwg)4))) ) (setq dwg (strcat dwg " " (menucmd "M=$(edtime,$(getvar,date),YYYY-MO-DD HH:MM)")...

千问 · 2011-12-3 12:56:10

这个命名不错，有空我写一个，我准备写成这XXX-20111202-2015，XXX取打开的图档名，定下格式，才好判定是新建的文件还是已命名的文件。...