块中有多个块，如何彻底分解？

meflying

用我的程序（3楼），
要还不能分解，传个图上来，我看看为什么

wdb

我分析了一下你的程序，只能分解2层块的嵌套，3层嵌套就不行

meflying

都跟你说了，让你传个图上来，
我特意做了一个6层嵌套的块，完全炸开。。。
不知道你是如何分析的？？？

wdb

是我看错了，把(explodex ent)看成了是分解命令。抱歉。函数还能调用自身，第一次见到。

meflying

这是函数的嵌套调用，在任何程序语言中都是比较常用的方法。。。

秋枫

这叫“递归”。非常常用的程序设计技巧。

递归的好处是：程序简短。有些问题既可以用递归也可以用循环递推实现，但递归的方法往往更简洁并易于阅读。而有些问题非递归手段无法解决。

坏处是：运行时占用内存与堆栈空间比较多。而且有些程序高级语言的实现中对堆栈层数有限制，不能无限递归，超出层数则会堆栈溢出。Autolisp的递归堆栈也是有限的，大概接近１９９９６层吧～～：
下面的程序测试递归深度：
(defun c:test()
  (if (null i) (setq i 0))
  (princ "\n")
  (princ (setq i (1+ i)))
  (c:test)
)
至internal stack limit reached（达到内部堆栈限制极限）

当然，不会有嵌套了２００００层的块吧？

无痕

不用递归也能写的很简单

2. (defun c:xex ()
3.    (princ "\n炸开嵌套块.--------------by 无痕.2004.4")
4.    (setvar "qaflags" 1)
5.    (setq ss (ssget '((0 . "INSERT"))))
6.    (while (setq ss (ssget "P" '((0 . "INSERT"))))
7.        (command ".explode" ss "")
8.    )(princ)
9. )

(defun c:xex ()    (princ "\n炸开嵌套块.--------------by 无痕.2004.4")    (setvar "qaflags" 1)    (setq ss (ssget '((0 . "INSERT"))))    (while (setq ss (ssget "P" '((0 . "INSERT"))))        (command ".explode" ss "")    )(princ) )

gare1000

meflying:
的应该可以，他使用了递归调用。

gare1000

gare1000发表于2004-5-1 18:15:00meflying:的应该可以，他使用了递归调用。

抱歉，我只看了大家第一页的话题，就留言了，没注意到后面还有。

fsy

to meflying:
你的程序我试过了，对于一个包含嵌套块的实体可行，若对多个各自含有嵌套块的选择集，则只有其中一个实体被分解。以下是我的改进版： (defun explodex (ss / ss1 i ent)
(if (and (= (type ss) 'ENAME)
(= "INSERT" (cdr (assoc 0 (entget ss)))) )
(command "_.explode" ss)
(progn
(setq i 0)
(repeat (sslength ss)
(setq ent (ssname ss i))
(explodex ent)
(setq ss1 (ssget "P"))
(if (or (> (sslength ss1) 1)
(= "INSERT" (cdr (assoc 0 (entget (ssname ss1 0)))))
)
(explodex ss1)
)
(setq i (1+ i))
)
)
)
)