如何修改块的图层？

leeyuan

请问如何修给块的图层，包括匿名块、插入块等！哪位能帮忙给个提示！谢谢

zxy9108

这个问题好象挺简单的, 假定块实体名为BL,现要改为NEW层:


(subst (8 . "NEW") (assoc 8 (entget BL)) (entget BL))


(entmod BL)即可

chen4

aa

leeyuan

这只能改单个块的图层，如果块中镶嵌很多子块，这样的语句是不行的。昨天搜索了明经的主题，找到了相关的主题，现将其中一段程序修改后拿来共享

lijiao

leeyuan发表于2005-4-21 12:12:00回复：（leeyuan）如何修改块的图层？请问如何修给块的图层，包括匿名块、插入块等！哪位能帮忙给个提示！谢谢

你是要修改图块定义中各实体的图层，还是要修改图块引用的图层？

leeyuan

是块中各实体的图层，包括块引用的图层

lijiao

leeyuan发表于2005-4-22 12:00:00是块中各实体的图层，包括块引用的图层

块定义和块引用是两个完全不同的东东，不能混为一谈。修改块引用用2楼的方法即可。修改块定义，用下面的代码：

2. (defun bkl_ent->lay (blk lay / )
3.    (vlax-for ent blk
4.        (vla-put-layer ent lay)
5.        )
6.    )

(defun bkl_ent->lay (blk lay / )    (vlax-for ent blk        (vla-put-layer ent lay)        )    )

其中：BLK为VLA实体（VLA-OBJECT）类型                     LAY为字符串，是图层的名称，该图层必须存在。