请大侠指点：下面的代码为何不能输入0

fedd

偏移量输入默认值0就运行不了，为什么呢？输入不为0的数值都正常
(defun c:O ()
        (setq x(getreal (strcat "输入水平偏移：<" (rtos 0) ">")))
        (setq y(getreal (strcat "输入垂直偏移：<" (rtos 0) ">")))
        (setq cp(getpoint "选择基点："))
        (setq px1(car cp))
        (setq py1(cadr cp))
        (setq mx(+ px1 x))
        (setq my(+ py1 y))
        (setq mpt(list mx my))
        (command "LINE" mpt PAUSE "")
        (princ)
)  

fangmin723

(defun c:O (/ cp x y)
        (setq x (if (= (setq x (getreal (strcat "\n输入水平偏移：<" (rtos 0) ">"))) nil) 0 x))
        (setq y (if (= (setq y (getreal (strcat "\n输入水平偏移：<" (rtos 0) ">"))) nil) 0 y))
        (setq cp (getpoint "\n选择基点："))
        (command "LINE" (list (+ (car cp) x) (+ (cadr cp) y)) PAUSE "")
        (princ)
)

1205这样时代

x y 默认值没有设置,直接确认,输入为空

bssurvey

以fangmin723為基礎
(defun c:O (/ cp x y)
       (if (not x) (setq x 0))  ;增加這一行
        (if (not y) (setq y 0))  ;增加這一行
        (setq x (if (= (setq x (getreal (strcat "\n输入水平偏移：<" (rtos x) ">"))) nil) 0 x)) ;(rtos 0)改成(rtos x)
        (setq y (if (= (setq y (getreal (strcat "\n输入水平偏移：<" (rtos y) ">"))) nil) 0 y)) ;(rtos 0)改成(rtos y) 就可以記憶上次輸入的值了
        (setq cp (getpoint "\n选择基点："))
        (command "LINE" (list (+ (car cp) x) (+ (cadr cp) y)) PAUSE "")
        (princ)
)