<FONT face=宋体 size=2>批处理修改指定目录下的dwg文件名:<BR>(defun c:test ()<BR>(setq dir (getstring "Input Directory: "))<BR>(setq ff (vl-directory-files dir "*.dwg" 1))<BR>(foreach i ff<BR>(if (= (substr i 1 5) "enzed")<BR>(vl-file-rename i (vl-string-subst "parker" "enzed" i))<BR>)<BR>)<BR>)</FONT>
<FONT face=宋体 size=2>把:c:test 文件放到CAD的支持路径下<BR>(load "test.lsp")<BR>然后命令行键入“test".<BR>还可以将其自动加载, 参考有关帖子</FONT>
|