颜色随层求助

wangbo213 · 发表于 2006-12-27 12:33:00

10楼说的对，但我又有一个新问题，就是

如何将图中所有块中颜色不随层的对象变成颜色随层？？？？

mccad · 发表于 2006-12-27 12:52:00

道理差不多，循环图块进行修改。

wangbo213 · 发表于 2006-12-27 23:30:00

不怎么明白啊！循环图块，但如何进入图块里面，让图块里面的图元颜色随层呢？

2楼和5楼提供的程序是不能更改图块里面的图元的

highflybir · 发表于 2006-12-30 10:23:00

(defun C:ccc (/ Obj blocklist block n)
(vl-load-com)
(setq AcadObject (vlax-get-acad-object))
(setq AcadDocument (vla-get-activedocument AcadObject))
(setq ModelSpace (vla-get-modelspace AcadDocument))
(vlax-for obj ModelSpace ;取得模型空间对象集合
(if (/= (vla-get-color obj) 256) ;遍历模型空间对象
(vla-put-color obj 256)
)
)
(setq blocklist (vla-get-blocks AcadDocument));取得块集合
(vlax-for block blocklist ;遍历块集合
(vlax-for n block ;遍历单个块
(if (/= (vla-get-color n) 256)
(vla-put-color n 256)
)
)
)
)

这是对于块的方法，采用了嵌套循环。
稍加改动，就可以对整个CAD图形进行变成自己需要的颜色。
没有出错检查，可能跟天正之类的软件不兼容。

highflybir · 发表于 2006-12-30 10:23:00

本帖最后由作者于 2006-12-30 10:34:33 编辑

这个程序可以改变图块中所有对象，甚至嵌套的，尺寸标注，属性块等等。

另外可以采用mccad的方法，先把你要改变的物体选择出来，然后进行变色，以提速。

--注：不好意思，刚才不小心帖子发重了，只好编辑另作回答。

wangbo213 · 发表于 2006-12-30 12:49:00

不好意思，我水平有限，不知highflybir大侠所说得mccad的方法是什么？？

能不能提供这方面得资料或书籍呢？多谢呢熬

我知道有个SSGET可过滤选择集，但不支持VLA对象！

鬼魔 · 发表于 2007-1-8 22:01:00

感谢highflybir版主

顶上这个好贴

龙龙仔 · 发表于 2007-1-9 07:55:00

highflybir发表于2006-12-30 10:23:00(defun C:ccc (/ Obj blocklist block n) (vl-load-com) (setq AcadObject (vlax-get-acad-object)) (setq AcadDocument (vla-get-activedocument AcadObject)) (没有

但對已插入的屬性塊無效

faith66 · 发表于 2012-2-28 15:26:52

highflybir版主，

，好帖！为何没有继续将属性块的问题解决呢？

dj0737 · 发表于 2013-8-18 01:57:15

能不能指定图层随层啊？？

账号		自动登录	找回密码
密码			注册

颜色随层求助

浏览过的版块