以系统时间存CAD图

lonshinyoo

是否有LISP实现以系统时间存当前CAD图，新图是以系统时间格式YYYY-MM-DD(HH-MM-SS) 年-月-日（时-分-秒），存储路径是该图一开始的存储路径
                                          

ruirui999

呵呵 。我就有一套这样的小程序。

lonshinyoo

ruirui999 发表于 2011-9-8 10:51
呵呵 。我就有一套这样的小程序。

兄弟，能否共享一下

xshrimp

2. ;;保存时按时间更改名字保存
   
3. (defun c:sss ( / date dwgtitled hz newname oldname path);!!!时间名保存
   
4.   (setq DWGTITLED (getvar "DWGTITLED")) ;指出当前图形是否已命名
   
5.   (if (= DWGTITLED 0)
   
6.     (ALERT "请先保存文件!")
   
7.     (progn
   
8.             ;"F:\\Tu\\水木年华花园-别墅\\合并01[2007-07-05].dwg"
   
9.       (setq path (getvar "DWGPREFIX") ;"F:\\Tu\\水木年华花园-别墅\"            
   
10.             oldname (vl-filename-base (getvar "DWGNAME"));"合并01[2007-07-05]"
    
11.             ;"合并01[2007-07-05].dwg"
    
12.             )      
    
13.           (setq date (menucmd "M=$(edtime,$(getvar,date),YY-MO-DD)"));"07-07-05"
    
14.           (vl-mkdir (strcat path "bak"))
    
15.          
    
16.          (if (wcmatch oldname "*`[##-##-##`]#")
    
17.          
    
18.          (if (wcmatch oldname (strcat "*`[" date "`]#") );判断是不是当前日期.
    
19.            (progn
    
20.               (setq hz (substr oldname (strlen oldname) 1));后缀
    
21.               (if (/= "9" hz)
    
22.               (progn
    
23.               (setq newname (vl-string-right-trim hz oldname))
    
24.               (setq hz (itoa (+ (atoi hz) 1)));后缀增1
    
25.               (setq newname (strcat newname hz))              
    
26.               (command "_.saveas" "" (strcat path newname ))
    
27.               (vl-file-copy   (strcat path oldname ".dwg") (strcat path "bak\" oldname ".dwg") nil)
    
28.               (vl-file-delete (strcat path oldname ".dwg"))
    
29.               (vl-file-delete (strcat path oldname ".dwl"))
    
30.               (vl-file-delete (strcat path newname ".dwl"))
    
31.              );end progn
    
32.              (command "_.qsave")
    
33.              )
    
34.            )
    
35.            (progn
    
36.              (setq newname (substr oldname 1 (- (strlen oldname) 11)));前缀
    
37.              ;(setq newname (strcat path newname "[" date "]1" ))
    
38.              (command "_.saveas" "" (strcat path newname "[" date "]1" ))
    
39.              (vl-file-delete (strcat path newname "[" date "]1" ".dwl"))
    
40.              (vl-file-delete (strcat path oldname ".dwl"))           
    
41.              (vl-file-copy   (strcat path oldname ".dwg") (strcat path "bak\" oldname ".dwg") nil)
    
42.              (vl-file-delete (strcat path oldname ".dwg"))
    
43.             )
    
44.            );end if
    
45.             (progn
    
46.              (command "_.saveas" "" (strcat path oldname "[" date "]1" ))
    
47.              (vl-file-delete (strcat path oldname "[" date "]1" ".dwl"))
    
48.              (vl-file-delete (strcat path oldname ".dwg"))
    
49.              (vl-file-delete (strcat path oldname ".dwl"))
    
50.             )
    
51.            )
    
52.   
    
53.       )
    
54.     )
    
55.   (princ)
    
56.   )

;;保存时按时间更改名字保存<br /> (defun c:sss ( / date dwgtitled hz newname oldname path);!!!时间名保存<br />   (setq DWGTITLED (getvar "DWGTITLED")) ;指出当前图形是否已命名<br />   (if (= DWGTITLED 0)<br />     (ALERT "请先保存文件!")<br />     (progn<br />             ;"F:\\Tu\\水木年华花园-别墅\\合并01[2007-07-05].dwg"<br />       (setq path (getvar "DWGPREFIX") ;"F:\\Tu\\水木年华花园-别墅\"            <br />             oldname (vl-filename-base (getvar "DWGNAME"));"合并01[2007-07-05]"<br />             ;"合并01[2007-07-05].dwg"<br />             )       <br />           (setq date (menucmd "M=$(edtime,$(getvar,date),YY-MO-DD)"));"07-07-05"<br />           (vl-mkdir (strcat path "bak")) <br />          <br />          (if (wcmatch oldname "*`[##-##-##`]#")<br />          <br />          (if (wcmatch oldname (strcat "*`[" date "`]#") );判断是不是当前日期.<br />            (progn<br />               (setq hz (substr oldname (strlen oldname) 1));后缀 <br />               (if (/= "9" hz)<br />               (progn<br />               (setq newname (vl-string-right-trim hz oldname))<br />               (setq hz (itoa (+ (atoi hz) 1)));后缀增1<br />               (setq newname (strcat newname hz))              <br />               (command "_.saveas" "" (strcat path newname ))<br />               (vl-file-copy   (strcat path oldname ".dwg") (strcat path "bak\" oldname ".dwg") nil)<br />               (vl-file-delete (strcat path oldname ".dwg"))<br />               (vl-file-delete (strcat path oldname ".dwl"))<br />               (vl-file-delete (strcat path newname ".dwl"))<br />              );end progn<br />              (command "_.qsave")<br />              )<br />            )<br />            (progn<br />              (setq newname (substr oldname 1 (- (strlen oldname) 11)));前缀 <br />              ;(setq newname (strcat path newname "[" date "]1" ))<br />              (command "_.saveas" "" (strcat path newname "[" date "]1" ))<br />              (vl-file-delete (strcat path newname "[" date "]1" ".dwl"))<br />              (vl-file-delete (strcat path oldname ".dwl"))           <br />              (vl-file-copy   (strcat path oldname ".dwg") (strcat path "bak\" oldname ".dwg") nil)<br />              (vl-file-delete (strcat path oldname ".dwg"))<br />             )<br />            );end if <br />             (progn<br />              (command "_.saveas" "" (strcat path oldname "[" date "]1" ))<br />              (vl-file-delete (strcat path oldname "[" date "]1" ".dwl"))<br />              (vl-file-delete (strcat path oldname ".dwg")) <br />              (vl-file-delete (strcat path oldname ".dwl"))<br />             )<br />            )<br />   <br />       )<br />     )<br />   (princ)<br />   )

hhh454

好程序，顶一个。

kwok

不错的，支持.

xshrimp

2. 
   
3. ;;保存时按时间更改名字保存
   
4. (defun c:sss ( / date dwgtitled newname oldname path)
   
5.   (if (= (getvar "DWGTITLED") 0)
   
6.     (ALERT "请先保存文件!")
   
7.     (progn
   
8.       (setq path (getvar "DWGPREFIX")
   
9.             oldname (vl-filename-base (getvar "DWGNAME"))
   
10.       )
    
11.       (setq date (menucmd "M=$(edtime,$(getvar,date),[YYYY-MO-DD]-[HH-MM-SS])"))
    
12.       (setq newname (strcat path oldname date))
    
13.       (command "_.save" newname)
    
14.     )
    
15.   )
    
16.   (princ)
    
17. )

<br /> ;;保存时按时间更改名字保存<br /> (defun c:sss ( / date dwgtitled newname oldname path)<br />   (if (= (getvar "DWGTITLED") 0)<br />     (ALERT "请先保存文件!")<br />     (progn<br />       (setq path (getvar "DWGPREFIX")<br />             oldname (vl-filename-base (getvar "DWGNAME"))<br />       )<br />       (setq date (menucmd "M=$(edtime,$(getvar,date),[YYYY-MO-DD]-[HH-MM-SS])")) <br />       (setq newname (strcat path oldname date))<br />       (command "_.save" newname)<br />     )<br />   )<br />   (princ)<br /> )

yoyoho

感谢 xshrimp 楼主分享程序,不错喔!

AMTONNY

七楼太强了,顶

诸葛四郎

请教一下，这个函数怎么改成

数字在前面变更，日期在后面呢：

比如：

CGD010005-K1AD0AY1(131115)
后面的1变化，日期跟着系统时间变动