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

楼上代码有异曲同功之效

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

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

1 Modelspace实体用 chprop 命令
(vl-cmdf ".chprop""all" "“ "p" "la" "bylayer" "")
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:48

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

回复 Ea 的帖子

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

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

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

10樓說得對

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

路过，学习
页: 1 [2]
查看完整版本: [原创]无限层镶套块遍历