BURST command in Lisp Routine

[mhollar]

Is this possible? If so, please tell me how. I am trying to write an AutoLISP routine to clean up architectural files so that we only need to type in "FLR" to do everything we need. Attached is my routine so far, please bare with me as it is my first attempt. Also, another issue I am having is that the leaders stay as leaders and do not take any property changes through the routine, any ideas? Thank you in advance!

(defun c:flr ()
  (COMMAND "BURST" "ALL" "")
  (COMMAND "_EXPLODE" "ALL" "")
  (COMMAND "-layer" "m" "FLRPLN" "c" "8" "FLRPLN" "")
  (COMMAND "-LAYER" "S" "0" "")
  (COMMAND "chprop" "all" "" "LA" "FLRPLN" "C" "BYLAYER" "")
  (COMMAND "-layer" "t" "*" "")
  (COMMAND "-layer" "f" "FLRPLN" "")
  (COMMAND "ERASE" "ALL" "")
  (COMMAND "-layer" "t" "*" "")
  (COMMAND "-purge" "all" "*" "N")
)

[ Moderator Action = ON ] What are [ CODE ] tags... [ Moderator Action = OFF ]

[T.Willey]

Burst is not a native Acad command, at least not int 2004. Try is as (c:burst), and see if that gets you going.

Tim

[mhollar]

Thank you for your reply. It would probably help to say that I am running ACAD 2006 and do realize that Burst is an express tool command and has its own lisp file. Is there a way to reference that command to make it part of my lisp routine? Has that type of thing been done before or do I just need to run the burst command separately and then the lisp routine? Thanks again.

[Opie]

Thank you for your reply. It would probably help to say that I am running ACAD 2006 and do realize that Burst is an express tool command and has its own lisp file. Is there a way to reference that command to make it part of my lisp routine? Has that type of thing been done before or do I just need to run the burst command separately and then the lisp routine? Thanks again.

As Tim mentioned, you would need to include a set of parenthesis around the BURST command as well as the C:

(c:burst)

Doing this may work, it may not. Some lisp routines do not lend themselves to be included in other lisp routines.

[T.Willey]

To expand on what Richard said. I think you will need to open up the express tools lisp file, and find what calls it. Once you know that, you can load it in your lisp file, and then call it the way it needs to be called. I haven't looked at the code, so I don't know how to call it in another lisp routine (the parameters to pass to it). If you search here, or the web, you might find how someone has done it though.

Tim

[mhollar]

Thank you for your quick replies. I did edit the routine to the following and it did the burst command, I just needed to select all and enter. Thanks again.

(defun c:flr ()
  (COMMAND "DRAWORDERCTL" "0" "")
  (c:burst)
  (COMMAND "_EXPLODE" "ALL" "")
  (COMMAND "-layer" "m" "FLRPLN" "c" "8" "FLRPLN" "")
  (COMMAND "-LAYER" "S" "0" "")
  (COMMAND "chprop" "all" "" "LA" "FLRPLN" "C" "BYLAYER" "")
  (COMMAND "-layer" "t" "*" "")
  (COMMAND "-layer" "f" "FLRPLN" "")
  (COMMAND "ERASE" "ALL" "")
  (COMMAND "-layer" "t" "*" "")
  (COMMAND "-purge" "all" "*" "N")
  (COMMAND "_EXPLODE" "ALL" "")
  (COMMAND "-purge" "all" "*" "N")
)

[ Moderator Action = ON ] What are [ CODE ] tags... [ Moderator Action = OFF ]

[T.Willey]

Glad you got it to work. If you are going to do all that to a drawing, you may want to do and audit also. Just a suggestion.

Tim