topic Re: Rounding down dimension values in Visual LISP, AutoLISP and General Customization Forum

Rounding down dimension values

curro.aguilera — Mon, 30 Aug 2021 09:52:20 GMT

Hi!

Please help me, I would like a LISP to round down existing dimension values, for example:

5,87-> 5,80

6,79->6,70

One important thing is that the value the lisp would get to round is the real value of the dimension, in case that dimension changes in the future so I can run the lisp again.

I've searched a lot and I only found a lisp to round up, and it's in feets&inches.

Thank you very much!

Re: Rounding down dimension values

hak_vz — Mon, 30 Aug 2021 11:00:05 GMT

Try this. Returns rounded number to n decimal places as a string. Not thoroughly tested but it serves me for years.

(defun round (num places / neg ret b a1 poz _r portions i frac n) ; (defun minusp (num) (cond ((numberp num) (< num 0.0)))) (setq neg (minusp num) places (abs places) a1 (rtos num 2 places) poz(vl-string-position (ascii ".") a1) ) (if poz (progn (setq _rem (substr a1 1 (+ poz 1))) (setq frac (vl-string-left-trim _rem a1)) ) (setq frac "") ) (setq num (abs num) _r (rem num 1.0) num (- num _r)) (if (and(> _r 0.5)(eq places 0)) (setq num (+ num 1))) (while (> num 0.0) (setq portions (cons (fix (rem num 1000.0)) portions) num (/ (- num (car portions)) 1000.0) ) ) (setq n (length portions) i 0 ret "") (while (< i n) (setq b (rtos (nth i portions) 2 0)) (if (and (eq (strlen b)1) (> i 0)) (setq b (strcat "00" b))) (if (and (eq (strlen b)2) (> i 0)) (setq b (strcat "0" b))) (setq ret (strcat ret b " ")) (setq i (+ i 1)) ) (setq ret(substr ret 1 (- (strlen ret) 1))) (if (> places 0 )(setq ret (strcat ret "." frac))) (if neg (setq ret (strcat "-" ret))) ret )

Re: Rounding down dimension values

curro.aguilera — Mon, 30 Aug 2021 11:15:14 GMT

Hi!

Thank you very much for you help, but I can't make it work.

Tried changing

