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 2 hours 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 2 hours 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 7 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!   

 

[Nikon]

2 hours ago, Tsuky said:

You can try this.

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

I have made several versions of the change_prec.lsp code. 
Maybe it will be useful to someone.

Changing the precision of several fields 
===========================================================
change_prec_1-2.lsp === changing the precision of the fields from 1 to 2
change_prec_1-3.lsp === changing the precision of the fields from 1 to 3
change_prec_2-1.lsp === changing the precision of the fields from 2 to 1
change_prec_2-3.lsp === changing the precision of the fields from 2 to 3
change_prec_3-1.lsp === changing the precision of the fields from 3 to 1
change_prec_3-2.lsp === changing the precision of the fields from 3 to 2
===========================================================

change_prec_fields.lsp

[mhupp]

Added a little on the front end to wrap it all in one command with user input options. Should display something like this

 

Change_Prec or CP
Enter "C" for Custom Values
Choose Percision From:To : [1:2 1:3 2:1 2:3 3:1 3:2]: 3:2
Changing Select MText Precision From [3] to [2]
...

Change_Prec or CP
Enter "C" for Custom Values
Choose Percision From:To : [1:2 1:3 2:1 2:3 3:1 3:2]: C
Existing Precision: 1
Precision Change to: 4
Changing Select MText Precision From [1] to [4]
...

Change_Prec 2 1
Changing Select MText Precision From [2] to [1]
...

 

-Edit

Updated it so you can just type "Change_Prec 3 2"  and skip all that and just start asking you to make a selection.

 

change_prec_fields_update.lsp

Edited 32 minutes ago by mhupp

[Nikon]

28 minutes ago, mhupp said:

Added a little on the front end to wrap it all in one command with user input options. Should display something like this

Thanks, that's a good idea, but this code doesn't work for me. I can't save the code in ANSI encoding. I save the ANSI encoded code and close it. 
Then I open it again - the encoding remains UTF-8.

[mhupp]

I'll have to debug it when i get home just typed it up in note pad.