[编程申请]：保存文件为今天时间

yinzhun22

文件保存时，文件名加上电脑系统时间，
如【2008-02-21】****.dwg，
如果是下次打开次文件，结束保存时，能自动修改文件的时间。
如【2008-02-05】****.dwg

xshrimp

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

它山之石

这也有一个
提供了带注释的源码
有兴趣的可以看看
好象原来程序的框架也是源于xshrimp

http://www.tstmr.com/tmr/dispbbs ... ;ID=1074&page=5

szx025

错误: 输入中的点位置不正确

dhxf

改一下路径就行了

szx025

改生么路径？

and2008

依然是“错误: 输入中的点位置不正确”
不晓得是咋个回事，敢问5楼的具体镇江？

xshrimp

修改了.这个是论坛php代码的bug!

surenwang

2楼的怎么显示“未知命令”

我们——

2楼的怎么显示“未知................”