请问怎样炸碎块仍然放在原来的图层
 

请问怎样炸碎块仍然放在原来的图层
www.dimcax.com
请问怎样炸碎块仍然放在原来的图层
在cad中把块炸碎了之后就全部跑到0层去了
请高手给个lisp的小程序
块炸碎后仍然放在它原来所在的图层
个人理解可以这样实现：
逐层的选择块，选择1层的所有块，用炸碎命令，炸碎后的实体都跑到了0层，选择0层所有的东西放回1层
然后选择2层的所有块，用炸碎命令，炸碎后的实体都跑到了0层，选择0层所有的东西放回2层
一直到最后的图层
有高手吗，帮帮忙
d
（defun c：ex（）
（setq a（ssget））
（setq b（getvar “clayer”））
（command “explode” a “”）
（setq c（entlast））
（command “change” c “” “la” b ”“）
）
d
在 r10 的年代有一个 lexplode.lsp 或许可套用一下
直接 seaech [lexplode.lsp]
未验证,谨供参考
d
here you are & test carefully
请使用winrar软件打开rar压缩文件。