Combine Text Entities

Looking for a routine that combines two or more text entities into one text entity. NOT Mtext. Thanks

 

There have been a number of such routines discussed over time in the
Customization group. Which one you need will depend on what you intend to do
with the new text entity, and the disposition of the old ones. Check into
the Customization group and give a few more details as to what you want to
do, and you're certain to get some help.
___

text entity. NOT Mtext. Thanks

 

Use Express tools TXT2MTXT, then EXPLODE.

 

When you say "two or more text entities", do you mean two or more styles with two or more (or the same)
font?

 

You could also create a block with editable attributes using two text styles....it's "sort of" a routine.

 

Hello, vaughan!
You can try:
http://paracadd.com/lisp/gst.lsp
or
http://paracadd.com/lisp/gstr.lsp


You wrote on Sat, 31 Jul 2004 15:54:37 GMT:

v> Looking for a routine that combines two or more text entities into one
v> text entity. NOT Mtext. Thanks

With best regards, Anatoliy Kurgan.

 

Well, I have a routine that will change two or more texts but you have failed to answer. How much can
someone help you if you don't respond?

 

Thanks Anatoliy, Gst is exactly what I was looking for.

FYI all, was simply converting dwgs from outside source for my use, and text strings that appeared to be one were actually two side by side. Was trying to avoid the extra steps with the txt2mtxt route.

Styles were unimportant, as they can be changed globally after combining all the split strings. Gst, though, does apply the style of the first picked to the new.

 

little file that works ok.

adds one to another

;; JT.LSP
;; JOIN TEXT ENTITIES INTO ONE STRING. ERASES LAST ENTITY.
;;
(defun c:jt (/ ss STR1 STR1LIST STR1VALUE STR2 STR2LIST STR2VALUE NEWSTR)
(princ "\nSelect text string to expand: ")
(setq ss (ssget))
(if ss (progn
(setq str1 (ssname ss 0))
(setq STR1list (entget str1))
(setq str1value (cdr (assoc 1 str1list)))
(setq str2 (car (entsel "\nSelect string to add: ")))
(if str2 (progn
(setq str2list (entget str2))
(setq STR2value (cdr (assoc 1 str2list)))
(setq newstr (strcat str1value " " str2value))
(command "change" ss "" "" "" "" "" "" newstr)
(PRINC)
(COMMAND "ERASE" STR2 "")
))
))
); end jt.lsp