寻找批量处理的程序

Andyhon

延用 Gu_xl
(foreach dwgname files
dwgname 会是 files 之一
Ref Foreach 的帮助

cindy_fisher

Andyhon 发表于 2012-1-16 11:47
延用 Gu_xl
(foreach dwgname files
dwgname 会是 files 之一

foreach的帮助里面没有啊。。
能帮忙贴个吗，谢谢了。

Andyhon

(foreach Num '(1 2 3 4 5)
   (princ Num)
   (terpri)
)

cindy_fisher

Andyhon 发表于 2012-1-16 14:42
(foreach Num '(1 2 3 4 5)
   (princ Num)
   (terpri)

现在明白了，谢谢大师

elsa0918

目前看不明白

_rocky

Gu_xl 发表于 2012-1-11 11:32

经测试将Gx_xl版主的程序改成下面这样，先前程序还有些问题

2. (defun batchCommand (path fun / files doc)
   
3.   (setq files (VL-DIRECTORY-FILES path "*.dwg" 1))
   
4.   (foreach dwgname files
   
5.      (if (/= (strcase (setq dwgname (strcat path dwgname)));去掉"\"
   
6.      (strcase (strcat (getvar "dwgprefix") (getvar "dwgname")))
   
7. )
   
8.       (progn
   
9.         (PRINT dwgname)
   
10.         (command "_.undo" "be")
    
11.         (setvar "clayer" "0")
    
12.         (command "-layer" "u" "*" "t" "*" "")
    
13.         (command "-insert" dwgname "0,0,0" 1 1 0);修改处三
    
14.         (command "-layer" "u" "*" "t" "*" "")
    
15.         ;;;处理动作
    
16.         (VL-CATCH-ALL-APPLY (FUNCTION fun))
    
17.         ;;;回写文件
    
18.         (command "-wblock" dwgname "y" "*");改为"-wblock"
    
19.         (command "_.undo" "e");修改四
    
20.         (command "u")
    
21.       )
    
22.     );ENDIF
    
23.   );ENDFOREACH
    
24.   (princ)
    
25. )
    

(defun batchCommand (path fun / files doc)<br />   (setq files (VL-DIRECTORY-FILES path "*.dwg" 1))<br />   (foreach dwgname files<br />      (if (/= (strcase (setq dwgname (strcat path dwgname)));去掉"\"<br />      (strcase (strcat (getvar "dwgprefix") (getvar "dwgname")))<br /> )<br />       (progn<br />         (PRINT dwgname)<br />         (command "_.undo" "be")<br />         (setvar "clayer" "0")<br />         (command "-layer" "u" "*" "t" "*" "")<br />         (command "-insert" dwgname "0,0,0" 1 1 0);修改处三<br />         (command "-layer" "u" "*" "t" "*" "")<br />         ;;;处理动作<br />         (VL-CATCH-ALL-APPLY (FUNCTION fun))<br />         ;;;回写文件<br />         (command "-wblock" dwgname "y" "*");改为"-wblock"<br />         (command "_.undo" "e");修改四<br />         (command "u")<br />       )<br />     );ENDIF<br />   );ENDFOREACH<br />   (princ)<br /> )<br />

_rocky

Gu_xl 发表于 2012-1-11 11:32

如果我要批量核查一系列DWG文件，用上述方法似乎不可行，G版主还有更好的方法吗？

ORCHI

_rocky 发表于 2012-7-15 09:18
如果我要批量核查一系列DWG文件，用上述方法似乎不可行，G版主还有更好的方法吗？

我有个批量处理的程序，用C#编写的，支持任意命令，使用时候将你编写的程序命令弄成可以随cad启动就行了，使用也很简单，可以参考下。
http://bbs.mjtd.com/thread-93595-1-1.html