求大神帮我看看这段程序问题出在什么地方

dcg553496180

    (setq bl_h (getreal "\n 请输入横向比例1:<1000>"))
    (if (not bl_h) (setq bl_h 1000))
    (setq bl_hx (/ bl_h 1000))
    (setq bl_z (getreal "\n 请输入纵向比例1:<100>"))
    (if (not bl_z) (setq bl_z 100))
    (setq bl_zx (/ bl_z 1000))
这是截取的程序一段，程序问题就出在这个地方，因为后面要用到bl_hx 和bl_zx计算， 如果在提示输入横向比例和纵向比例的时候我直接回车跳过的话，在后面的计算中，bl_hx是1（这是正常的），但是bl_zx就是0，应该是0.1才对呀。但是如果在提示输入横向比例，我手动输入1000，提示输入纵向比例，我手动输入100，在以后的计算中bl_hx就是1，bl_zx就是0.1。烦请各位大师帮我看看问题出在哪里，小弟不胜感激

ll_j

这是实数和整数运算的问题，Alisp中的“/”在除数和被除数都是整数时，只进行整数运算。
解决的办法就是把相关的1000改为1000.0。

hao3ren

，把整数改为实数

dcg553496180

ll_j 发表于 2013-12-24 09:28
这是实数和整数运算的问题，Alisp中的“/”在除数和被除数都是整数时，只进行整数运算。
解决的办法就是把 ...

感谢感谢，小弟在此谢过