Trai Posted October 19, 2021 Share Posted October 19, 2021 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. Quote Link to comment Share on other sites More sharing options...
BIGAL Posted October 19, 2021 Share Posted October 19, 2021 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. Quote Link to comment Share on other sites More sharing options...
o0ki1ler Posted October 25, 2021 Share Posted October 25, 2021 ;;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) ) Quote Link to comment Share on other sites More sharing options...
mhupp Posted October 25, 2021 Share Posted October 25, 2021 this should be what your looking for. http://www.lee-mac.com/extractnestedblock.html 1 Quote Link to comment Share on other sites More sharing options...
BIGAL Posted October 26, 2021 Share Posted October 26, 2021 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. Quote Link to comment Share on other sites More sharing options...
Trai Posted October 26, 2021 Author Share Posted October 26, 2021 (edited) 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 Quote Link to comment Share on other sites More sharing options...
mhupp Posted October 26, 2021 Share Posted October 26, 2021 This explodes all nested blocks and leaves the original block and it automatic. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.