关于直接点选、框选直接删除块内对象（支持嵌套块）的编程申请

zhuqiqing

最近用了et工具里的直接选择嵌套块内对象进行复制的工具，很方便，因此很希望能有一个直接删除块内对象的功能，而不用进入块内编辑命令中删除再保存，因为当块很多时，效率很低。编程要求：1.直接选择需要删除的图块内对象（支持嵌套块），可点选、框选。  

                  2. 删除一次后，命令不退出，可持续操作，直至最终回车退出。

newer

论坛有了，copyn 或者 xref 搜索论坛看看

zhuqiqing

newer 发表于 2016-12-15 10:05

您说的是复制的功能，删除的功能有吗？

newer

zhuqiqing 发表于 2016-12-15 10:11

能复制，删除就更容易，抽空写一个

eachy

(defun c:tt (/ e)
   (while (setq  e (car (nentsel))) (vla-delete (vlax-ename->vla-object e)))
   (vl-cmd ".regen" "")
   (princ)
)
改进一下

2. 
   
3. 
   
4. (vl-load-com)
   
5. (defun c:tt (/ e )
   
6.   (while (setq e (nentsel))
   
7.     (vla-delete (vlax-ename->vla-object (car e)))
   
8.     (if        (= (length e) 4)
   
9.       (mapcar
   
10.         '(lambda (x / el ss sl ent)
    
11.            (setq el (entget x))
    
12.            (if (setq ss (ssget "x" (list (assoc 2 el))))
    
13.              (progn
    
14.                (setq sl (sslength ss))
    
15.                (while (setq ent (ssname ss (setq sl (1- sl))))
    
16.                  (entupd ent)
    
17.                )
    
18.              )
    
19.            )
    
20.          )
    
21.         (last e)
    
22.       )
    
23.     )
    
24.   )
    
25.   (princ)
    
26. )

<br /> <br /> (vl-load-com)<br /> (defun c:tt (/ e )<br />   (while (setq e (nentsel))<br />     (vla-delete (vlax-ename->vla-object (car e)))<br />     (if        (= (length e) 4)<br />       (mapcar<br />         '(lambda (x / el ss sl ent)<br />            (setq el (entget x))<br />            (if (setq ss (ssget "x" (list (assoc 2 el))))<br />              (progn<br />                (setq sl (sslength ss))<br />                (while (setq ent (ssname ss (setq sl (1- sl))))<br />                  (entupd ent)<br />                )<br />              )<br />            )<br />          )<br />         (last e)<br />       )<br />     )<br />   )<br />   (princ)<br /> )

zhuqiqing

newer 发表于 2016-12-15 10:19

多谢！！

zhuqiqing

eachy 发表于 2016-12-15 10:58

登录/注册后可看大图 (defun c:tt (/ e)    (while (setq  e (car (nentsel))) (vla-delete (vlax-ename->vla-object e)))    (vl-cmd ".regen" "")    (princ) ) 请问这段代码是要替换表格中的代码吗？是放在开头还是结尾？