Bursting within a lisp file

[Anonymous]

Hi,

I want to use the "BURST" command from the express tools (A2K) within a
lisp file. Here is the lisp file:

(defun c:gm ()
(command ".ZOOM" "E")
(command "-LAYER" "S" "0" "")
(repeat 5 (command ".PURGE" "A" "*" "N"))
(command "BURST" "A" pause)
(command ".QSAVE")
(princ)
)


When it gets to the "BURST" command it doesn't recognize it as a
command. I believe this is because it has to initialize, but I don't
know what to change to make it work if possible. Any help is
appreciated. Thanks.

Tony Willier

[Anonymous]

Use (c:burst) rather than (command "burst")

"Tony Willier" wrote in message
news:3BA9E68A.E8EECDF3@defnet.com...
> Hi,
>
> I want to use the "BURST" command from the express tools (A2K) within a
> lisp file. Here is the lisp file:
>

[Anonymous]

That did work the burst command in, but now it doesn't allow for the
automatic input of choosing all objects within that line of code after the
burst command is active, it justs stops at the "select objects" prompt. Is
there a way to conform this? Thanks.

Tony Willier


Lisp file:

(defun c:gm ()
(command ".zoom" "e")
(command "-layer" "S" "0" "")
(repeat 5 (command ".purge" "a" "*" "n"))
(c:burst "all" pause "")
(command ".qsave")
(princ)
)





Doug Broad wrote:

> Use (c:burst) rather than (command "burst")
>
> "Tony Willier" wrote in message
> news:3BA9E68A.E8EECDF3@defnet.com...
> > Hi,
> >
> > I want to use the "BURST" command from the express tools (A2K) within a
> > lisp file. Here is the lisp file:
> >

[Anonymous]

Hello,

C:BURST does not take arguments since it is a user defined command.
If you are using this for your own use and not for distribution, I would
suggest you embed burst.lsp in your file and make the changes to force
an "all" selection. I don't believe it is possible to feed command input to
another lisp function while the other lisp function is active unless you use the
script command. The script command will, however, suspend the current
function.

A script would be better than a lisp program for this anyway since there
are no decisions for the user to make.

Suggested script file try:
Zoom extents
-layer s 0;;
(load "burst")
(c:burst) all;
purge all *;;
purge all *;;
purge all *;;
purge all *;;
purge all *;;
qsave

Its not that big a deal though. The user can type "all" if he really wants
all blocks exploded. Don't recommend automating the qsave function.
Purge should happen after burst.


Doug B.

"Tony Willier" wrote in message
news:3BAA451F.45A48CF1@defnet.com...
> That did work the burst command in, but now it doesn't allow for the
> automatic input of choosing all objects within that line of code after the
> burst command is active, it justs stops at the "select objects" prompt. Is
> there a way to conform this? Thanks.
>
> Tony Willier
>
>
> Lisp file:
>
> (defun c:gm ()
> (command ".zoom" "e")
> (command "-layer" "S" "0" "")
> (repeat 5 (command ".purge" "a" "*" "n"))
> (c:burst "all" pause "")
> (command ".qsave")
> (princ)
> )
>
>