TEXT TO LINE

[pegasus]

Hi,

I want to explode the text and mtexts written in a certain layer and make a line. The txtexp command both has to make a selection and pulls it to the current layer. Is there any solution about this? Thank you from now.

[BIGAL]

Post a image or better yet a dwg.

[mhupp]

You also might want to join the lines after the explostion. if your going use the new geometry somehow. 

[pegasus]

 

7 minutes ago, BIGAL said:

Post a image or better yet a dwg.

 

here is an mtext. With the autocad txtexp command, this text takes the properties of whatever layer exists at that moment. I also wrote the texts I want to line in a single layer and I want to select the text, text in that layer.

0.dwg

[mhupp]

;;----------------------------------------------------------------------------;;
;; EXPLODES TEXT AND MOVES TO CURRENT LAYER
(defun C:FOO (/ SS SS1 LastEnt lay)
  (vl-load-com)
  (setq ss1 (ssadd))
  (if (setq SS (ssget))
    (progn
      (setq LastEnt (entlast))
      (command "_.Txtexp" SS "")
      (while (setq LastEnt (entnext LastEnt))
        (ssadd LastEnt SS1)
      )
    )
  )
  (if (> (sslength SS1) 0)
    (progn
      (command "_.CHPROP" SS1 "" "_LA" (getvar 'clayer) "")
    )
  )
  (princ)
)

 

Edited January 28, 2023 by mhupp

[pegasus]

14 minutes ago, mhupp said:

;;----------------------------------------------------------------------------;;
;; EXPLODES TEXT AND MOVES TO CURRENT LAYER
(defun C:FOO (/ SS SS1 LastEnt lay)
  (vl-load-com)
  (setq ss1 (ssadd))
  (if (setq SS (ssget))
    (progn
      (setq LastEnt (entlast))
      (vl-cmdf "_.Txtexp" SS "")
      (while (setq LastEnt (entnext LastEnt))
        (ssadd LastEnt SS1)
      )
    )
  )
  (if (> (sslength SS1) 0)
    (progn
      (command "_.CHPROP" SS1 "" "_LA" (getvar 'clayer) "")
    )
  )
  (princ)
)

 

sorry, didn't work  

but there is TXTEXP command in Autocad. how does it not detect

 

Select objects:
_.Txtexp Unknown command "TXTEXP".  Press F1 for help.
Command: <Selection set: 639>

[mhupp]

Changed out vl-cmdf to command that might help.

Edited January 28, 2023 by mhupp

[devitg]

I do not why , fom lisp I get this

 

 

But from command line TXTEXP. work as expected

 

 

neither with  

 

 

Edited January 28, 2023 by devitg
add vl-cmdf

[pegasus]

13 minutes ago, devitg said:

I do not why , fom lisp I get this

 

 

But from command line TXTEXP. work as expected

 

 

neither with  

 

 

 

 

 

I get the same result with add vl-cmdf . what could be the reason

[mhupp]

You updated to?

(command "_.Txtexp" SS "")

 

[pegasus]

20 hours ago, mhupp said:

You updated to?

(command "_.Txtexp" SS "")

 

EXPLODES TEXT AND MOVES TO OWN LAYER 

[BIGAL]

Best answer is download "Text 2 geom by Seant", he lingers here at times. He should advise you of correct download link. This will do True Type Fonts as well.

 

 

[pegasus]

maybe when the text and mtexts are lines, I should be in that layer with the command and all the selected text,mtexts in the layer I specified should return to the line. But of course it throws an error. where did i go astray?

 

(defun c:fin ( / ss i e)
(setq (ssget 'CLayer (layerName "LAYER1")))
(and
(if (setq ss (ssget "_X" '((0 . "TEXT,MTEXT"))))
(and (wcmatch (vla-get-objectname mdl) "AcDbMText,AcDbText")
              (wcmatch (strcase (vla-get-layer mdl)) "LAYER1"))
         )
)         
    (repeat (setq i (sslength ss))
    (setq e (ssname ss (setq i (1- i))))
       (command-s "_.Zoom" "Object" e "")    
    (sssetfirst nil (ssadd e))(C:TXTEXP)
            )
           )

[tombu]

Honestly have no idea what you're trying to do but the quickest and easiest way to create a linetype with text is using ronjonp's "Make Linetype With Embedded Characters": https://www.theswamp.org/index.php?topic=47058.msg520876#msg520876

[pegasus]

1 hour ago, tombu said:

Honestly have no idea what you're trying to do but the quickest and easiest way to create a linetype with text is using ronjonp's "Make Linetype With Embedded Characters": https://www.theswamp.org/index.php?topic=47058.msg520876#msg520876

no actually it is not. I want text and mtexts written in a certain layer to make the selection txtexp. The lines formed should carry the properties of the previous layer, not the current one.

[Tsuky]

Try with this

(defun c:my_txtexp ( / ss n ent dxf_ent lay sel lastent next lastent e dxf_e)
  (setq ss (ssget ":L" '((0 . "*TEXT"))))
  (cond
    (ss
      (if (not c:txtexp) (load "txtexp"))
      (repeat (setq n (sslength ss))
        (ssadd)
        (setq
          ent (ssname ss (setq n (1- n)))
          dxf_ent (entget ent)
          lay (cdr (assoc 8 dxf_ent))
          sel (ssadd ent)
          lastent (entlast)
        )
        (sssetfirst nil sel)
        (c:txtexp)
        (if (and lastent (entget lastent))
          (progn
            (setq
              sel nil
              sel (ssadd)
            )
            (while
              (setq next (entnext lastent))
              (ssadd next sel)
              (setq lastent next)
              sel
            )
          )
        )
        (if sel
          (repeat (setq i (sslength sel))
            (setq
              e (ssname sel (setq i (1- i)))
              dxf_e (entget e)
              dxf_e (subst (cons 8 lay) (assoc 8 dxf_e) dxf_e)
              dxf_e (subst (cons 62 256) (assoc 62 dxf_e) dxf_e)
            )
            (entmod dxf_e)
          )
        )
      )
    )
  )
  (prin1)
)

 

[pegasus]

really thank you for your help @Tsuky. Even in this state, it is very useful to select the text and mtexts in the layer I want with select similar and run this command.

 

16 hours ago, Tsuky said:

Try with this

(defun c:my_txtexp ( / ss n ent dxf_ent lay sel lastent next lastent e dxf_e)
  (setq ss (ssget ":L" '((0 . "*TEXT"))))
  (cond
    (ss
      (if (not c:txtexp) (load "txtexp"))
      (repeat (setq n (sslength ss))
        (ssadd)
        (setq
          ent (ssname ss (setq n (1- n)))
          dxf_ent (entget ent)
          lay (cdr (assoc 8 dxf_ent))
          sel (ssadd ent)
          lastent (entlast)
        )
        (sssetfirst nil sel)
        (c:txtexp)
        (if (and lastent (entget lastent))
          (progn
            (setq
              sel nil
              sel (ssadd)
            )
            (while
              (setq next (entnext lastent))
              (ssadd next sel)
              (setq lastent next)
              sel
            )
          )
        )
        (if sel
          (repeat (setq i (sslength sel))
            (setq
              e (ssname sel (setq i (1- i)))
              dxf_e (entget e)
              dxf_e (subst (cons 8 lay) (assoc 8 dxf_e) dxf_e)
              dxf_e (subst (cons 62 256) (assoc 62 dxf_e) dxf_e)
            )
            (entmod dxf_e)
          )
        )
      )
    )
  )
  (prin1)
)

 

 

[tombu]

On 1/29/2023 at 6:28 PM, BIGAL said:

Best answer is download "Text 2 geom by Seant", he lingers here at times. He should advise you of correct download link. This will do True Type Fonts as well.

 

 

It doesn't work with newer windows and newer Autocad so it was deleted. https://forums.autodesk.com/t5/autocad-forum/text-to-graphics-vector/m-p/9147387#M1000252

[BIGAL]

tombu trying to find latest version. I have something.

 

Text 2 geom.zip

Edited February 6, 2023 by BIGAL