[LISP程序]：多谢，把0层以外其他图层全部删掉，图中所有对象z坐标置0

weibin818

先多谢了，如何编这个程序，把0层以外其他图层全部删掉，图中所有对象z坐标置0，所有实体炸开只有line和arc,circle,
这是人家要求的，
我对lisp所知甚少。
想了很久，也没有思路，想请那位高手帮忙！！多多谢了！

eachy

最初由 weibin818 发布
[B]先多谢了，如何编这个程序，把0层以外其他图层全部删掉，图中所有对象z坐标置0，所有实体炸开只有line和arc,circle,
这是人家要求的，
我对lisp所知甚少。
想了很久，也没有思路，想请那位高手帮忙！！多多谢了！ [/B]

是先彻底分解，然后统一至0层并Purge吧，这个问题在Lisp论坛有多个程序。

2. [php]
   
3. (defun c:test (/ ss)
   
4.   (setvar "cmdecho" 0)
   
5.   (while (setq ss (ssget "x" '((0 . "insert,*polyline,hatch"))))
   
6.     (command ".explode" ss "")
   
7.   )
   
8.   (command ".change" "all" "" "p" "la" "0" "")
   
9.   ;(if (setq ss (ssget "x" '((-4 . "<not") (8 . "0") (-4 . "not>"))))
   
10.   ;  (command ".erase" ss "")
    
11.   ;)
    
12.   (command ".move" "all" "" "0,0,0" "0,0,1e99")
    
13.   (command ".move" "all" "" "0,0,1e99" "0,0,0")
    
14.   (command ".purge" "all" "*" "n")
    
15.   (command ".purge" "all" "*" "n")
    
16.   (command ".purge" "all" "*" "n")
    
17.   (princ)
    
18. )[/php]

[php]<br /> (defun c:test (/ ss)<br />   (setvar "cmdecho" 0)<br />   (while (setq ss (ssget "x" '((0 . "insert,*polyline,hatch"))))<br />     (command ".explode" ss "")<br />   )<br />   (command ".change" "all" "" "p" "la" "0" "")<br />   ;(if (setq ss (ssget "x" '((-4 . "<not") (8 . "0") (-4 . "not>"))))<br />   ;  (command ".erase" ss "")<br />   ;)<br />   (command ".move" "all" "" "0,0,0" "0,0,1e99")<br />   (command ".move" "all" "" "0,0,1e99" "0,0,0")<br />   (command ".purge" "all" "*" "n")<br />   (command ".purge" "all" "*" "n")<br />   (command ".purge" "all" "*" "n")<br />   (princ)<br /> )[/php]