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

newer

下面代码示例了如何修改匿名块的子实体，把子实体的颜色修改为颜色号3. 并且修改完后自动更新引用该块的实体。

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

<br /> (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 />

joinpack

学习了，涨知识

xvjiex

感谢分享VLisp修改匿名块子实体的属性