Question

问一个autolisp的菜鸟问题

本意是画一条水平直线，在屏幕点取一个点，然后输入第二点与第一点的水平距离，画线。
(defun C:li()
(SETQ P1(GETPOINT "点："));起始点
(SETQ x(GETREAL "距离："))
(SETQ P2(list(car p1)(+(cdr p1)x)))
(COMMAND "line" P1 P2)
)
虽然知道这问题简单，但作为一个新手o(╯□╰)o，不会啊，自己mark的运行不了，不知道哪里问题。求助。

Answer 1

(defun C:li()
(SETQ P1(GETPOINT "点："));起始点
(SETQ x(GETREAL "\n距离："))
(SETQ P2(list(+ (car p1) x) (cadr p1) 0.0))
(COMMAND "line" P1 P2 "")
)

Answer 2

P2取点不正确。
我能帮的就那么多了。。。。。。。