炸开嵌套块保留最外图块加入选择的块炸开

a2022002

用AI写了一个炸开嵌套保留最外的图块，但是是全局的，我想要一个能局部选择块的，麻烦大佬解决下，AI不行啊怎么都解决不了各种报错，附件和CAD图块一块上传

jh1215218

先让他全部炸开，然后再生成块，是不是就可以了？

菜卷鱼

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

(defun c:xx (/ s i res)<br />   (setq s (ssget "_+.:E:S" '((0 . "INSERT"))))<br />   (undobe)<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 />   )<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 />     )<br />     (vla-get-effectivename<br />       (vlax-ename->vla-object (ssname s 0))<br />     )<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 /> (prin1)

a2022002

菜卷鱼 发表于 2025-5-12 08:51

no function definition: UNDOBE  大神这个报错哦

a2022002

jh1215218 发表于 2025-5-11 07:24
先让他全部炸开，然后再生成块，是不是就可以了？

就是需要选取范围内的块进行炸开，要求就是炸开块内所有的其他块，然后就可以了 AI搞不出来

菜卷鱼

a2022002 发表于 2025-5-12 09:23
就是需要选取范围内的块进行炸开，要求就是炸开块内所有的其他块，然后就可以了 AI搞不出来

(command "_.undo" "be")
.............
(command "_.undo" "e")

wudechao

菜卷鱼 发表于 2025-5-12 08:51

带属性的图块不应该炸开，比如轴号和门窗，这些在建筑图里都是带属性的图块。我修改了一下这个函数(defun xpinside (s / lock)
  (setq lock "off")
  (lm:applytoblockobjects (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))) (vla-get-effectivename
                                                                                                                  (vlax-ename->vla-object
                                                                                                                                          (ssname s 0)
                                                                                                                  )
                                                                                           ) '(lambda (obj)
                                                                                                (if (and
                                                                                                      (=
                                                                                                         (vla-get-objectname obj)
                                                                                                         "AcDbBlockReference"
                                                                                                      )
                                                                                                      (=
                                                                                                         (vla-get-hasattributes obj)
                                                                                                         :vlax-false
                                                                                                      )
                                                                                                    )
                                                                                                  (progn
                                                                                                    (vla-explode obj)
                                                                                                    (vla-delete obj)
                                                                                                    (setq lock "on")
                                                                                                  )
                                                                                                )
                                                                                              )
  )
)