(defun round (num places / neg ret b a1 poz _r portions i frac n) ;

(defun c:round (num places / neg ret b a1 poz _r portions i frac n) ;

but it returns me an error "not enough arguments" (my AutoCAD is in spanish, so that would be the aproximated translation).

Do you have any idea of what it isn't working?

Thank you very much!!

Re: Rounding down dimension values

Kent1Cooper — Mon, 30 Aug 2021 12:07:33 GMT

Your example shows two decimal places, with the second one always being zero. Is that what you want? If the second decimal place is always zero, can it not be omitted?

If you want the extraneous 0, try this:

(defun C:RDD10 ; = Round Dimension Down to 1 decimal place + 0 (/ dim) (setq dim (car (entsel "\nSelect Dimension: "))) (setpropertyvalue dim "DimensionText" (strcat (rtos (/ (fix (* (getpropertyvalue dim "Measurement") 10)) 10.0) 2 1) "0") ); setpropertyvalue ); defun

If you can do without the extraneous 0, this does the same without adding that:

(defun C:RDD1 ; = Round Dimension Down to 1 decimal place (/ dim) (setq dim (car (entsel "\nSelect Dimension: "))) (setpropertyvalue dim "DimensionText" (rtos (/ (fix (* (getpropertyvalue dim "Measurement") 10)) 10.0) 2 1) ); setpropertyvalue ); defun

Either could be improved, such as to verify that you selected the right kind of thing, to ask again if you miss or pick something else, and/or to ask how many decimal places you want, etc.

Re: Rounding down dimension values

hak_vz — Mon, 30 Aug 2021 11:49:56 GMT

Try this

(defun c:round_dimensions (/ round n e ent r) (defun round (num places / neg ret b a1 poz _r portions i frac n) ; (defun minusp (num) (cond ((numberp num) (< num 0.0)))) (setq neg (minusp num) places (abs places) a1 (rtos num 2 places) poz(vl-string-position (ascii ".") a1) ) (if poz (progn (setq _rem (substr a1 1 (+ poz 1))) (setq frac (vl-string-left-trim _rem a1)) ) (setq frac "") ) (setq num (abs num) _r (rem num 1.0) num (- num _r)) (if (and(> _r 0.5)(eq places 0)) (setq num (+ num 1))) (while (> num 0.0) (setq portions (cons (fix (rem num 1000.0)) portions) num (/ (- num (car portions)) 1000.0) ) ) (setq n (length portions) i 0 ret "") (while (< i n) (setq b (rtos (nth i portions) 2 0)) (if (and (eq (strlen b)1) (> i 0)) (setq b (strcat "00" b))) (if (and (eq (strlen b)2) (> i 0)) (setq b (strcat "0" b))) (setq ret (strcat ret b " ")) (setq i (+ i 1)) ) (setq ret(substr ret 1 (- (strlen ret) 1))) (if (> places 0 )(setq ret (strcat ret "." frac))) (if neg (setq ret (strcat "-" ret))) ret ) (setq n (getint "\Number of places >")) (while (setq e (car(entsel "\nSelect dimension to round"))) (setq ent (entget e)) (cond ((= (cdr (assoc 0 ent)) "DIMENSION") (setq con (cdr(assoc 42 ent))) (setq r (round con n)) (setq ent (subst (cons 1 r) (assoc 1 ent) ent)) (entmod ent) ) ) ) (princ) )

Re: Rounding down dimension values

curro.aguilera — Mon, 30 Aug 2021 12:11:36 GMT

Hi!! edit: I changed my mind, I definitely want it without the zero! So I used the second solution

Your solution works perfect, but i would like to select more than one dimension at once! Could be possible? Or even running the lisp on the selected dimensions (previous to calling the lisp)

Thank you very very much!!!

Re: Rounding down dimension values

curro.aguilera — Mon, 30 Aug 2021 11:59:29 GMT

Hi! Thank you again!!! But I cannot manage it to work. It ask me to select a dimension, I click it but nothing happens

Re: Rounding down dimension values

hak_vz — Mon, 30 Aug 2021 13:00:40 GMT

@curro.aguilera Attach your sample drawing. Also, what is your decimal separator "." or ",".

Re: Rounding down dimension values

hak_vz — Mon, 30 Aug 2021 13:13:35 GMT

Try this. If works OK for me. Try with different number of decimal places, and change decimal separator id apply.

In your case n = 1.

(defun c:round_dimensions (/ round n ss i ent con r) (defun round (num places / neg ret b a1 poz _r portions i frac n) ; (defun minusp (num) (cond ((numberp num) (< num 0.0)))) (setq neg (minusp num) places (abs places) a1 (rtos num 2 places) poz(vl-string-position (ascii ".") a1) ) (if poz (progn (setq _rem (substr a1 1 (+ poz 1))) (setq frac (vl-string-left-trim _rem a1)) ) (setq frac "") ) (setq num (abs num) _r (rem num 1.0) num (- num _r)) (if (and(> _r 0.5)(eq places 0)) (setq num (+ num 1))) (while (> num 0.0) (setq portions (cons (fix (rem num 1000.0)) portions) num (/ (- num (car portions)) 1000.0) ) ) (setq n (length portions) i 0 ret "") (while (< i n) (setq b (rtos (nth i portions) 2 0)) (if (and (eq (strlen b)1) (> i 0)) (setq b (strcat "00" b))) (if (and (eq (strlen b)2) (> i 0)) (setq b (strcat "0" b))) (setq ret (strcat ret b " ")) (setq i (+ i 1)) ) (setq ret(substr ret 1 (- (strlen ret) 1))) (if (> places 0 )(setq ret (strcat ret "," frac))) ;change decimal separator to comma if apply (if neg (setq ret (strcat "-" ret))) ret ) (setq n (getint "\Number of places >")) (setq ss (ssget "X" '((0 . "DIMENSION")))) (setq i -1) (cond ((and ss) (while (< (setq i (1+ i)) (sslength ss)) (setq ent (entget (ssname ss i))) (setq con (cdr(assoc 42 ent))) (setq r (round con n)) (setq ent (subst (cons 1 r) (assoc 1 ent) ent)) (entmod ent) ) ) ) (princ) )

Re: Rounding down dimension values

Kent1Cooper — Mon, 30 Aug 2021 13:58:17 GMT

@curro.aguilera wrote:

... i would like to select more than one dimension at once! Could be possible? ....

If you are willing to go around and pick them one at a time, but as many as you want in one running of the command, and have each one processed as you pick it, this is a simple adjustment:

(defun C:RDD1 ; = Round Dimension Down to 1 decimal place (/ dim) (while (setq dim (car (entsel "\nSelect Dimension: "))) (setpropertyvalue dim "DimensionText" (rtos (/ (fix (* (getpropertyvalue dim "Measurement") 10)) 10.0) 2 1) ); setpropertyvalue ); while ); defun

If you want to select multiple Dimensions at one time, such as with a window and all the selection options, this will do that:

(defun C:RDD1 ; = Round Dimension Down to 1 decimal place (/ rddss n dim) (if (setq rddss (ssget '((0 . "DIMENSION")))) (repeat (setq n (sslength rddss)); then (setq dim (ssname rddss (setq n (1- n)))) (if (not (wcmatch (cdr (assoc 100 (reverse (entget dim)))) "*Angular*")) (setpropertyvalue dim "DimensionText" (rtos (/ (fix (* (getpropertyvalue dim "Measurement") 10)) 10.0) 2 1) ); setpropertyvalue ); if ); repeat ); if ); defun

That ignores Angular Dimensions -- I had some in my test selection, and they use a different property name ["AngularMeasurement"], so they caused trouble. If you want them rounded down, too, that can be accommodated with just a little more code. But it does horizontal, vertical, rotated, aligned, ordinate, diameter, radius.

EDIT: Here's a version that asks for the number of decimal places, and remembers your choice to offer as default on subsequent use:

(defun C:RDD ; = Round Dimension Down (/ rddss n dim) (initget 4); no negative (setq _RDDdp_ ; global variable for default; = Round-Dimension-Down decimal places (cond ( (getint (strcat "\nNumber of decimal places <" (if _RDDdp_ (itoa _RDDdp_) "0"); prior value default if present, otherwise 0 ">: " ); strcat ); getint ); User-input condition (_RDDdp_); prior value if present on Enter (0); default on Enter at first use ); cond ); setq (if (setq rddss (ssget '((0 . "DIMENSION")))) (repeat (setq n (sslength rddss)); then (setq dim (ssname rddss (setq n (1- n)))) (if (not (wcmatch (cdr (assoc 100 (reverse (entget dim)))) "*Angular*")) (setpropertyvalue dim "DimensionText" (rtos (/ (fix (* (getpropertyvalue dim "Measurement") (expt 10 _RDDdp_))) (expt 10.0 _RDDdp_)) 2 _RDDdp_) ); setpropertyvalue ); if ); repeat ); if ); defun

The default number of decimal places on first use is 0, but that can be changed if you have a typical standard.

When you choose more than zero decimal places, whether trailing zeros appear depends on the DIMZIN System Variable. If you want the trailing zeroes included, or not included, that can be set accordingly.

Re: Rounding down dimension values

Kent1Cooper — Mon, 30 Aug 2021 13:55:46 GMT

@hak_vz wrote:

....
(defun round (num places / neg .... (defun minusp (num) (cond ((numberp num) (< num 0.0)))) (setq neg (minusp num) .... (setq num (abs num) _r (rem num 1.0) num (- num _r)) .... (if neg (setq ret (strcat "-" ret))) ....

[All those elements are parts of the reason @hak_vz's code is longer -- it uses a rounding function that is designed to handle negative numbers, which simpler rounding functions often do not round correctly. That's appropriate most of the time, but in Dimensions, the value you are rounding is never negative, so there's no need to account for that.]

Re: Rounding down dimension values

curro.aguilera — Tue, 31 Aug 2021 06:51:25 GMT

Thank you both very very much!!!! @hak_vz @Kent1Cooper

I will finally use the solution by Kent Cooper (the third one), it works a bit better!

Thank you!! 🙂

Re: Rounding down dimension values

curro.aguilera — Mon, 06 Sep 2021 10:48:52 GMT

Hi @Kent1Cooper , I'm having problems with the LISP when the measure is 0.10, 0.20, etc... The lisp is rounding down too! For example

I would need to only round down dimensions with two decimals.

1.93-> 1.9

1.99->1.9

1.90->1.9

Please help!!

Thank you very much in advance!

Re: Rounding down dimension values

Kent1Cooper — Mon, 06 Sep 2021 11:46:31 GMT

@curro.aguilera wrote:

.... when the measure is 0.10, 0.20, etc... The lisp is rounding down too! ....

The only reason I can think of for it to do that is if those Measurement [Medidas] values are rounded up to your four decimal places in display, but their true values are slightly less, for example what your image says is 1.0000 is really something like 0.99973681. Try changing the display precision in UNITS to the maximum 8 decimal places, and see whether the Measurement value changes.

Re: Rounding down dimension values

curro.aguilera — Mon, 06 Sep 2021 12:07:04 GMT

Hi @Kent1Cooper , thanks for posting again!

The point is, it's true there are a few dimensions that are 0.999997 as you said, but the lisp is rounding down too the dimensions that have exact values...

Re: Rounding down dimension values

Kent1Cooper — Mon, 06 Sep 2021 17:00:15 GMT

@curro.aguilera wrote:

.... the lisp is rounding down too the dimensions that have exact values...

"Exact" even to 8 decimal places [the most AutoCAD will display, but not as many as it knows] could still be rounded up. Try this at the command line:

(rtos (cdr (assoc 42 (entget (car (entsel))))) 2 16)

and select such a Dimension, to see it out to as many decimal places as AutoCAD can possibly know about it.

Re: Rounding down dimension values

curro.aguilera — Tue, 07 Sep 2021 09:41:40 GMT

Hi @Kent1Cooper , thanks again!

This is really weird. You are right, there are lines I drew with exact value (typing with the keyboard), and when I dimension that line, the value isn't exact. So I've added a simple tweak in the lisp you made:

(defun C:RDD ; = Round Dimension Down (/ rddss n dim) (initget 4); no negative (setq _RDDdp_ ; global variable for default; = Round-Dimension-Down decimal places (cond ( (getint (strcat "\nNumber of decimal places <" (if _RDDdp_ (itoa _RDDdp_) "0"); prior value default if present, otherwise 0 ">: " ); strcat ); getint ); User-input condition (_RDDdp_); prior value if present on Enter (0); default on Enter at first use ); cond ); setq (if (setq rddss (ssget '((0 . "DIMENSION")))) (repeat (setq n (sslength rddss)); then (setq dim (ssname rddss (setq n (1- n)))) (if (not (wcmatch (cdr (assoc 100 (reverse (entget dim)))) "*Angular*")) (setpropertyvalue dim "DimensionText" (rtos (/ (fix (* (+ (getpropertyvalue dim "Measurement") 0.001) (expt 10 _RDDdp_))) (expt 10.0 _RDDdp_)) 2 _RDDdp_) ); setpropertyvalue ); if ); repeat ); if ); defun

Just adding 0.001 to the measurement, the lisp now works nicely. It's not perfect but I think this will do the trick.

If you come up with a better idea, I'll be really grateful!

Thank you very much Kent!

Re: Rounding down dimension values

john.uhden — Wed, 08 Sep 2021 17:30:35 GMT

Hey, Hak.

Including proper disposition of DIMZIN, might this simple technique work?

;; Where str is the original number as a string... (defun rounddown (str places) (rtos (/ (fix (* (expt 10 places)(read str)))(expt 10.0 places)) 2 places) )

Re: Rounding down dimension values

hak_vz — Wed, 08 Sep 2021 20:05:37 GMT

@john.uhden At the moment I'm swamped with work. I have done tested your rounddown function and it seams it works . Good work!

Re: Rounding down dimension values

Kent1Cooper — Wed, 08 Sep 2021 21:14:45 GMT

That is operationally exactly like the end of the third routine in Message 10 except for reading a string instead of pulling the Dimension's measured value. So if the idea is that taking that value as a string will prevent the need to add a hair to the measured value to avoid rounding too far down, presumably the adjustment to that routine would be:

.... (setpropertyvalue dim "DimensionText" (rtos (/ (fix (* (read (rtos (getpropertyvalue dim "Measurement") 2 (1+ _RDDdp_))) (expt 10 _RDDdp_) ); * ); fix (expt 10.0 _RDDdp_) ); / 2 _RDDdp_ ); rtos ); setpropertyvalue ....