请求指正

天边

本人是一个初学者，请各位高手帮忙指正一下错误。。。谢谢。 (defun c:qd()
(setvar "cmdecho" 0)
(setq FirstPtAbscissa (getreal "第一点横坐标:"))
(setq FirstPtOrdinate (getreal "第二点纵坐标:"))
(setq FirstPt (list FirstPtAbscissa FirstPtOrdinate))
(setq DeltaAbscissa_1 (getreal "请输入盖梁长度:"))
(setq SecondPtAbscissa (+ FirstPtAbscissa DeltaAbscissa_1))
(setq SecondPtOrdinate (FirstPtOrdinate))
(setq SecondPt (list SecondPtAbscissa SecondPtOrdinate))
(command "line" FirstPt SecondPt)
) 期待你的答复

xyp1964

2. (defun c:test ()
3.    (setvar "cmdecho" 0)
4.    (setq  leng (getreal "\n请输入盖梁长度 : ")
5.   pt1   (getpoint "\n起点 : ")
6.   Pt2   (list (+ (car pt1) leng) (cadr pt1))
7.    )
8.    (command "line" Pt1 Pt2 "")
9.    (princ)
10. )

(defun c:test ()    (setvar "cmdecho" 0)    (setq  leng (getreal "\n请输入盖梁长度 : ")   pt1   (getpoint "\n起点 : ")   Pt2   (list (+ (car pt1) leng) (cadr pt1))    )    (command "line" Pt1 Pt2 "")    (princ) )