Change DimStyle Precision in Multiple Drawings

[ASQ]

Hi guys, im looking for a quick way for change the dimension precision in multiple files. 

I need to change from 0.000 to 0.00 in multiple files. I dont want open each drawing and set the precision to 2 decimal. You know we look for the quick and less bored way of do things. 

 

Thanks 

[devitg]

6 hours ago, ASQ said:

Hi guys, im looking for a quick way for change the dimension precision in multiple files. 

I need to change from 0.000 to 0.00 in multiple files. I dont want open each drawing and set the precision to 2 decimal. You know we look for the quick and less bored way of do things. 

 

Thanks 

@ASQ, Maybe it can be done by ODBX, please upload at least 3 samples.dwg

 

[Steven P]

Without testing this, no error checking and taken from something else, should change the dimension style "Standard" to 2 decimal places - amend the code to suit

 

Just need to apply it to your preferred batch method changing all the drawings (see scriptpro or Lee Macs script editor, or the core console)

 

(defun c:dimDPs ( / Precision DimStyleName )
  (setq DimStyleName "Standard") ; Change Standard to your required dimension
  (setq Precision 2) ; Decimal places

  (setvar "DIMADEC" Precision) ;angular precision
  (setvar "DIMALTD" Precision) ;alternative units precision
  (setvar "DIMDEC"  Precision) ;dimension precision
  
  (setq dimstylelist (tableSearch "dimstyle")) ; get list of dimstyles in drawing
  (if (= (member DimStyleName dimstylelist) nil) ; if dimstyle doesn't exist
    (command "dimstyle" "s" DimStyleName)
    (command "dimstyle" "s" DimStyleName "Y")
  ) ; end if
  (princ)
)

 

Edited August 4, 2023 by Steven P

[devitg]

22 hours ago, ASQ said:

Hi guys, im looking for a quick way for change the dimension precision in multiple files. 

I need to change from 0.000 to 0.00 in multiple files. I dont want open each drawing and set the precision to 2 decimal. You know we look for the quick and less bored way of do things. 

 

Thanks 

@ASQ, Maybe it can be done by ODBX, please upload at least 3 samples.dwg

 

[BIGAL]

Steven P  (tblsearch "dimstyle" "TA-DIM-50") your missing style name.

 

[Steven P]

Thanks BigAl 

[BIGAL]

I am not sure that changing the dimstyle will change the dim text. You may need to change each existing dim, new dims will use the 2 decs.

 

(setq obj (vlax-ename->vla-object (car  (entsel "Pick dim obj"))))
(vlax-put obj 'PrimaryUnitsPrecision 2)

 

[Steven P]

It does in the LISP I copied this from - though of course I might have missed something. Perhaps the best bet is change the dim style so that future dimensions are to 2 places and then change the existing dimensions to ensure they are correct to?

 

Once that works OK for one drawing then look at multiple drawings, ODBX Devitg? (putting this link here for my reference for that part: https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/odbx-copyobjects-question/td-p/1937998 - references DimStyles)

 

Also thinking might have to avoid VL- functions so that the OP can use the core console if just changing the DimStyle won't work and you need to go through each drawing?