[编程交流] 分解嵌套块，然后分解

(defun c:TWRXP (/ s doc)
 (if (setq s (ssget "X" '((0 . "INSERT") (8 . "TOWER"))))
   (progn
     (vlax-for obj (vla-item (vla-get-blocks
                               (setq doc (vla-get-activedocument
                                           (vlax-get-acad-object)
                                           )
                                     )
                               )
                             (vla-get-effectivename
                               (vlax-ename->vla-object (ssname s 0))
                               )
                             )
       (if (and
             (= "AcDbBlockReference" (vla-get-objectname obj))
             (null (vl-catch-all-error-p
                     (vl-catch-all-apply 'vla-explode (list obj))
                     )
                   )
             )
         (vl-catch-all-apply 'vla-delete (list obj))
         )
       )
     )
   )
 (command "_.-purge" "_B" "*" "_N")
 (vla-regen doc acallviewports)
 (princ)
 )(vl-load-com)

; Written By: Tom Beauford
; Changes all block entities to layer "0" with color, linetype & lineweight ByBlock
(defun C:FIXBLKS (/ *ERROR* SSET intCount ENAM ELST BNAM FLST FIX1)
 (setq thisdrawing (vla-get-activedocument (vlax-get-acad-object)))
 (vla-startundomark thisdrawing)
(defun *ERROR* (err) ; define local handler
  (vl-cmdf "undo" "Mark")
  (princ "\n\n")
  (princ)
);  "" is the same message you get when exiting an AutoCAD command.
 (defun FIX1 (BNAM / BENAM BONAM)
   (if (not (member BNAM FLST))
         (progn
           (setq FLST  (cons BNAM FLST)
                  BENAM (tblobjname "block" BNAM)
           )
  (while (setq BENAM (entnext BENAM))
            (if (= (cdr (assoc 0 (entget BENAM))) "INSERT")
      (fix1 (cdr (assoc 2 (entget BENAM))))
      (progn
        (setq BONAM(vlax-ename->vla-object BENAM))
                (vl-catch-all-apply 'vla-put-layer (list BONAM "0"))
                (vl-catch-all-apply 'vla-put-color (list BONAM 0))
                (vl-catch-all-apply 'vla-put-linetype (list BONAM "Byblock"))
                (vl-catch-all-apply 'vla-put-Lineweight (list BONAM -2))
                (Eq,$(Getvar,PStyleMode),0),STB,CTB )
                (eq(getvar "PStyleMode")0)(vl-catch-all-apply 'vla-put-PlotStyleName (list BONAM "Byblock")))
;                        (vl-catch-all-apply 'vla-put-PlotStyleName (list BONAM "Byblock"))
      )
    )
  )
       )
   )
 )
 (setq SSET (ssget (list (cons 0 "INSERT"))))
 (repeat (setq intCount (sslength SSET))
   (setq intCount     (1- intCount)
         ENAM (ssname SSET intCOunt)
          ELST (entget ENAM)
          BNAM (cdr (assoc 2 ELST))
          FLST nil
   )
   (fix1 BNAM)
 )
 (vl-cmdf "regen")
 (vla-endundomark thisdrawing)
 (princ)
)