[LISP函数]：块中实体移除

taner

2. 
   
3.   [FONT=courier new]
   
4. ;;; Deletes the specified subentity from its block definition
   
5. ;;; Arguments: the entity name of an item within a block reference
   
6. ;;; Returns: the remaining item count of the block definition
   
7. ;;; The drawing must be regenerated for the change to become visible
   
8. (defun ax:DeleteObjectFromBlock        (ent / doc blk)
   
9.   (setq        doc (vla-get-ActiveDocument (vlax-get-acad-object))
   
10.         ent (vlax-ename->vla-object ent)
    
11.         blk (vla-ObjectIdToObject doc (vla-get-OwnerID ent))
    
12.   )
    
13.   (vla-Delete ent)
    
14.   (vla-get-Count blk)
    
15. )
    
16. 
    
17.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;; Deletes the specified subentity from its block definition<br /> ;;; Arguments: the entity name of an item within a block reference<br /> ;;; Returns: the remaining item count of the block definition<br /> ;;; The drawing must be regenerated for the change to become visible<br /> (defun ax:DeleteObjectFromBlock        (ent / doc blk)<br />   (setq        doc (vla-get-ActiveDocument (vlax-get-acad-object))<br />         ent (vlax-ename->vla-object ent)<br />         blk (vla-ObjectIdToObject doc (vla-get-OwnerID ent))<br />   )<br />   (vla-Delete ent)<br />   (vla-get-Count blk)<br /> )<br /> <br />   [/FONT]<br />