Topic: text changed

[taner]

Dear all,

Can anyone do me a favour to write such a program described as the attachment.
I guess it may use reactor.

Thanks in advance.

[Crank]

You don't need a reactor, this is possible with a field.
Objects > Object > (select the other text) > Contents

[Crank]

Code: [Select]

(defun c:sametext (/ ent1 ent2 objID)
(command "_undo" "BEGIN")
(vl-load-com)
(setq ent1 (car (entsel "\nSelect original text: ")))
;;convert the entity to an object
(setq objID (vla-get-objectid (vlax-ename->vla-object ent1))
     str   (strcat "%<\\AcObjProp Object(%<\\_ObjId " (rtos objID 2 0) ">%).TextString>%")
)
(setq ent2 (vlax-ename->vla-object (car (entsel "\nSelect text to be the same: "))))
(vla-put-textstring ent2 str)
(vla-update ent2)
(command "_undo" "END")
(princ)
)

[taner]

Code: [Select]

(defun c:sametext (/ ent1 ent2 objID)
)

Thanks very much for your code,but I do not like to select twice(target and source).While one was change,the other(which has some special relatation with the first "text1")would be changed at the same time just like block.

Thanks!

[Kerry]

Tsec2nd 


First:
You have to SETUP your second text to read the first text VALUE.
Crank's program does this.
Run his code.

THEN :-

When you change the value of the first text, REGEN and the second value should change.


 
 

[taner]

Tsec2nd 


First:
You have to SETUP your second text to read the first text VALUE.
Crank's program does this.
Run his code.

THEN :-

When you change the value of the first text, REGEN and the second value should change.


 
 

Thanks! Kerry and Crank

It runs well,but how to erase the bankground of 2nd "text1"?
thanks

[Kerry]

Command: FIELDDISPLAY
Enter new value for FIELDDISPLAY <1>: 0

[Crank]

Tsec2nd, I should leave FIELDDISPLAY=1, because then you know which text you have to change. The background isn't plotted anyway.