急，急，我急啊！

wwwljyb

各位，妹妹我想咨询点事，请问，我想把CAD的图形删掉其中的几个图层，请问用AUTOLISP语言如何做？？？？？


（备注：因为我是好几百张图，我想用AUTOLISP语言批量处理）

ljpnb

不知道要删除的图层中有没有实体??

ZZXXQQ

下面程序可以批量处理DWG图形文件，但要在新的空白图中运行。

1. (DEFUN C:DEL_LAYER ()
2.   (SETVAR "CMDECHO" 0)
3.   (SETQ PATH "D:\\SUBDIR1\\SUBDIR2\")
4.   (IF (NOT (FINDFILE "DWG.TXT"))
5.    (COMMAND "SHELL" (STRCAT "DIR " PATH "*.DWG /B >DWG.TXT"))
6.   )
7.   (IF (SETQ F (OPEN "DWG.TXT" "r")) (PROGN
8.    (WHILE (SETQ NMM (READ-LINE F))
9.      (IF (FINDFILE (STRCAT PATH NMM)) (PROGN
10.        (COMMAND "UNDO" "BE")
11.        (COMMAND "_INSERT" (STRCAT "*" PATH NMM) "0,0" "1" "0" "ZOOM" "E")
12. ;
13. ;加入删除图层处理。
14. ;
15.        (COMMAND "PURGE" "ALL" "*" "N") ;清除图中无用的实体，可重复用。
16.        (COMMAND "PURGE" "ALL" "*" "N")
17.        (SETQ NMM (SUBSTR NMM 1 (- (STRLEN NMM) 4)))
18.        (COMMAND "SAVEAS" (STRCAT PATH NMM))
19.        (WHILE (NOT (ZEROP (GETVAR "CMDACTIVE"))) (COMMAND "Y"))
20.        (COMMAND "UNDO" "E")
21.        (COMMAND "_U")
22.      ))
23.    )
24.    (CLOSE F)
25.   ))
26.   (SETVAR "CMDECHO" 1)
27.   (PRINC)
28. )

复制代码

yaopx0782

可以先把其他图层冻结，然后删除“all”，解冻其他层，再用"purge"命令即可。