lisp to copy a text on another text

[Dario1982]

Hello everyone.. a few years ago I worked in an engineering company where there was loaded a fantastic lisp: allowed to copy the contents of a text on another text, without having to make paste copy. .practically a "adopt property" in which instead of color, layer etc., the source object transferred the text content to the target object. Now I'd be really comfortable, does anyone know how I can do to find a lisp like that? Thank you!

 

[dieva]

Good idea!
I wrote this to you. It should work. you can also select the text of a quota.

;
;; copy the selected text within another
;; d.i. 23/10/2014
; ;
(vl-load-com)
(defunct c:cot (/ t1 t2 txt1 txt2)
(f)
(and (setq t1(nentsel"\nselect text to be copied)))
(setq t2(nentsel"\nselect target text"))
)
(progn)
(setq txt1(vla-get-textstring (vlax-ename->vla-object(car t1)))))
(setq txt2(vla-get-textstring (vlax-ename->vla-object(car t2))))))
(vla-put-textstring (vlax-ename->vla-object(car t2)) (strcat txt2 " txt1))
)

)
)

 

[GP.]

I'm flying too. .
Unlike the domenic lisp does not add, but replaces the target text.

Yeah, good idea. :smile:

 

[Dario1982]

thanks to both, it works perfectly!

 

[x11start]

..... there is also my copytxt.lsp that works on text (text) - mtext (multiline text) and quotas.

 

[Cristallo]

thinking that it can be useful to someone, I brought together the 2 lisp of ieva and gp in one file, with small tricks, reporting the paternity of the routines.
I hope you don't mind.
View attachment TXTMOD.lspeven if for these functions I use ctx of mac lee and ttc of asmitools

 

[GP.]

I hope I don't mind. .

absolutely not, "stay" in a lisp with domenico ieva can be only an honor. :smile:

But if you think of any other program, consider the "beautiful esmerald" of which you know. :tongue::

 

[Cristallo]

Who's emerald?

 

[GP.]

You're getting old.
I sent you an email.