burst command

[kjm]

I am writing a program and would like to burst the block
after insertion but change the attribute to text. I have the line (command "burst" e1 "") when loaded the program stops and an error message says there is no command burst.
The burst command works at the command line, but not if the same command line is entered at the prompt.

[Cadentity.Com]

"kjm" <kenneth.mitchell> wrote in message
news:ef0ae...@WebX.SaUCah8kaAW...

You can't re-enter lisp.

Burst is a lisp function.
--
www.Cadentity.com
Practical Utilities for Productive Solutions
Currently Under Construction.

[Kevin Nehls]

Just to throw ideas up in the air, these are the best solution (as other
people have suggested those).

You can write a script routine for you routine to run that runs the BURST
command and uses your E1 variable as the selection. Or you could have your
routine write the script file on the fly.

Another possible solution would be to do this in a menu pick. Again having
the BURST command run then use your E1 variable as the selection.

Just tossin' out ideas.
--
Kevin Nehls
remove -ns- for direct reply
kjm wrote in message ...

[Colin Mitchell]

BURST is itself an AutoLISP function.

You'll have to customize a copy of it to accept your "e1" variable, or get a similar routine off of CADALOG.com. There are millions of "Explode Attributes to Text" routines on
the web.

-cbm

[Dave Schmidt]

Does (command "c:burst" e1 "") work?

-Dave Schmidt

kjm wrote in message ...

[Colin Mitchell]

Burst does not appear to support arguments, so, no it won't work.

Open Burst.LSP

; BURST MAIN ROUTINE
;-----------------------------------------------------

(Defun BURST (/ SS1)
(setq PSFLAG (if (= 1 (caar (vports)))
1 0
)
)
****** (Setq SS1 (SsGet (list (cons 0 "INSERT")(cons 67 PSFLAG))))
(If SS1
(Progn
(Setvar "highlight" 0)
(terpri)
(Repeat
(SsLength SS1)
(Setq ENAME (SsName SS1 0))
(SsDel ENAME SS1)
(BURST-ONE ENAME)
)
(princ "\n")
)
)
)

******Customize the BURST routine here to support whatever block name you've
got.

(Setq SS1 (SsGet "X" (list (cons 0 "INSERT")(cons 2 "MyBlock")(cons 67
PSFLAG))))

Make sure you keep a copy of the existing BURST.

-cbm