Burst all blocks in a drawing (without selection set)

[sam_safinia]

I am using this super lisp By Lee Mac for a while (thanks you exist Lee!) but wondering how it can be rectify in a way that it burst every single blocks in a drawing and with no selection window(set). How can put all existing blocks in its list? Thanks

[hmsilva]

Hi s_plant,

ensures that 'BurstUpgradedV1-2.lsp' is loaded, and something like this should do the trick

(defun c:demo (/ ss )
   (if (setq ss (ssget "_X" '((0 . "INSERT") (66 . 1))))
      (LM:burst ss)
      )
   (princ)
   )

Hope this helps,
Henrique

[sam_safinia]

Henrique,

You rock!

Is there any way to combine both lisps into one rather than to load them separately? Thanks

[hmsilva]

---

@s_plant wrote:

Is there any way to combine both lisps into one rather than to load them separately? Thanks

---

You're welcome, s_plant
add the 'demo' function at the end of the main code...

Henrique

[sam_safinia]

i added but the main lisp does not function properly as before. It only burst some of the blocks!! I have not checked properly before but even with previous method I got same result as partially bursting.

[hmsilva]

---

@s_plant wrote:

i added but the main lisp does not function properly as before. It only burst some of the blocks!! I have not checked properly before but even with previous method I got same result as partially bursting.

---

I'm confused...

Let's recap, if you add the 'demo' function, after the Lee Mac's BurstUpgradedV1-2.LSP end, after 'End of File ', you'll have the original 'iburst' command, and the 'demo' command.

 If you type 'iburst' the code will ask to select blocks, if you type 'demo' no selection will be asked, and all blocks with attributes will be burst...

Henrique

[sam_safinia]

Yes, That's correct. Please find attached files o sample drawing and modified lisp.

[hmsilva]

Hi s_plant,

just remove the (66 . 1) from the 'demo' function, It should work as expected.

Henrique

[sam_safinia]

Thanks Henrique. Work Perfectly

[hmsilva]

---

@s_plant wrote:

Thanks Henrique. Work Perfectly

---

You're welcome, s_plant!

Henrique

[sam_safinia]

I tested the original lisp (same result with lisp without  selection prompt) and it will burst all block within my drawing after 4th attempts! It means that I need to run the lisp few times to get the job done. Is there any way to run any lisp several times?

(defun c:demo (/ ss )
   (if (setq ss (ssget "_X" '((0 . "INSERT") )))
      (LM:burst ss)
      ;; Here I need looping back to the top and re-running
      )
   (princ)
   )

Thanks

[hmsilva]

---

@s_plant wrote:

I tested the original lisp (same result with lisp without  selection prompt) and it will burst all block within my drawing after 4th attempts! It means that I need to run the lisp few times to get the job done. Is there any way to run any lisp several times?

(defun c:demo (/ ss )
   (if (setq ss (ssget "_X" '((0 . "INSERT") )))
      (LM:burst ss)
      ;; Here I need looping back to the top and re-running
      )
   (princ)
   )

---

Hi s_plant,

the 'repeat' function...

We could use the 'while' function, but if they exist non-uniformly scaled blocks or xrefs, the the loop would be endless...

(defun c:demo (/ ss)
   (repeat 4
      (if (setq ss (ssget "_X" '((0 . "INSERT"))))
         (LM:burst ss)
      )
   )
   (princ)
)

Hope this helps,
Henrique

[Anonymous]

This doesn't work anymore with Lee's latest script. Its version 1.7

@hmsilva Do you think you can update your script to work with Lee's latest script?

[dlanorh]

It was designed to work with the attached.