VLISP修改匿名块的子实体属性

newer

问题：
I have written a Lisp routine to change the color of all the entities in the
drawing to color green (3).  It also iterates through all the block definitions
and changes the color of all subentities to redefine the block.  This routine
does not work for blocks which have anonymous blocks as subentities. How can
I change the subentities of anonymous blocks as well?

解决方案：
This problem is easily solved if you use Visual LISP's ActiveX functions.  Once
we identify the subentities which are anonymous block references, it is quite
easy to set their subentities' "color" properties.  The example below updates
the existing block references in the drawing.  Any subsequent insertions of
these blockrefs should not need to be updated.

1. (defun c:SetGreen (/ a_app a_doc a_blks blk ent)
   
2.    (vl-load-com)
   
3.    (setq a_app (vlax-get-acad-object)
   
4.            a_doc (vla-get-ActiveDocument a_app)
   
5.            a_blks (vla-get-blocks a_doc)
   
6.    )
   
7.    (vlax-for blk a_blks
   
8.       (if (wcmatch (vla-get-name blk) "*U*")
   
9.          (vlax-for ent blk
   
10.             (vla-put-color ent acGreen)
    
11.          )  
    
12.       )
    
13.    )
    
14.    (vlax-release-object a_blks)
    
15.    (vla-regen a_doc acAllViewports)
    
16.    (princ)
    
17. )
    

(defun c:SetGreen (/ a_app a_doc a_blks blk ent)<br />    (vl-load-com)<br />    (setq a_app (vlax-get-acad-object)<br />            a_doc (vla-get-ActiveDocument a_app)<br />            a_blks (vla-get-blocks a_doc)<br />    )<br />    (vlax-for blk a_blks<br />       (if (wcmatch (vla-get-name blk) "*U*")<br />          (vlax-for ent blk<br />             (vla-put-color ent acGreen)<br />          )  <br />       )<br />    )<br />    (vlax-release-object a_blks)<br />    (vla-regen a_doc acAllViewports)<br />    (princ)<br /> )<br />

/db_自贡黄明儒_

干脆不要那个(if ,修改所有块

xvjiex

感谢楼主分享VLISP修改匿名块的子实体属性