lisp to explode Attribute definition to text

[Anonymous]

Hi, i have those texts in the attached file which is can not explode normaly

can any one help?

[Patchy]

Use Express

[Gabriel_Watson]

Testing the sample file, I think you're in trouble, as these cannot be exploded even with BURST command (as suggested above).
You can go through a workaround by first converting the text to regular Mtext (step 1), then exploding the text as usual (step 2):

[ВeekeeCZ]

Removed. Use atd2txt

[user181 · Accepted solution]

Load the attached lisp with appload command and use A2T to start the lisp. It will convert the objects to text. 

[Anonymous]

thanks a lot it works

[imadHabash]

Try to follow this link and download this lisp .. Click on below image to see how it's work .

[devitg]

@Anonymous , see my way to do 

;************************************************************
;;Inicia att-def to txt maielsawi
 ;*****************************************************************
;; Design by Gabo CALOS DE VIT from CORDOBA ARGENTINA
;;;    Copyleft 1995-2021 by Gabriel Calos De Vit ; DEVITG@GMAIL.COM    
;;



;;************************************************************************************************************
(DEFUN &-TEXT/STR-PT-HEI  (STR PT HEIG / P1) ;_ 01
  (IF (= (TYPE PT) 'LIST)
    (SETQ P1 (VLAX-3D-POINT PT))
    (SETQ P1 PT)
    )
  (VLA-ADDTEXT MODEL STR P1 HEIG)
  )


;;;*************************************************************;;;


(DEFUN EXPLODE-ATTDEF-TO-TEXT-ATTDEF  (/
ACAD-OBJ
ADOC
ATTDEF-OBJ-INSERT-VAR
ATTDEF-OBJ-SS
ATTDEF-OBJ-TEXT$
ATTDEF-OBJ-TEXT-HEIGHT
MODEL
SELECTIONSETS
TEXT
                                       )

  (VL-LOAD-COM)
  (SETQ ACAD-OBJ (VLAX-GET-ACAD-OBJECT)) ;_ el programa ACAD 
  (SETQ ADOC (VLA-GET-ACTIVEDOCUMENT ACAD-OBJ)) ;_ el DWG que esta abierto-
  (SETQ MODEL (VLA-GET-MODELSPACE ADOC))
  (SETQ SELECTIONSETS (VLA-GET-SELECTIONSETS ADOC))


  (SSGET "X"
         '((0 . "ATTDEF")
           (100 . "AcDbEntity")
           (67 . 0)
           (410 . "Model")
           (8 . "text")
           (62 . 7)
           (100 . "AcDbText")))

  (SETQ ATTDEF-OBJ-SS (VLA-GET-ACTIVESELECTIONSET ADOC))

  (VLAX-FOR ATTDEF-OBJ  ATTDEF-OBJ-SS
    (SETQ ATTDEF-OBJ-TEXT-HEIGHT (VLA-GET-HEIGHT ATTDEF-OBJ))

    (SETQ ATTDEF-OBJ-TEXT$ (VLA-GET-TAGSTRING ATTDEF-OBJ))

    (SETQ ATTDEF-OBJ-INSERT-VAR (VLA-GET-INSERTIONPOINT ATTDEF-OBJ))

    (SETQ TEXT (&-TEXT/STR-PT-HEI ATTDEF-OBJ-TEXT$ ATTDEF-OBJ-INSERT-VAR ATTDEF-OBJ-TEXT-HEIGHT))

    (VLA-DELETE ATTDEF-OBJ)
    )
  )


(DEFUN C:EXP-ATT  ()

  (EXPLODE-ATTDEF-TO-TEXT-ATTDEF)
(prompt "\n Type EXP_ATT, at COMMAND LINE")

  )
;|«Visual LISP© Format Options»
(200 2 1 0 nil "end of " 100 20 2 2 nil nil T nil T)
;*** DO NOT add text below the comment! ***|;