division in lisp

[GeryKnee]

There is an error here :

(defun c:xxx(/)
(setq Scale (getInt "\scale : "))
(setvar "celtscale" (/ Scale 1000) )
(princ)
)

error: AutoCAD variable setting rejected: "celtscale" 0

Thanks,

Gery.

[ВeekeeCZ · Accepted solution]

(setvar "celtscale" (/ Scale 1000.0))

zero because integer divided by an integer is an integer.

You need to hah at least one real to make a result a real number. So use 1000.0 or simply 1000. (with dot at the end)

[GeryKnee]

OK

Thank you very much Sir,

Regards,

Gery.

[Sea-Haven · Accepted solution]

You have to be careful about Real and integers, when in doubt as suggested use a "."

(/ 1 3)
0

(/ 1 3.)
0.3333333

(/ 3 2)
1
(/ 3. 2.)
1.5

(* 2 pi)

(* pi 2)
6.28318530717959 note as PI is a real 

[GeryKnee]

Thank you Sea.heaven,

I think that
(/ 3. 2.) and 
(/ 3. 2)

have the same result = 1.5

regards,

Gery

[hak_vz]

You have

(defun c:xxx(/)
(setq Scale (getInt "\scale : "))
(setvar "celtscale" (/ Scale 1000) )
(princ)
)

Instead of getint use getreal

(defun c:xxx(/)
(setvar "celtscale" (/ (getreal "\nScale : ") 1000) )
(princ)
)

In most situation we work with real numbers.