转换图块中实体到0层，支持嵌套图块，一转到底。

newer

游客，如果您要查看本帖隐藏内容请回复

st788796

Insert 图层不变, Blcokdef 内 颜色为 Byblock
这样没有后悔机会

1. (princ "\n选择归并 0 层图块<回车全选>: ")
   
2. (if (setq ss (ssget '((0 . "INSERT"))))
   
3.   ss
   
4.   (setq ss (ssget "x" '((0 . "INSERT"))))
   
5. )
   

(princ "\n选择归并 0 层图块<回车全选>: ")<br /> (if (setq ss (ssget '((0 . "INSERT"))))<br />   ss<br />   (setq ss (ssget "x" '((0 . "INSERT"))))<br /> )<br />

守仁格竹GM

力顶 各位高手 大爆发         

守仁格竹GM

貌似不是一转到底

守仁格竹GM

做成递归也许好些

st788796

守仁格竹GM 发表于 2013-11-18 08:50
做成递归也许好些

一般可以收集一个块名表，最后根据这个表再去遍历，不用递归，减少无用操作

守仁格竹GM

st788796 发表于 2013-11-18 08:54
一般可以收集一个块名表，最后根据这个表再去遍历，不用递归，减少无用操作

有多层嵌套呢，而且每个子嵌套的子嵌套也均不同

st788796

守仁格竹GM 发表于 2013-11-18 09:05
有多层嵌套呢，而且每个子嵌套的子嵌套也均不同

遇到insert就收集，当然要判断下是否已经收集过了，最后改的时候
while blst
   if  insert  not position blst -> cons bn blst
   cdr blst
这样循环

守仁格竹GM

st788796 发表于 2013-11-18 09:15
遇到insert就收集，当然要判断下是否已经收集过了，最后改的时候
while blst
   if  insert  not posit ...

受教了。多谢

liuyj

好东西，收集

dbx5511

看看，感觉不错阿。

写诗天涯

谢谢，比较不错的应用

q3_2006

归零也包括颜色随层不？

st788796

来个彻底的

1. (defun to0 ()
   
2.   (mapcar '(lambda (x)
   
3.              (mapcar '(lambda (e)
   
4.                         (xdrx_setpropertyvalue e "Layer" "0")
   
5.                         (xdrx_setpropertyvalue e "Color" 0);_256 bylayer
   
6.                       )
   
7.                      (xdrx_block_getentities x)
   
8.              )
   
9.            )
   
10.           (mapcar 'cadr (XD::Ojbect:Get "BLock"))
    
11.   )
    
12. )

(defun to0 ()<br />   (mapcar '(lambda (x)<br />              (mapcar '(lambda (e)<br />                         (xdrx_setpropertyvalue e "Layer" "0")<br />                         (xdrx_setpropertyvalue e "Color" 0);_256 bylayer<br />                       )<br />                      (xdrx_block_getentities x)<br />              )<br />            )<br />           (mapcar 'cadr (XD::Ojbect:Get "BLock"))<br />   )<br /> )

wtjtdb-909

我正需要这个插件来清理图层，减小文件，谢谢