有限炸掉多重块程序

raobinhsh · 发表于 2011-8-23 16:02:57

一大堆块由多层块嵌套而成,用这个程序去炸,如果炸掉之后,产生的一些块由非块图元组成,对这种块就不炸,而继续炸那些多重块,直到所有的块都为由非块图元组成的块为止

byghbcx · 发表于 2011-8-23 17:22:08

(defun c:xxx (/ explodex blk_name ss i ent ent1);炸开嵌套块成单个实体组成块
  (defun explodex (ents / ent ss i)
(command "_.explode" ents)
(setq ss (ssget "P"))
(setq i 0)
(repeat (sslength ss)
   (setq ent (ssname ss i))
   (if (= "INSERT" (cdr (assoc 0 (entget ent))))
(progn
   (setq blk_name (cdr (assoc 2 (entget ent))))
   (setq ent1 (cdr (assoc -2 (tblsearch "block" blk_name))))
         (while (and ent1
   (= "INSERT" (cdr (assoc 0 (entget ent1))))
      )
   (setq ent1 (entnext ent1))
   (explodex ent)
         )
)
   )
   (setq i (1+ i))
)
  )
  (setq ss (ssget))
  (setq i 0)
  (repeat (sslength ss)
(setq ent (ssname ss i))
(if (= "INSERT" (cdr (assoc 0 (entget ent))))
(progn
   (setq blk_name (cdr (assoc 2 (entget ent))))
   (setq ent1 (cdr (assoc -2 (tblsearch "block" blk_name))))
         (while (and ent1
   (= "INSERT" (cdr (assoc 0 (entget ent1))))
      )
   (setq ent1 (entnext ent1))
   (explodex ent)
         )
)
   )
(setq i (1+ i))
  )
)

Andyhon · 发表于 2011-8-23 16:49:37

此类问题,建议楼主提供调试用样本(依可能状况列举)
程序以通过样本为准 ....
若您都想像不出可能会遇上什么样的状况,未可寄望程序人员补漏

raobinhsh · 发表于 2011-8-23 17:12:37

补上示例，请大家帮着编一下

raobinhsh · 发表于 2011-8-24 08:49:35

经过验证符合要求，怎么把明经币给你呀？

czb203 · 发表于 2011-11-18 11:21:15

3楼的试了一下很不错的样子哦

pzweng · 发表于 2012-4-11 14:45:48

byghbcx 发表于 2011-8-23 17:22
(defun c:xxx (/ explodex blk_name ss i ent ent1);炸开嵌套块成单个实体组成块
(defun explodex (ents ...

一直需要这个功能，又不好表达出来让人家听懂，谢谢

664571221 · 发表于 2024-3-7 17:13:59

楼主这个可以用吗

664571221 · 发表于 2024-3-7 17:15:34

byghbcx 发表于 2011-8-23 17:22
(defun c:xxx (/ explodex blk_name ss i ent ent1);炸开嵌套块成单个实体组成块
(defun explodex (ents ...

炸无名块可以吗

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

有限炸掉多重块程序

本帖子中包含更多资源

点评