删除层内对象

kucha007

最近接触到的几种删除对象的方法，这里以删除层内对象为例，分享给大家，也欢迎大佬补充完善。


01-首先，我们得有一个选择集：

2. (setq ss (ssget "_x" (list '(8 . "0"))));选中0图层的所有对象

(setq ss (ssget "_x" (list '(8 . "0"))));选中0图层的所有对象

02-解锁图层，避免对象锁定无法删除

2.     (setq LayObj (vlax-ename->vla-object (tblobjname "LAYER" "0")))  
   
3.     ;(vla-put-layeron  LayObj :vlax-true);打开
   
4.     (vla-put-lock  LayObj :vlax-false);解锁
   
5.     ;(vla-put-freeze  LayObj :vlax-false);解冻

    (setq LayObj (vlax-ename->vla-object (tblobjname "LAYER" "0")))  <br />     ;(vla-put-layeron  LayObj :vlax-true);打开<br />     (vla-put-lock  LayObj :vlax-false);解锁<br />     ;(vla-put-freeze  LayObj :vlax-false);解冻

※注意：注释掉的部分可以相互替换

方法一：command / vl-cmdf

2. (command "_ERASE" ss "")
   
3. ;(vl-cmdf "_ERASE" ss "")

(command "_ERASE" ss "")<br /> ;(vl-cmdf "_ERASE" ss "")

方法二：entdel / Vla

2. (repeat (setq i (sslength ss))
   
3.   (entdel (ssname ss (setq i (1- i))))
   
4.   ;(vla-erase (vlax-ename->vla-object (ssname ss (setq i (1- i)))))
   
5.   ;(vla-delete (vlax-ename->vla-object (ssname ss (setq i (1- i)))))
   
6. )

(repeat (setq i (sslength ss))<br />   (entdel (ssname ss (setq i (1- i))))<br />   ;(vla-erase (vlax-ename->vla-object (ssname ss (setq i (1- i)))))<br />   ;(vla-delete (vlax-ename->vla-object (ssname ss (setq i (1- i)))))<br /> )

方法二扩展：repeat也可以用while代替

2. (setq i (sslength ss))
   
3. (while (setq en (ssname ss (setq i (1- i))))
   
4.   (entdel en )
   
5.   ;(vla-erase (vlax-ename->vla-object en))
   
6.   ;(vla-delete (vlax-ename->vla-object en))
   
7. )

(setq i (sslength ss))<br /> (while (setq en (ssname ss (setq i (1- i)))) <br />   (entdel en )<br />   ;(vla-erase (vlax-ename->vla-object en))<br />   ;(vla-delete (vlax-ename->vla-object en))<br /> )

magicheno

感谢大佬分享，学习了

magicheno

重复回了