getdist func中的变量值
你好我正在尝试一些非常简单的事情,但我已经没有想法了
(setq间隔5)
(setq dist(getdist“\n输入间隔:”))
查夫达尔 嗨,查夫达尔,
如果您是指提示中的间隔值,可能是这样的
(setq interval 5)
(setq dist (getdist (strcat "\nEnter Interval < " (itoa interval)" >:")))
编辑:如果你的目标是强迫用户输入一个可以被5整除的数字,可能是这样的
(setq interval 5)
(while (not
(progn
(initget 7)
(setq dist (getreal (strcat "\nEnter Interval < " (itoa interval) " >:")))
(= (fix (/ dist 5)) (/ dist 5))
)
)
)
亨里克 要检查可分性,还可以使用:
(zerop (rem dist 5))
更简洁。
谢谢李!
亨里克 别担心! rem dist是什么意思?
当将变量“dist”持有的数值除以5时,表达式返回余数。
页:
[1]