[编程申请]：请教如何删除特定层上实体

amengsq

很多程序都带有比如删除梁等操作，也就是对特定层上的实体进行删除等操作，请教您如何不把该层作为当前土层，而能对该层实体进行操作？谢谢！

xyp1964

图层实体删除，慎用！！！

2. [FONT=courier new];;;*图层删除
   
3. (defun c:tcsc ()
   
4.   (command
   
5.     "erase"
   
6.     (ssget
   
7.       "X"
   
8.       (list
   
9.         (cons
   
10.           8
    
11.           (cdr
    
12.             (assoc 8
    
13.                    (entget (car (entsel "\n拾取被删除图层之任一物体: ")))
    
14.             )
    
15.           )
    
16.         )
    
17.       )
    
18.     )
    
19.     ""
    
20.   )
    
21.   (princ)
    
22. )[/FONT]

[FONT=courier new];;;*图层删除<br /> (defun c:tcsc ()<br />   (command<br />     "erase"<br />     (ssget<br />       "X"<br />       (list<br />         (cons<br />           8<br />           (cdr<br />             (assoc 8<br />                    (entget (car (entsel "\n拾取被删除图层之任一物体: ")))<br />             )<br />           )<br />         )<br />       )<br />     )<br />     ""<br />   )<br />   (princ)<br /> )[/FONT]

amengsq

老大，你的程序我一直很喜欢，看了你编的很多程序，不如说用了，呵呵，简捷，明了、实用是你程序的风格。是不是搞结构的阿？
如果是那就很明白了，我想要，不是删除层，而是直接删除该层上，我选择的一个实体，请继续。。。谢谢！

xyp1964

2. [FONT=courier new];;;*图层特定实体删除
   
3. (defun c:tcsc ()
   
4.   (if (setq s1 (car (entsel "\n拾取被删除图层之任一实体<退出>: ")))
   
5.     (progn (setq la (cdr (assoc 8 (entget s1)))
   
6.                  et (cdr (assoc 0 (entget s1)))
   
7.            )
   
8.            (command "erase"
   
9.                     (ssget "X" (list (cons 0 et) (cons 8 la)))
   
10.                     ""
    
11.            )
    
12.     )
    
13.   )
    
14.   (princ)
    
15. )[/FONT]

[FONT=courier new];;;*图层特定实体删除<br /> (defun c:tcsc ()<br />   (if (setq s1 (car (entsel "\n拾取被删除图层之任一实体<退出>: ")))<br />     (progn (setq la (cdr (assoc 8 (entget s1)))<br />                  et (cdr (assoc 0 (entget s1)))<br />            )<br />            (command "erase"<br />                     (ssget "X" (list (cons 0 et) (cons 8 la)))<br />                     ""<br />            )<br />     )<br />   )<br />   (princ)<br /> )[/FONT]

amengsq

老大，我太郁闷了，我怎么表达能力这么差那？总让别人走了弯路，实在不好意思。
不知道用过没有删除梁的程序，用这个程序，窗选任何物体，只是删除梁层上的物体，其他层的物体不删，大概叫过滤的那种功能吧，梁也删了我窗选的这里面的东西，其他地方的梁也不动。

它山之石

呵呵，XYP老大把问题想的太复杂了。
这个你自己去做个填空题吧，
修改括号内的内容为你的梁线所在的图层就行了。

[php]
;;;删除选择范围内的图层“beam”上的类型为“*LINE”及“ARC”实体
(defun c:test ()
  (command
    "erase"  (ssget '((0 . "*LINE,ARC")(8 . "beam")))
    ""
  )
  (princ)
)
[/php]

amengsq

好啊,对不住xyp1964老大了,都是俺没说清楚,同时感谢两位的帮助!!!

xyp1964

你没说要窗选。适合任何层实体：

2. [FONT=courier new];;;*图层特定实体删除
   
3. (defun c:tcsc ()
   
4.   (if (setq s1 (car (entsel "\n拾取被删除图层之任一实体<退出>: ")))
   
5.     (progn (setq la (cdr (assoc 8 (entget s1)))
   
6.                  et (cdr (assoc 0 (entget s1)))
   
7.            )
   
8.            (command "erase" (ssget (list (cons 0 et) (cons 8 la))) "")
   
9.     )
   
10.   )
    
11.   (princ)
    
12. )[/FONT]

[FONT=courier new];;;*图层特定实体删除<br /> (defun c:tcsc ()<br />   (if (setq s1 (car (entsel "\n拾取被删除图层之任一实体<退出>: ")))<br />     (progn (setq la (cdr (assoc 8 (entget s1)))<br />                  et (cdr (assoc 0 (entget s1)))<br />            )<br />            (command "erase" (ssget (list (cons 0 et) (cons 8 la))) "")<br />     )<br />   )<br />   (princ)<br /> )[/FONT]

雨箭风刀

2. 
   
3. ;;;删除目标实体层上选择范围内的实体.
   
4. (defun c:test (/ f el)
   
5.   (while (not f)
   
6.     (setq el(nentsel "\n 选目标层实体:"))
   
7.     (if(car el)(setq f (assoc 8 (entget (car el)))))
   
8.   )
   
9.   (princ (strcat "\n 选中图层:" (cdr f)))
   
10.   (command  "_.erase" (ssget (list f)) "" )
    
11.   (princ)
    
12. )
    

<br /> ;;;删除目标实体层上选择范围内的实体.<br /> (defun c:test (/ f el)<br />   (while (not f)<br />     (setq el(nentsel "\n 选目标层实体:"))<br />     (if(car el)(setq f (assoc 8 (entget (car el)))))<br />   )<br />   (princ (strcat "\n 选中图层:" (cdr f)))<br />   (command  "_.erase" (ssget (list f)) "" ) <br />   (princ) <br /> )<br />

amengsq

这论坛的高手太多，楼上几位十分感谢！！