MDT6.0 and Burst command

[sams]

Hi Forum readers,
In R14 I used the "BURST" command that came with Autocad a few years ago. I am trying to find it in my MDT6.0 with no luck. Could any one help me find this command?
Thanks in advance.
SAMS

 

[borgunit]

;;;
;;;
;;; BURST.LSP
;;; Copyright © 1999 by Autodesk, Inc.
;;;
;;; Your use of this software is governed by the terms and conditions of the
;;; License Agreement you accepted prior to installation of this software.
;;; Please note that pursuant to the License Agreement for this software,
;;; "[c]opying of this computer program or its documentation except as
;;; permitted by this License is copyright infringement under the laws of
;;; your country. If you copy this computer program without permission of
;;; Autodesk, you are violating the law."
;;;
;;; AUTODESK PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS.
;;; AUTODESK SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF
;;; MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE. AUTODESK, INC.
;;; DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE
;;; UNINTERRUPTED OR ERROR FREE.
;;;
;;; Use, duplication, or disclosure by the U.S. Government is subject to
;;; restrictions set forth in FAR 52.227-19 (Commercial Computer
;;; Software - Restricted Rights) and DFAR 252.227-7013(c)(1)(ii)
;;; (Rights in Technical Data and Computer Software), as applicable.
;;;
;;; ----------------------------------------------------------------

