VLISP设置指定块内实体 指定属性的值

Lisphk

1. ; (NestedPutProp "MyBlk" 'entitytransparency "BYBLOCK")
   
2. ; (NestedPutProp "MyBlk" 'color 3)
   
3. (defun NestedPutProp (nme prop val / blk)
   
4.   (if
   
5.     (and
   
6.       (not
   
7.         (vl-catch-all-error-p
   
8.           (setq blk
   
9.             (vl-catch-all-apply
   
10.               'vla-item
    
11.               (list
    
12.                 (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
    
13.                 nme
    
14.               )
    
15.             )
    
16.           )
    
17.         )
    
18.       )
    
19.       (= :vlax-false (vla-get-islayout blk))
    
20.       (= :vlax-false (vla-get-isxref blk))
    
21.     )
    
22.     (vlax-for obj blk (vlax-put obj prop val))
    
23.   )
    
24. )

; (NestedPutProp "MyBlk" 'entitytransparency "BYBLOCK")<br /> ; (NestedPutProp "MyBlk" 'color 3)<br /> (defun NestedPutProp (nme prop val / blk)<br />   (if<br />     (and<br />       (not<br />         (vl-catch-all-error-p <br />           (setq blk<br />             (vl-catch-all-apply<br />               'vla-item<br />               (list<br />                 (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))<br />                 nme<br />               )<br />             )<br />           )<br />         )<br />       )<br />       (= :vlax-false (vla-get-islayout blk))<br />       (= :vlax-false (vla-get-isxref blk))<br />     )<br />     (vlax-for obj blk (vlax-put obj prop val))<br />   )<br /> )