wsong223 发表于 2011-9-5 14:58:12

如何改变块的颜色

有一个块，颜色为随层的红色，如何不改变层的颜色，而能改变这个块的颜色

caoyin 发表于 2011-9-5 15:50:34

论坛有相关程序，自己找找看。

lenlenq 发表于 2011-9-5 21:42:47

(defun changeblkcolor (blk color / blkobjs blkob blkname blkobj)
(setq        blkobjs        (vla-get-blocks
                  (vla-get-activedocument (vlax-get-acad-object))
                )
)
(setq blkob (vlax-ename->vla-object blk))
(setq blkname (vla-get-name blkob))
(setq blkobj (vla-item blkobjs blkname))
(vlax-for obj blkobj (vla-put-color obj color))
(vla-update blkob)
(princ)
)
页: [1]
查看完整版本: 如何改变块的颜色