刚设计了一个小程序，调试不对，请高人帮忙

renaguo

想得到1图，却老出来2图，程序如下，请大家看看，我实在觉得自己没错呀？ 觉得是command的line命令老是连接不对，有啥要点给我提示一下吧，谢谢 (defun c:pipe1()
(setvar "cmdecho" 0)
(setvar "blipmode" 0)
(setq l (getreal "请输入输油管长度：")) ;长度176000
(setq l1 (/ l 2))
(setq h (getreal "请输入主索高度：")) ;高度13335
(setq p (/ (* l1 l1) (- h 1000) 2))
(setq pt1 (getpoint "请输入第一点：")) ;第一点(0,0)
(setq pt2 (polar pt1 0 l1))
(command "line" pt1 pt2 "")
(prin1)
(setq x (car pt2))
(repeat 2
(setq p1 (list x 0))
(setq y (/ (* x x) p 2))
(setq y2 (+ y 1000))
(setq p2 (list x y2))
(command "line" p1 p2 "")
(prin1)
(setq x (- x 4000))
)
)

ZZXXQQ

图呢?

xyp1964

;增加格式输入 (defun c:pipe1 (/ l1 pt1 pt2 x y p1 y2 p2)
(setvar "cmdecho" 0)
(setvar "blipmode" 0)
(setvar "osmode" 1)
;;长度176000
(setq l (ureal 1 "" "请输入输油管长度" l))
(setq l1 (/ l 2))
;;高度13335
(setq h (ureal 1 "" "请输入主索高度" h))
(if (/= h 1000)
(progn
(setq p (/ (* l1 l1) (- h 1000) 2))
;(setq no1 (ureal 1 "" "请输入主索高度" h))
(while
(setq pt1 (getpoint "\n请输入第一点<退出> : "))
;;第一点(0,0)
(setq pt2 (polar pt1 0 l1))
(setvar "osmode" 0)
(command "line" pt1 pt2 "")
;;(prin1)
(setq x (car pt2))
(repeat 2
(setq p1 (list x 0))
(setq y (/ (* x x) p 2))
(setq y2 (+ y 1000))
(setq p2 (list x y2))
(command "line" p1 p2 "")
;;(prin1)
(setq x (- x 4000))
)(setvar "osmode" 1)
)
)
)
(princ)
)
(defun ureal (bit kwd msg def / inp)
(if def
(setq msg (strcat "\n" msg "<" (rtos def 2) ">: ")
bit (* 2 (fix (/ bit 2)))
)
(setq msg (strcat "\n" msg ": "))
)
(initget bit kwd)
(setq inp (getreal msg))
(if inp
inp
def
)
)