How to convert all subblock to main block ?

[Trai]

Dear all, 

In my drawing have many block, so it's very hard to manager it and it will lag to PC system. Every block have many subblock. You can see a example below. So i want to  convert all of them to to main block. Someone can help me a lisp to resolve them. Many thank for your help.

[BIGAL]

There probably is a lisp out there but if you just explode 1 block repeatedly down to individual parts then make a new block, there is replace block1 with block2 out there. You can purge block1 and then do a rename block if you want.

[o0ki1ler]

;;Dynamic block to ordinary block

;;by：o0ki1ler

(defun c:1ptk (/ cnt)
  (if (ssget (list '(0 . "INSERT") (cons 410 (getvar 'CTAB))))
    (progn
      (setq cnt 0)
      (vlax-for        obj
                    (vla-get-activeselectionset
                      (vla-get-activedocument (vlax-get-acad-object))
                    )
        (if (and
              (vlax-property-available-p obj 'isdynamicblock)
              (eq :vlax-true (vla-get-isdynamicblock obj))
            )
          (progn
            (setq cnt (1+ cnt))
            (vla-ConvertToAnonymousBlock obj)
          )
        )
      )
      (princ (strcat "\n***Co-modification " (itoa cnt) " Dynamic blocks***"))
    )
  )
  (princ)
)

[mhupp]

this should be what your looking for.

http://www.lee-mac.com/extractnestedblock.html

[BIGAL]

mhupp that pulls the block apart into single blocks, does not say make a new single block with all the entities. That could though be 1st step, then need maybe Burst, then make back into a block, that seemed to work. Now for some time.

[Trai]

14 hours ago, mhupp said:

this should be what your looking for.

http://www.lee-mac.com/extractnestedblock.html

Thank for the this link.

I have just test this lips, it working very good , but if posible, I want  to select many object  simultaneous instead of choice ony a object. Someone can edit again this lisp

 

Edited October 26, 2021 by Trai

[mhupp]

This explodes all nested blocks and leaves the original block and it automatic.