Need help with Lee Mac IBURST lisp routine

[LISP2LEARN]

I stumbled upon Lee Mac IBURST routine and find it most useful than the Express tool burst command. How can I modify it to Burst all my block named "ROOMTAG" and "AREATAG". Also I layiso layers "A-Fixtures" and "A-Millwork", I can't use explode because I also have attributes on this blocks. So I need to burst all entities which are all isolated even if the blocks are on a different layer.

 

It's only been 2 weeks since I read/learning lisp so I don't know how to modify codes as of now. I would appreciate any help you cad/lisp experts has to offer on a poor man's lisp knowledge.

[Lee Mac]

Hi LISP2LEARN,

 

Firstly, I'm pleased that you find my program useful

 

In your situation I would recommend you make your selection using QSELECT, then run my program to process all blocks in the selection. This should work as long as PICKFIRST is set to 1.

 

If you require more selection control than the QSELECT command offers, you could modify the ssget filter used by the program.

[LISP2LEARN]

(if (ssget "_X" (list '(0 . "INSERT") (cons 2 "ROOMTAG"))) - this works
(if (ssget "_X" (list '(0 . "INSERT") (cons 2 "AREATAG"))) - doesn't work

 

Thanks Lee but it only works on ROOMTAG blocks when I change the "roomtag" to "Areatag" it didn't work and get the following error.

 

** Error: AutoCAD.Application: Invalid input **

 

also how can I add roomtag and areatag on a selection set.

[LISP2LEARN]

For some reason blocks ROOMTAG & AREATAG doesn't burst but when I copy and paste the AREATAG block then use IBURST again. It burst the newly added block but not the previous blocks. Is there some wrong with my selection set above?