[求助]：请问

fyje

这是acadR12下的一句话，哪位高手能指教：
((command"files" "3" (strcat dwgn ".dwg") "" "5" sav (strcat "s:\\" sav) "" "")

其中：dwgn是旧文件的文件名，sav是另存为的新文件名，二者可以相同，可以不同，如果改到R14和2000下应该怎样改？
谢谢

Qlin

说说看，你想要达到什么样的操作效果？
现在周围都找不到R12版了，没法验证你给出的这行代码。
而且其中strcat的用法很奇怪。

fyje

我希望它能够达到，使用a2.dwg替换a1.dwg，就是说，将a1.dwg另存为a2.dwg，然后将a1.dwg删除，谢谢

Qlin

最初由 fyje 发布
[B]我希望它能够达到，使用a2.dwg替换a1.dwg，就是说，将a1.dwg另存为a2.dwg，然后将a1.dwg删除，谢谢 [/B]

就是说，你想把a1.dwg改名为a2.dwg而不管a2.dwg是否存在？
可以使用以下函数：

2. 
   
3. (defun file_rep (f_a f_b / f1 f2 id1)
   
4.   (if (and f_a f_b)(progn
   
5.     (if (setq f1 (findfile f_a))
   
6.       (progn
   
7.         (if (setq f2 (findfile f_b))(vl-file-delete f2))
   
8.         (if (vl-file-rename f1 f_b)(setq id1 T))
   
9.       );end
   
10.       (alert "找不到要替换的文件!")
    
11.     );if
    
12.   ));if
    
13.   id1
    
14. );end
    

<br /> (defun file_rep (f_a f_b / f1 f2 id1)<br />   (if (and f_a f_b)(progn<br />     (if (setq f1 (findfile f_a))<br />       (progn<br />         (if (setq f2 (findfile f_b))(vl-file-delete f2))<br />         (if (vl-file-rename f1 f_b)(setq id1 T))<br />       );end<br />       (alert "找不到要替换的文件!")<br />     );if<br />   ));if<br />   id1<br /> );end<br />

(file_rep "a1.dwg" "a2.dwg")
成功的话返回T，否则返回nil

fyje

谢谢斑竹

最初由 Qlin 发布
[B]说说看，你想要达到什么样的操作效果？
现在周围都找不到R12版了，没法验证你给出的这行代码。
而且其中strcat的用法很奇怪。 [/B]

噢，我搞错了，这句话是这样的：
(command"files" "3" (strcat dwgn ".dwg") "" "5" sav (strcat "s:\\" sav) "" "")

其中：dwgn是旧文件的文件名，sav是另存为的新文件名，二者可以相同，可以不同，我想知道这句话的意思，谢谢斑竹

前生

呵呵，r12以前的一个命令吧，记得在command:输入files回车后，一个对话框，6个选项什么的
2000以后不知道还有没有了

Qlin

AutoCAD 9-12 Dos版有个字符界面的菜单，files是进入
这个界面的命令吧（记不清了），后面的数字对应的
是其中的菜单序号。一般是用script文件调用这个序列的。
直接用command调用以前没试过，现在也没法试了。

fyje

是啊，比较古老的程序了，可惜我没办法，必须把他升级完成，真是苦闷，偏偏我Lisp又不熟，多亏大家了，谢谢

哦，我明白了，表示重命名的意思，谢谢大家