[求助]：请大侠们帮看看程序错在哪里

真龙天子

我刚学习lisp，学写了一段程序，是用来画地形剖面线的，运行到 (setq pm (car pp))就停止了，无法循环判断，请大侠们帮看看是怎么回事？本人将不胜感谢！
(defun c:lkx()
     (setq p0 (getpoint "\n请确定起点："))
     (setq pn (getpoint "\n请确定终点："))
     (setq pnx (car pn))
     (setq p0z  (getreal "\n请输入起点高程:"))
     (setq pnz  (getreal "\n请输入终点高程:"))
     (setq p1z  (getreal "\n请输入第一条等高线高程:"))
     (setq zz  (getreal "\n请输入放大倍数:"))
     (setq dd p1z)
        (command "pline")                          ;启动多段线命令
        (setq yy (Polar  p0 (/ pi 2) (* p0z zz)))  ;计算起点偏移坐标
        (command  yy)                              ;用多段线在起点开始画线
        (setq p1 (getpoint "\n请确定第一点："))      
        (setq yy (Polar  p1 (/ pi 2) (* p1z zz)))  ;计算起点偏移坐标
        (command yy)                               ;画第一条等高线高程
        (setq h0 0))                               ;等高距h0清0
     ;开始进入循环   
     (while                             
         (setq pp (getpoint "\n请确定下一点："))
         (setq pm (car pp))                        ;求pp的x值赋于pm                     
         (cond
               ;如果pm大于或等于pnx就终止画线，跳出循环
               ((>= pm pnx)
                    (setq yy (Polar  pn (/ pi 2) (* pnz zz)))
                    (command yy "")))                        
               ;如果pm小于pnx就继续下面的程序
               ((< pm pnx)
                   (princ "\n请输入距离<") (print h0) (setq h0  (getreal ">:"))
                   (setq dd (+ dd (* h0 zz)))
                   (setq yy (Polar  pp (/ pi 2) dd))
                   (command yy))  
        )      
    )
(prin1)
)

xyp1964

左右括号不匹配，未经测试：

2. [FONT=courier new]
   
3. (defun c:lkx ()
   
4.   (setq        p0  (getpoint "\n请确定起点：")
   
5.         pn  (getpoint "\n请确定终点：")
   
6.         pnx (car pn)
   
7.         p0z (getreal "\n请输入起点高程:")
   
8.         pnz (getreal "\n请输入终点高程:")
   
9.         p1z (getreal "\n请输入第一条等高线高程:")
   
10.         zz  (getreal "\n请输入放大倍数:")
    
11.         dd  p1z
    
12.   )
    
13.   (command "pline")                        ;启动多段线命令
    
14.   (setq yy (Polar p0 (/ pi 2) (* p0z zz))) ;计算起点偏移坐标
    
15.   (command yy)                                ;用多段线在起点开始画线
    
16.   (setq        p1 (getpoint "\n请确定第一点：")
    
17.         yy (Polar p1 (/ pi 2) (* p1z zz))
    
18.   )                                        ;计算起点偏移坐标
    
19.   (command yy)                                ;画第一条等高线高程
    
20.   (setq h0 0)
    
21.                                         ;                                        ;等高距h0清0
    
22.                                         ;开始进入循环
    
23.   (while (setq pp (getpoint "\n请确定下一点："))
    
24.     (setq pm (car pp))                        ;求pp的x值赋于pm
    
25.     (cond                                ;如果pm大于或等于pnx就终止画线，跳出循环
    
26.       ((>= pm pnx)
    
27.        (setq yy (Polar pn (/ pi 2) (* pnz zz)))
    
28.        (command yy "")
    
29.       )                                        ;如果pm小于pnx就继续下面的程序
    
30.       ((< pm pnx)
    
31.        (princ "\n请输入距离<")
    
32.        (print h0)
    
33.        (setq h0 (getreal ">:"))
    
34.        (setq dd (+ dd (* h0 zz)))
    
35.        (setq yy (Polar pp (/ pi 2) dd))
    
36.        (command yy)
    
37.       )
    
38.     )
    
39.   )
    
40.   (princ)
    
41. )[/FONT]

[FONT=courier new]<br /> (defun c:lkx ()<br />   (setq        p0  (getpoint "\n请确定起点：")<br />         pn  (getpoint "\n请确定终点：")<br />         pnx (car pn)<br />         p0z (getreal "\n请输入起点高程:")<br />         pnz (getreal "\n请输入终点高程:")<br />         p1z (getreal "\n请输入第一条等高线高程:")<br />         zz  (getreal "\n请输入放大倍数:")<br />         dd  p1z<br />   )<br />   (command "pline")                        ;启动多段线命令<br />   (setq yy (Polar p0 (/ pi 2) (* p0z zz))) ;计算起点偏移坐标<br />   (command yy)                                ;用多段线在起点开始画线<br />   (setq        p1 (getpoint "\n请确定第一点：")<br />         yy (Polar p1 (/ pi 2) (* p1z zz))<br />   )                                        ;计算起点偏移坐标<br />   (command yy)                                ;画第一条等高线高程<br />   (setq h0 0)<br />                                         ;                                        ;等高距h0清0<br />                                         ;开始进入循环 <br />   (while (setq pp (getpoint "\n请确定下一点："))<br />     (setq pm (car pp))                        ;求pp的x值赋于pm <br />     (cond                                ;如果pm大于或等于pnx就终止画线，跳出循环<br />       ((>= pm pnx)<br />        (setq yy (Polar pn (/ pi 2) (* pnz zz)))<br />        (command yy "")<br />       )                                        ;如果pm小于pnx就继续下面的程序<br />       ((< pm pnx)<br />        (princ "\n请输入距离<")<br />        (print h0)<br />        (setq h0 (getreal ">:"))<br />        (setq dd (+ dd (* h0 zz)))<br />        (setq yy (Polar pp (/ pi 2) dd))<br />        (command yy)<br />       )<br />     )<br />   )<br />   (princ)<br /> )[/FONT]

真龙天子

谢谢XYP1964大侠，你是晓东的知名人士，我也下了你的不少程序，很实用，再一次感谢你给我的帮助！