将选择图块内部实体颜色改为 ByBlock

iLisp

2. 
   
3. (defun c:tt (/ blks ss e bn sl i)
   
4.   (setq        blks (vla-get-blocks
   
5.                (vla-get-activedocument (vlax-get-acad-object))
   
6.              )
   
7.   )
   
8.   (while (setq e (car (entsel)))
   
9.     (setq bn (cdr (assoc 2 (entget e))))
   
10.     (vlax-for obj (vla-item blks bn)
    
11.         (vla-put-color obj acByblock)
    
12.     )
    
13.     (if        (setq ss (ssget "x" (list (cons 2 bn))))
    
14.       (progn
    
15.         (setq sl (sslength ss)
    
16.               i         -1
    
17.         )
    
18.         (repeat        sl
    
19.           (entupd (ssname ss (setq i (1+ i))))
    
20.         )
    
21.       )
    
22.     )
    
23.   )
    
24.   (princ)
    
25. )

<br /> (defun c:tt (/ blks ss e bn sl i)<br />   (setq        blks (vla-get-blocks<br />                (vla-get-activedocument (vlax-get-acad-object))<br />              )<br />   )<br />   (while (setq e (car (entsel)))<br />     (setq bn (cdr (assoc 2 (entget e))))<br />     (vlax-for obj (vla-item blks bn)<br />         (vla-put-color obj acByblock)<br />     )<br />     (if        (setq ss (ssget "x" (list (cons 2 bn))))<br />       (progn<br />         (setq sl (sslength ss)<br />               i         -1<br />         )<br />         (repeat        sl<br />           (entupd (ssname ss (setq i (1+ i))))<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

Lisphk

图块内的实体颜色是 BYBLOCK好，还是BYLAYER好，或者就自己单独设颜色好？

iLisp

图块定义我一般用 0  + Bylayer，有时用 0 + ByBlock，前者可以随插入图层的颜色，后者可以自己随时修改Insert 颜色，同一图块可以呈现不同颜色，其它情况不予考虑

xvjiex

感谢分享将选择图块内部实体颜色改为 ByBlock

olenewman

vla-put-color,如何改为其他颜色呢，比如黑色

olenewman

vla-put-color,如何改为其他颜色呢，可以改为其他颜色，如1-红，2-黄，3-绿，4-青，5-蓝，6-水红，7-黑/白
(vla-put-color obj 1)