Addition with decimals

[CADNate]

Hi,

I need some assistance with the attached LISP. It works fine until you have numbers that have decimals. The way it is now is that it ignores them. I would like for it to include the decimals and not round the numbers in the selections and in the total. Can anyone assist me with this?

Thanks,
CADNate

[peter]

change atoi to atof

in these lines

(setq value1 (atoi value1))

(setq addnext (atoi addnext))


change

(setq total (itoa total))

to

(setq total (vl-princ-to-string total)) ;< will follow auprec number of decimal places.

Also

(vl-load-com) at the bottom (outside you function)

[CADNate]

Awesome! Thanks a bunch. That worked perfectly.