[LISP程序]：删除块中实体

wkai

2. (DEFUN c:del_in_blk (/ bn e)
   
3. (vl-load-com)
   
4. (WHILE        (AND
   
5.          (SETQ bn (NENTSELP "\n拾取图块: "))
   
6.          (= (LENGTH bn) 4)
   
7.         )
   
8.   (PROGN
   
9.    (SETQ e (VLAX-ENAME->VLA-OBJECT (CAR bn)))
   
10.    (VLA-DELETE e)
    
11.    (VL-CMDF "regen")
    
12.   )
    
13. )
    
14. (PRINC)
    
15. )

(DEFUN c:del_in_blk (/ bn e)<br /> (vl-load-com)<br /> (WHILE        (AND<br />          (SETQ bn (NENTSELP "\n拾取图块: "))<br />          (= (LENGTH bn) 4)<br />         )<br />   (PROGN<br />    (SETQ e (VLAX-ENAME->VLA-OBJECT (CAR bn)))<br />    (VLA-DELETE e)<br />    (VL-CMDF "regen")<br />   )<br /> )<br /> (PRINC)<br /> )

lhj743

非常感谢斑竹！
如果开发出可块内编辑（添加、删除、修改等），
那就更进一步了！

laibinwu

感谢分享源码，不错。