Replace Text Is it Possible

[jaimuthu]

I have more than 5000 hatch object with leader and text the text is show area of the hatch its area wrong, i want select all hatch exisitng leader text value is replace to correct  area of text here i attach file what i want 

[vladimir_michl]

It will be quite complicated to "follow the line" from the Text to the proper Object (hatch). It might be easier to use fields (maybe fields inside MLeader) to re-create the labels.

Vladimir Michl, www.arkance.world  -  www.cadforum.cz

[-didier- · Accepted solution]

Bonjour @jaimuthu (depuis la France).

Here is the program I propose.
I tested it, and it works in your example environment.

I have redefined the alignment of the text to the right point and the width of the text so that it is only on one line

If you have any problems, I thank you for letting me know and we will discuss.

Here is the video of my screen :

Amicalement

[jaimuthu]

great job

[jaimuthu]

great job thanks for 1000000 times 

[-didier-]

Bonjour @jaimuthu 

I’m happy if it’s useful.

Beware of units they can prohibit the selection that I imagined.

If you see any errors, please let me know and I will make adjustments.

Amicalement, from France.

[paullimapa · Accepted solution]

excellent coding...I also added the following for @jaimuthu 

1. Place Text on specified Layer "TEXT" and Color "2" Yellow:

    (setq txtlyr "TEXT" ; layer for text
          txtcol "2"    ; color for text
    )

2. Created Field value for Hatches Layer & Area values so that the next time these change they're updated automatically:

;                (setq la (vlax-get-property h 'layer))
 (setq la(strcat "%<\\AcObjProp Object(%<\\_ObjId " (itoa(vla-get-ObjectID h)) ">%).Layer>%")) ; create layer as field
;                (setq ha (/ (vlax-get-property h 'area) 1000000.0))
 (setq ha(strcat "%<\\AcObjProp Object(%<\\_ObjId " (itoa(vla-get-ObjectID h)) ">%).Area \\f \"%lu2%pr2%ct8[1.000000000000000E-006]\">%")) ; create area as field

;                        (setq val (strcat "Layer: " la ", Area: " (rtos ha 2 2) " sq.m"))
                        (setq val (strcat "\\C" txtcol ";Layer: " la ", Area: " ha " sq.m")) ; layer & area as field in color

                        (vlax-put-property tex  'Layer txtlyr)

[-didier-]

Bonjour @paullimapa 

Thank you.

Your improvement is a perfect idea.

Amicalement

[paullimapa]

You are welcome…cheers!!!