[编程申请]：求一批处理文件

tuo rui si

我的文件常要备份,除了保存原始文件外,还需另存一带日期的文件.
例:1111-22-01.dwg
   &1111-22-01-040729.dwg
请哪位高手帮忙编一个小文件.
万分感谢!
软件为R14&天正3.0

阿土

好像比较难，应该不属这个范畴的吧

自由的鱼

又是需要LISP的，帮不上忙啊，还是找lsjjm长老

lsjjm

不好意思:
1.不知"天正"是什么.
2. 2000+还可以试试, R14爱莫能助.

tuo rui si

啊!我这两天一直再努力.
可是还没有结果.如果可以,希望大家帮帮忙吧!
cad2000的也行哪!
谢谢!

eachy

比较简陋，当另存的文件存在时可能出错。

2. 
   
3. (defun c:test ()
   
4.   (setvar "cmdecho" 0)
   
5.   (command ".qsave")
   
6.   (command ".saveas" "R14"
   
7.            (strcat (getvar "dwgprefix")
   
8.                    (getvar "dwgname")
   
9.                    "-"
   
10.                    (rtos (getvar "cdate") 2 0)
    
11.            )
    
12.   )
    
13.   (princ)
    
14. )

<br /> (defun c:test ()<br />   (setvar "cmdecho" 0)<br />   (command ".qsave")<br />   (command ".saveas" "R14"<br />            (strcat (getvar "dwgprefix")<br />                    (getvar "dwgname")<br />                    "-"<br />                    (rtos (getvar "cdate") 2 0)<br />            )<br />   )<br />   (princ)<br /> )

LUCAS

用copy不好嗎?
(command "shell" "copy c:\\123.txt c:\\123-123.txt")

tuo rui si

我马上去试试,谢谢!
对了,应该是批量改名吧?
就是所有选中的文件后面都加日期.