Changing the precision of fields

[Nikon]

There are several fields with 1 decimal place.
Is there a way to convert selected fields with 1 decimal
place into fields with 2 decimal places without losing the connection of fields with objects?

The field is 1 decimal place
%<\AcExpr (3.1416*%<\_FldPtr 1317270971888>%^2/4*0.0785*%<\_FldPtr 1317270971632>%*%<\_FldPtr 1317270971472>%/10000) \f "%lu2%pr1">%

The field is 2 decimal places
%<\AcExpr (3.1416*%<\_FldPtr 1317157078864>%^2/4*0.0785*%<\_FldPtr 1317157078096>%/10000) \f "%lu2%pr2">%

fields.dwg

Edited 25 minutes ago by Nikon

[Steven P]

"pr2" is precision - here 2 places, "pr1" at the end of the first expression is 1 decimal place

[Nikon]

15 hours ago, Steven P said:

"pr2" is precision - here 2 places, "pr1" at the end of the first expression is 1 decimal place

I have dozens of fields that need to be changed the precision.
It will take a long time to edit each field...

Edited 19 minutes ago by Nikon

[BIGAL]

If you can identify where the field strings are then you could update them, you can look for say "AcExpr" in the string then replace pr1. Maybe use Bedit and Attsync to update blocks. Similar for Mtext.

 

So where are they ? Provide a sample dwg, You should be able to do something by now look at (Vlax-get obj 'textstring)

Edited 5 hours ago by BIGAL

[Nikon]

23 minutes ago, BIGAL said:

So where are they ? Provide a sample dwg,

The fields are in the text, not in the block.
The sample fields.dwg is attached in the first post.
The problem is that you need to change the accuracy of several fields at the same time.

[Tsuky]

You can try this.

(vl-load-com)
(defun c:change_prec ( / ss AcDoc Space n ename Obj value_string nbs tmp_nbs)
  (princ "\nSelect MText.")
  (while
    (null
      (setq ss
        (ssget
          (list
            '(0 . "*TEXT")
            (cons 67 (if (eq (getvar "CVPORT") 1) 1 0))
            (cons 410 (if (eq (getvar "CVPORT") 1) (getvar "CTAB") "Model"))
          )
        )
      )
    )
    (princ "\nAren't MText or Text!")
  )
  (setq
    AcDoc (vla-get-ActiveDocument (vlax-get-acad-object))
    Space
    (if (= 1 (getvar "CVPORT"))
      (vla-get-PaperSpace AcDoc)
      (vla-get-ModelSpace AcDoc)
    )
  )
  (vla-startundomark AcDoc)
  (repeat (setq n (sslength ss))
    (setq
      ename (ssname ss (setq n (1- n)))
      Obj (vlax-ename->vla-object ename)
    )
    (setq value_string (vla-FieldCode Obj) nbs 0)
    (cond
      ((eq (substr (vla-FieldCode Obj) 1 3) "%<\\")
        (while nbs
          (if (setq nbs (vl-string-search "%pr2" value_string (setq tmp_nbs nbs)))
            (setq
              value_string (vl-string-subst "%pr1" "%pr2" value_string tmp_nbs)
              nbs (1+ nbs)
            )
          )
        )
        (vlax-put Obj 'TextString value_string)
      )
    )
  )
  (vla-endundomark AcDoc)
  (prin1)
)

 

[Nikon]

39 minutes ago, Tsuky said:

You can try this.

(vl-load-com)
(defun c:change_prec 

@Tsuky thank you very much, your code changes the precision of the fields from 2 to 1. 
I replaced 2 lines in the code to change the precision from 1 to 2.

(if (setq nbs (vl-string-search "%pr2" value_string (setq tmp_nbs nbs)))
            (setq
             value_string (vl-string-subst "%pr1" "%pr2" value_string tmp_nbs)
* * * *  * * * *  * * * *  * * * *  
(if (setq nbs (vl-string-search "%pr1" value_string (setq tmp_nbs nbs)))
            (setq
              value_string (vl-string-subst "%pr2" "%pr1" value_string tmp_nbs)

* * * *  * * * *  * * * *  * * * * 

You've been very helpful!