text concatenate
@sudarsann wrote:
hi,
Is any lisp to concatenate two or more text strings using ',' between those strings.
Sudarsan
Hi sudarsann,
another...
_$ (defun lst2str (lst del)
(vl-string-left-trim del (apply 'strcat (mapcar '(lambda (x) (strcat del x)) lst)))
)
LST2STR
_$ (lst2str '( "abc" "def" "ghi") ",")
"abc,def,ghi"
_$
Hope this helps,
Henrique
@Anonymous wrote:
Something like this?
....
I'm not sure why others are suggesting things that work with lists of text strings, when Post 2 clearly indicates that your intention is to select existing Text objects on-screen. Your approach is fine, though it can be simplified/consolidated somewhat.
You don't need the (graphscr), because if you're in the text screen, the (entsel) will pop you into the graphics screen. And you don't need the (command) without arguments, because you won't be able to enter CONC as a command unless you're already at the Command: prompt, so there won't be any other command active that you need to cancel. You have a variety of variables that are used only once, in which case you may as well skip the variable, and do what you would do to set it right where it's used. You can include a prompt inside (entsel) rather than separately before it. And whether to retain appended text can be just a T or nil value, rather than setting a number for it.
Lightly tested:
(defun C:CONC (/ del a b c)
(command ".redraw")
(initget "Yes No")
(setq
del (/= (getkword "\nRetain Appended Text? [Y/N] <N>: ") "Yes"); T for No or Enter
a (entsel "\nSelect Text to Remain->")
); setq
(while (setq b (entsel "\nSelect Text to Append -> "))
(setq c (entget (car a)))
(entmod ; update 1st string
(subst
(cons 1 (strcat (cdr (assoc 1 c)) "," (cdr (assoc 1 (entget (car b))))))
(assoc 1 c)
c
); subst
); entmod
(if del (entdel (car b)))
); while
(princ)
)
It could be made fancier, e.g. to ensure you picked something, restrict selection to Text [and/or Mtext if you like], etc.
Kent1Cooper wrote:
> I'm not sure why others are suggesting things that work with lists of text strings, when Post 2 clearly indicates that your intention is to select existing Text objects on-screen. ....
My apologies to "others" -- I somehow glanced too quickly to notice that Post 2 is not from the same person as Post 1 [both starting with s, of similar length and similar icon color...]. Maybe a list of strings is appropriate. I think the OP needs to clarify what the actual operation would be.
@F.Camargo wrote:
... I need concatenate only 2 text and continue the comand to the next 2 text? ....
Is the idea that you would pick Text objects one at a time, and the content of the second one would be tacked onto the end of the first one [with the same comma separator as in Message 1], then that of the fourth would be tacked onto the end of the third, etc.?
Simply put, and on the assumption that you want the second one of each pair [whose content gets appended to the first one] removed, try this [minimally tested]:
(defun C:TC2 (/ ss1 ss2 d pea n) ; = Text: Concatenate 2 at a time
(while
(and
(setq tsel1 (entsel "\nSelect base Text object or <exit>: "))
(setq tdata1 (entget (car tsel1)))
(member '(0 . "TEXT") tdata1)
); and
(if
(and
(setq tsel2 (entsel "\nSelect Text object to append: "))
(setq tdata2 (entget (car tsel2)))
(member '(0 . "TEXT") tdata2)
); and
(progn ; then
(entmod
(subst
(cons 1 (strcat (cdr (assoc 1 tdata1)) "-" (cdr (assoc 1 tdata2))))
(assoc 1 tdata1)
tdata1
); subst
); entmod
(entdel (car tsel2))
); progn
); if
); while
(prin1)
)It is built for Text only, but can easily be made to allow Mtext also, though there are potential complications there [internal formatting, splitting of the content of very long ones, etc.].