写的一段代码 大家帮我看看有什么问题

yhright

1. 
   

复制代码

  (setq pa (getpoint " Point:"))
  (setq hh 1000)
  (setq bc (getreal "jingdu:"))
  (setq qd (getpoint "\n qidian"))
  (setq zd (getpoint "\n zongdian"))
  (setq qidx (car qd))
  (setq qiax (car pa))
  (setq qzdx (car zd))
  (setq qiay (cadr pa))

(while (<= qiax qzdx ))
    (setq pc (polar pa (/ pi 2) hh))
    (setq qidx (+ qidx bc))
    (setq npa (list qidx qiay))
    (command "pline" npa pc "c")
   )

我的目的是 给出指定点坐标  任何输入起点坐标（和指定点相同 ）在输入总点坐标  和精度

期望能以起点x坐标 按需要的精度移动画线（线段和第一条都是平行的）  到达总点x坐标的时候停止。


我需要这些线段于两条多线段相交的然后求交点

不过到这第一步就卡住了

大家帮我看看那里出错了