Convert Explode command to Burst command?

[BlackBox]

I'm confused.

If you want to cull the source LISP code so that your routine is not dependent on the source being loaded prior to your code's invocation, that's your choice, but as Tom has already reiterated, it's unnecessary... All you need (once the source has been loaded for that Document) is to call SSSETFIRST prior to your Command call of BURST (as is already shown in this thread twice)... It's really not this complicated.

[alanjt]

Actually, you could just convert burst to a subroutine. change (defun c:BURST (/ ...) to (defun _burst (ent / ...

Then comment out the BURST subroutine and the call to it (at the bottom of the routine) and just add (burst-one ent) to the bottom of the code and you should be golden.

From there, you can apply (_burst <ename>) and you are good to go.

[Tom Beauford]

Actually, you could just convert burst to a subroutine. change (defun c:BURST (/ ...) to (defun _burst (ent / ...

Then comment out the BURST subroutine and the call to it (at the bottom of the routine) and just add (burst-one ent) to the bottom of the code and you should be golden.

From there, you can apply (_burst <ename>) and you are good to go.

Just seems like the hard way. wouldn't:

 (load "burst.lsp")
(sssetfirst nil add)
(c:burst)

do the same thing without duplicating any copyrighted code?

[alanjt]

Just seems like the hard way. wouldn't:

 (load "burst.lsp")
(sssetfirst nil add)
(c:burst)

do the same thing without duplicating any copyrighted code?

You are correct. Perhaps I just got a little ahead of myself. I just hate calling code like that, but as long as a few checks are run beforehand, it's a fine and much less labor intensive option.

[stusic]

The burst-one subroutine is the one that will need to be applied to all enames. So the subroutine will run successfully, grab all other subroutines except the main burst one.

Okay, I ditched the main routine, copied the rest into my routine (bypassing the need to load it), supplied my argument, but can't get it to work. I

Error: bad argument type: consp 1

        (foreach obj
		  (setvar "qaflags" 1)
		  (sssetfirst nil tmp)
		  (BURST-ONE tmp)
		  (setvar "qaflags" 0)
                )

[alanjt]

Okay, I ditched the main routine, copied the rest into my routine (bypassing the need to load it), supplied my argument, but can't get it to work. I

Error: bad argument type: consp 1

        (foreach obj
		  (setvar "qaflags" 1)
		  (sssetfirst nil tmp)
		  (BURST-ONE tmp)
		  (setvar "qaflags" 0)
                )

You don't need to select the object with sssetfirst and you have to feed burst-one an ename, not a pickset, or you could just go the method Tom and BBox mentioned.

[Tom Beauford]

You are correct. Perhaps I just got a little ahead of myself. I just hate calling code like that, but as long as a few checks are run beforehand, it's a fine and much less labor intensive option.

Lot of useful subrotines in Express Tools that can be called. I haven't used burst, but here's a routine that would be a lot more difficult without them.

 ;;; ReAssHatch.lsp requires Hatchutil.lsp which came with Express Tools.
;;; Add boundaries & reassociate them to a selection of Hatch entities.
;;; by: Tom Beauford
;;; BeaufordT@LeonCountyFL.gov
;;; LEON COUNTY PUBLIC WORKS ENGINEERING SECTION
(defun c:ReAssHatch ( / ss e# ent)
  (setq ss (ssget '((0 . "HATCH")(71 . 0)))
        e# (sslength ss)
  )
  (if(not acet-hatch-remake)(load "Hatchutil"))
  (repeat e#
    (setq e# (- e# 1))
    (acet-hatch-remake (ssname ss e#))
    (entdel (ssname ss e#))
  )
  (princ)
)

For any routine that requires loading another put the load in as early as you can. If it's a large file and you call one of it's functions right afterwards it may choke on itself. I use TcaseSup.lsp in a few routines for labeling text from Extended data since I hate ALLCAPS.

[alanjt]

Lot of useful subrotines in Express Tools that can be called. I haven't used burst, but here's a routine that would be a lot more difficult without them.

 ;;; ReAssHatch.lsp requires Hatchutil.lsp which came with Express Tools.
;;; Add boundaries & reassociate them to a selection of Hatch entities.
;;; by: Tom Beauford
;;; BeaufordT@LeonCountyFL.gov
;;; LEON COUNTY PUBLIC WORKS ENGINEERING SECTION
(defun c:ReAssHatch ( / ss e# ent)
  (setq ss (ssget '((0 . "HATCH")(71 . 0)))
        e# (sslength ss)
  )
  (if(not acet-hatch-remake)(load "Hatchutil"))
  (repeat e#
    (setq e# (- e# 1))
    (acet-hatch-remake (ssname ss e#))
    (entdel (ssname ss e#))
  )
  (princ)
)

For any routine that requires loading another put the load in as early as you can. If it's a large file and you call one of it's functions right afterwards it may choke on itself. I use TcaseSup.lsp in a few routines for labeling text from Extended data since I hate ALLCAPS.

Agreed. I've used (etrim <ename> <point>), from EXTRIM.lsp a few times.

[stusic]

... and you have to feed burst-one an ename, not a pickset....

Excuse my ignorance, but we're wading out into the deep end of the pool. I'm not sure why I can't supply the tmp variable as the ename (I'm unclear of the difference). Here's my tmp variable:

(setq tmp 							;; VLA Block Reference object
            (vla-insertblock
              spc 							;; Modelspace object
              (vlax-3d-point ins) 					;; Insertion point
              "M-GROUP-CSC-XML"   				;; Block name
              1.0 1.0 1.0 0.0           				;; (Scale=1:1, Rotation=0.0)
              ) ;; end vla-insertblock
                )

And here's my code as it stands now. I guess I need to know how to convert my selection set (of one block) to a single entity. Would I do this through somethign like this: (ssname tmp 0) ?

      (foreach obj
		  (_burst2 tmp)
                    )

But get:

Nested error trapping used incorrectly.
Resetting nesting index to 1.
bad argument type: lentityp #<VLA-OBJECT IAcadBlockReference2 0000000082beed18>

[alanjt]

(_burst2 (vlax-vla-object->ename tmp))