topic Re: lisp to explode Attribute definition to text in AutoCAD Forum

lisp to explode Attribute definition to text

Anonymous — Thu, 21 Oct 2021 14:14:14 GMT

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

can any one help?

Re: lisp to explode Attribute definition to text

Patchy — Thu, 21 Oct 2021 14:18:23 GMT

Use Express

Re: lisp to explode Attribute definition to text

Gabriel_Watson — Thu, 21 Oct 2021 14:43:01 GMT

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):

Re: lisp to explode Attribute definition to text

ВeekeeCZ — Thu, 21 Oct 2021 14:51:34 GMT

Removed. Use atd2txt

Re: lisp to explode Attribute definition to text

user181 — Thu, 21 Oct 2021 14:49:57 GMT

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

Re: lisp to explode Attribute definition to text

Anonymous — Thu, 21 Oct 2021 14:57:15 GMT

thanks a lot it works

Re: lisp to explode Attribute definition to text

imadHabash — Thu, 21 Oct 2021 15:01:13 GMT

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

Re: lisp to explode Attribute definition to text

devitg — Thu, 21 Oct 2021 15:32:15 GMT

@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! ***|;