Explode blocks!

[Anonymous]

(defun C:delbl ()
(setq a (ssget '((0 . "INSERT"))))
(command "_.explode" a "")
(princ)
)

----------------

I am trying to explode the blocks in my drawing, but after selecting the blocks, it exploded only one objects

for example,  " delbl" found 4 blocks(objects) but exploded only one, and the remaining blocks I have to continue to "delbl" and one block exploded again......Anybody can tell me the reason why?

I still can use cad command "explode" to explode them by manual. They can be exploded! 

[Anonymous]

I found the solution, thanks for concerning! 

[dlanorh]

---

@Anonymous wrote:

(defun C:delbl ()
(setq a (ssget '((0 . "INSERT"))))
(command "_.explode" a "")
(princ)
)

----------------

I am trying to explode the blocks in my drawing, but after selecting the blocks, it exploded only one objects

for example,  " delbl" found 4 blocks(objects) but exploded only one, and the remaining blocks I have to continue to "delbl" and one block exploded again......Anybody can tell me the reason why?

I still can use cad command "explode" to explode them by manual. They can be exploded! 

---

(defun C:delbl (  / a cnt ent)
(setq a (ssget '((0 . "INSERT"))))
(repeat (setq cnt (sslength a))
  (setq ent (ssname a (setq cnt (1- cnt))))
  (command "_.explode" ent "")
)
(princ)
)

[cadffm]

---

@Anonymous wrote:

Anybody can tell me the reason why?

---

Read your EXPLODE Help[F1]  and you will see:

AutoDESK: Usual and it is as designed! (in this case "Script" means 'automation' )

My explaination:

In automatation autocad starts some commands in an older instead of the current version of a command.

 (for compatibility with older scripts or for scripts that should work with newer and older versions)

See also. INITCOMMANDVERSION (AutoLISP)

(defun C:explbl ()
  (if (setq a (ssget '((0 . "INSERT"))))
       (progn (initcommandversion 2)(command "_.EXPLODE" a ""))

  )
(princ)
)