Write text with limited decimal places

[Anonymous]

I am trying to put a bearing and distance on every line in a drawing with 3 decimal places on the distance.

I have got the routine to save the needed values but when I write them to text the distance has a bunch of trailing zeros. I need to limit the decimal places to 3.

(setq Dist (getpropertyvalue line "length"))  ;line is set to an entity from a defined selection set

(Dist+ (atof (rtos dist 2 3)))      ;This should round the value to 3 decimal places

(command "_.text" "s" "micro" "j" "m" Dpoint TxtHt AngDMS Dist+) ;Dpoint, TxtHt, AngDMS are all defined parameters

The printed text is rounded to 3 decimal places but still prints the trailing zeros.

How can I limit the zeros?

[_gile]

Hi,

Have a look at the DIMZIN system variable.

[dlanorh]

Posting the complete lisp might help solve the issue your having.

[scot-65 · Accepted solution]

Text accepts a string input for the value.
I believe ATOF does not belong there [alpha to floating decimal].

(setq Dist (rtos (getpropertyvalue line "length") 2 3))

???

[Anonymous]

.