(Defun C:BURST (/ item bitset bump att-text lastent burst-one burst
BCNT BLAYER BCOLOR ELAST BLTYPE ETYPE PSFLAG ENAME )

;-----------------------------------------------------
; Item from association list
;-----------------------------------------------------
(Defun ITEM (N E) (CDR (Assoc N E)))
;-----------------------------------------------------
; Error Handler
;-----------------------------------------------------

(acet-error-init
(list
(list "cmdecho" 0
"highlight" 1
)
T ;flag. True means use undo for error clean up.
);list
);acet-error-init


;-----------------------------------------------------
; BIT SET
;-----------------------------------------------------

(Defun BITSET (A B) (= (Boole 1 A B) B))

;-----------------------------------------------------
; BUMP
;-----------------------------------------------------

(Setq bcnt 0)
(Defun bump (prmpt)
(Princ
(Nth bcnt '("\r-" "\r\\" "\r|" "\r/&quot)
)
(Setq bcnt (Rem (1+ bcnt) 4))
)

;-----------------------------------------------------
; Convert Attribute Entity to Text Entity
;-----------------------------------------------------

(Defun ATT-TEXT (AENT / TENT ILIST INUM)
(Setq TENT '((0 . "TEXT&quot))
(ForEach INUM '(8
6
38
39
62
67
210
10
40
1
50
41
51
7
71
72
73
11
74
)
(If (Setq ILIST (Assoc INUM AENT))
(Setq TENT (Cons ILIST TENT))
)
)
(Setq
tent (Subst
(Cons 73 (item 74 aent))
(Assoc 74 tent)
tent
)
)
(EntMake (Reverse TENT))
)

;-----------------------------------------------------
; Find True last entity
;-----------------------------------------------------

(Defun LASTENT (/ E0 EN)
(Setq E0 (EntLast))
(While (Setq EN (EntNext E0))
(Setq E0 EN)
)
E0
)

;-----------------------------------------------------
; Burst one entity
;-----------------------------------------------------

(Defun BURST-ONE (BNAME / BENT ANAME ENT ATYPE AENT AGAIN ENAME
ENT SS-COLOR SS-LAYER SS-LTYPE mirror ss-mirror
mlast)
(Setq
BENT (EntGet BNAME)
BLAYER (ITEM 8 BENT)
BCOLOR (ITEM 62 BENT)
BCOLOR (Cond
((> BCOLOR 0) BCOLOR)
((= BCOLOR 0) "BYBLOCK&quot
("BYLAYER&quot
)
BLTYPE (Cond ((ITEM 6 BENT)) ("BYLAYER&quot)
)
(Setq ELAST (LASTENT))
(If (= 1 (ITEM 66 BENT))
(Progn
(Setq ANAME BNAME)
(While (Setq
ANAME (EntNext ANAME)
AENT (EntGet ANAME)
ATYPE (ITEM 0 AENT)
AGAIN (= "ATTRIB" ATYPE)
)
(bump "Converting attributes&quot
(ATT-TEXT AENT)
)
)
)
(Progn
(bump "Exploding block&quot
(acet-explode BNAME)
;(command "_.explode" bname)
)
(Setq
SS-LAYER (SsAdd)
SS-COLOR (SsAdd)
SS-LTYPE (SsAdd)
ENAME ELAST
)
(While (Setq ENAME (EntNext ENAME))
(bump "Gathering pieces&quot
(Setq
ENT (EntGet ENAME)
ETYPE (ITEM 0 ENT)
)
(If (= "ATTDEF" ETYPE)
(Progn
(If (BITSET (ITEM 70 ENT) 2)
(ATT-TEXT ENT)
)
(EntDel ENAME)
)
(Progn
(If (= "0" (ITEM 8 ENT))
(SsAdd ENAME SS-LAYER)
)
(If (= 0 (ITEM 62 ENT))
(SsAdd ENAME SS-COLOR)
)
(If (= "BYBLOCK" (ITEM 6 ENT))
(SsAdd ENAME SS-LTYPE)
)
)
)
)
(If (> (SsLength SS-LAYER) 0)
(Progn
(bump "Fixing layers&quot
(Command
"_.chprop" SS-LAYER "" "_LA" BLAYER ""
)
)
)
(If (> (SsLength SS-COLOR) 0)
(Progn
(bump "Fixing colors&quot
(Command
"_.chprop" SS-COLOR "" "_C" BCOLOR ""
)
)
)
(If (> (SsLength SS-LTYPE) 0)
(Progn
(bump "Fixing linetypes&quot
(Command
"_.chprop" SS-LTYPE "" "_LT" BLTYPE ""
)
)
)
)

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

(Defun BURST (/ SS1)
(setq PSFLAG (if (= 1 (caar (vports)))
1 0
)
)
(Setq SS1 (SsGet (list (cons 0 "INSERT&quot(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&quot
)
)
)

;-----------------------------------------------------
; BURST COMMAND
;-----------------------------------------------------

(BURST)

(acet-error-restore)

);end defun


(princ)

 

[FH]

Dear sams,
You can use the above lisp code or you should install the express tools on your MDT as follow:

Create a backup of the Express Tools Library before you install AutoCAD 2000i or AutoCAD 2002. Use this method if you need to completely uninstall AutoCAD 2000 before you install AutoCAD 2000i or AutoCAD 2002.
Use this procedure to back up the Express Tools library and then migrate the files to AutoCAD 2000i or AutoCAD 2002.
1. Before uninstalling AutoCAD 2000, make backup copies of the following Express Tools-related files:
o express\*.*
o support\acettest.fas
o help\acetmain.hlp
o help\acetmain.cnt
o help\acetfaq.hlp
2. Install AutoCAD 2000i or AutoCAD 2002, and reboot your computer.
3. Under the directory where you installed AutoCAD, create a subdirectory named Express. For example, if you installed AutoCAD on the C drive in the c:\program files\autocad 2000i directory, create the following directory: c:\program files\autocad 2000i\express.
4. Copy all of the Express Tools files from the express\*.* file that you backed up in step 1 into the new directory you created in step 3.
5. Copy the acettest.fas file to the AutoCAD support files subdirectory. For example, if you installed AutoCAD on the C drive in the c:\program files\autocad 2000i directory, the support files directory would be c:\program files\autocad 2000i\support.
6. Copy the acetmain.hlp, acetmain.cnt, and acetfaq.hlp files to the AutoCAD Help subdirectory.
7. On the command line, type appload and press ENTER.
8. Under Startup Suite, select Contents and choose Add.
9. Select the acettest.fas file in the AutoCAD support directory. This will cause this file to load every time AutoCAD is started. You may have to restart AutoCAD at this point.
10. Type expressmenu on the command line.


Farzad

 

[sams]

Thanks,
Borgunit and Farzad for your replies,
I will try Farzad's method, similar to which I remember I had used about eight years ago when I used R14.
Appreciate your replies.
sams

 

[jkelly]

Hello,

I am curious as to what the "BURST" command does?

 

[sams]

Hi Jkelly,
I used this Burst command when it came with R14 pulldown menu, for exploding blocks that would not explode with of course the "explode" command. "Burst" could even explode text in to it's pieces, so strong it was. I needed it lately in MDT6.0 and could not find it in the pull down menus and therefore my question.
Thanks for asking
sams