如何实现一个功能，炸开块中块，但是最外层的块不炸开

wuzhenif

就像题目说的，我想实现一个功能，炸开块中块，但是最外层的块不炸开。我在论坛里看到一炸到底的工具，这个我大概理解了，就是设置一个循环，直到炸无可炸。但是保留最外层，将块里面炸开还没有这样的帖子。希望有大佬看见指点一二，不胜感激。

xj6019

http://bbs.mjtd.com/thread-183752-1-1.html

菜卷鱼

undo代码你自己去写一下

1. (defun c:xx  (/ s i res)
   
2.   (setq s (ssget "_+.:E:S" '((0 . "INSERT"))))
   
3.   (undobe)
   
4.   (setq i 0)
   
5.   (setq res (xpinside s))
   
6.   (if (= (member "on" res) nil)
   
7.     (princ "\n对象内不含嵌套块")
   
8.     (PROGN
   
9.       (while
   
10.         (member "on" res)
    
11.          (setq res (xpinside s))
    
12.          )
    
13.       (princ "\n已分解嵌套块"))
    
14.     )
    
15.   (setq i nil)
    
16.   (undoe)
    
17.   (prin1)
    
18.   )
    
19. (defun xpinside         (s / lock)
    
20.   (setq lock "off")
    
21.   (LM:ApplytoBlockObjects
    
22.     (vla-get-blocks
    
23.       (vla-get-activedocument (vlax-get-acad-object)))
    
24.     (vla-get-effectivename
    
25.       (vlax-ename->vla-object (ssname s 0)))
    
26.     '(lambda (obj)
    
27.        (if
    
28.          (= (vla-get-ObjectName obj) "AcDbBlockReference")
    
29.           (PROGN (vla-explode obj) (vla-delete obj) (setq lock "on"))
    
30.           )
    
31.        )
    
32.     )
    
33.   )
    
34. 
    
35. (defun LM:ApplytoBlockObjects (blks name func / result)
    
36.   (setq func (eval func))
    
37.   (if
    
38.     (not
    
39.       (vl-catch-all-error-p
    
40.         (setq def (vl-catch-all-apply 'vla-item (list blks name)))
    
41.       )
    
42.     )
    
43.      (vlax-for obj def (setq result (cons (func obj) result)))
    
44.   )
    
45.   (reverse result)
    
46. )
    

(defun c:xx  (/ s i res)<br />   (setq s (ssget "_+.:E:S" '((0 . "INSERT"))))<br />   (undobe)<br />   (setq i 0)<br />   (setq res (xpinside s))<br />   (if (= (member "on" res) nil)<br />     (princ "\n对象内不含嵌套块")<br />     (PROGN<br />       (while<br />         (member "on" res)<br />          (setq res (xpinside s))<br />          )<br />       (princ "\n已分解嵌套块"))<br />     )<br />   (setq i nil)<br />   (undoe)<br />   (prin1)<br />   )<br /> (defun xpinside         (s / lock)<br />   (setq lock "off")<br />   (LM:ApplytoBlockObjects<br />     (vla-get-blocks<br />       (vla-get-activedocument (vlax-get-acad-object)))<br />     (vla-get-effectivename<br />       (vlax-ename->vla-object (ssname s 0)))<br />     '(lambda (obj)<br />        (if<br />          (= (vla-get-ObjectName obj) "AcDbBlockReference")<br />           (PROGN (vla-explode obj) (vla-delete obj) (setq lock "on"))<br />           )<br />        )<br />     )<br />   )<br /> <br /> (defun LM:ApplytoBlockObjects (blks name func / result)<br />   (setq func (eval func))<br />   (if<br />     (not<br />       (vl-catch-all-error-p<br />         (setq def (vl-catch-all-apply 'vla-item (list blks name)))<br />       )<br />     )<br />      (vlax-for obj def (setq result (cons (func obj) result)))<br />   )<br />   (reverse result)<br /> )<br />

dting2011

菜卷鱼 发表于 2023-8-28 08:37
undo代码你自己去写一下

大佬 UNDO代码咋写，方便写一下吗

muwind

dting2011 发表于 2023-12-29 10:37
大佬 UNDO代码咋写，方便写一下吗

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=168922

xxyyzzlg

muwind 发表于 2023-12-29 22:27
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=168922

感谢分享，先mark下，学会了再来改