[原创]无限层镶套块遍历

caiqs · 发表于 2010-12-4 19:56

楼上代码有异曲同功之效

Ea · 发表于 2010-12-4 20:22

本帖最后由 Ea 于 2010-12-4 20:28 编辑

1 Modelspace 实体用 chprop 命令

复制代码

2 Insert 用循环

(vlax-for blk (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
(if (and (= (vla-get-isxref blk) :vlax-false) (= (vla-get-islayout blk) :vlax-false))
(vlax-for obj blk
(vla-put-layer obj acbylayer)
)
)
)

复制代码

caiqs · 发表于 2010-12-6 08:31

本帖最后由 caiqs 于 2010-12-6 08:32 编辑

回复 Ea 的帖子

EA理解错误
你这个是将所有的实体颜色随层

而要求是:将选择到的实体(包括多层镶套块)实体颜色随层

waterchen · 发表于 2010-12-9 17:58

10樓說得對

zwqgdhl · 发表于 2011-7-25 08:43

路过，学习

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

[源码] [原创]无限层镶套块遍历