[LISP程序]：请帮忙指点我的程序错误（急！！在线等待）

fallrain

我编的程序是在选择的边界内部间隔10米的点画。思想是在选择边界后再拾取一内部点，在内部点的基础上用一个二重循环把X和Y坐标累加累减得到点，其中，用一个网友提供的测试点在边界内部的函数来控制循环的终止（在此感谢网友们的无私奉献）。我的程序不能运行使用。我不知道错误出在那里。请帮忙看看问题所在！！（急！！在线等待）
   

2. 
   
3. (defun c:tc()
   
4. 
   
5. 
   
6. (defun zn (/                plendpt           x_lst   e                 op
   
7.              n                fst_pt           int_num    online         pc
   
8.              pn                min_num           edge_int_num                 pt_online_num
   
9.              op1 )
   
10.   (setq min_num 0.0001)
    
11.   (princ "\n选择边界:")
    
12.   (while (not e) (setq e (car (entsel))))
    
13.   (if (= "LWPOLYLINE" (cdr (assoc 0 (entget e))))
    
14.     (progn
    
15.       (redraw e 3)
    
16.       (while (not op) (setq op (getpoint "\n请拾取边界内部点:")))
    
17.       (foreach n (entget e)
    
18.         (if (= 10 (car n))
    
19.           (if plendpt
    
20.             (setq plendpt (append plendpt (list (cdr n))))
    
21.             (setq plendpt (list (cdr n)))
    
22.           )
    
23.         )
    
24.       )
    
25.       (setq X_lst (mapcar '(lambda (x) (car x)) plendpt))
    
26.       (setq delta_X (abs (- (apply 'max x_lst) (car op))))
    
27.       (setq plendpt          (append plendpt (list (nth 0 plendpt)))
    
28.             edge_int_num  0
    
29.             pt_online_num 0
    
30.       )
    
31.       (while (> (length plendpt) 1)
    
32.         (setq pc (nth 0 plendpt)
    
33.               pn (nth 1 plendpt)
    
34.         )
    
35.         (setq op1 (polar op 0 (* delta_x 2)))
    
36.         (if (inters op
    
37.                     op1
    
38.                     pc
    
39.                     pn
    
40.             )
    
41. 
    
42.           (setq edge_int_num (+ 1 edge_int_num))
    
43.         )
    
44.         (if (equal (+ (distance op pc) (distance pc op1))
    
45.                    (distance op op1)
    
46.                    min_num)
    
47.           (setq pt_online_num (+ 1 pt_online_num))
    
48.         )
    
49. 
    
50.         (if (equal (+ (distance op pc) (distance op pn))
    
51.                    (distance pc pn)
    
52.                    min_num
    
53.             )
    
54.           (setq online "t")
    
55.         )
    
56.         (setq plendpt (cdr plendpt))
    
57.       )
    
58.       (redraw e 4)
    
59.      
    
60.       )
    
61.     )
    
62.   )
    
63.   (setq x (car p0))
    
64.   (setq y (cadr p0))
    
65.   (zn)
    
66.     (while (= (rem (+ pt_online_num edge_int_num) 2) 1)
    
67.          (zn)
    
68.          (while (= (rem (+ pt_online_num edge_int_num) 2) 1)
    
69.          (command "circle" p0 1 "" )
    
70.          (setq x (+ x 10))         
    
71.          (setq p0 (list x y))
    
72.                   )
    
73. 
    
74.    (setq y (+ y 10))         
    
75.    (setq p0 (list x y))
    
76.   (command "circle" p0 1 "" )
    
77.       )
    
78.    (while (= (rem (+ pt_online_num edge_int_num) 2) 1)
    
79.          (zn)
    
80.          (while (= (rem (+ pt_online_num edge_int_num) 2) 1)
    
81.          (command "circle" p0 1 "" )
    
82.          (setq x (+ x 10))         
    
83.          (setq p0 (list x y))
    
84.                   )
    
85. 
    
86.    (setq y (- y 10))         
    
87.    (setq p0 (list x y))
    
88.   (command "circle" p0 1 "" )
    
89.         )
    
90.   (while (= (rem (+ pt_online_num edge_int_num) 2) 1)
    
91.          (zn)
    
92.          (while (= (rem (+ pt_online_num edge_int_num) 2) 1)
    
93.          (command "circle" p0 1 "" )
    
94.          (setq x (- x 10))         
    
95.          (setq p0 (list x y))
    
96.                   )
    
97. 
    
98.    (setq y (+ y 10))         
    
99.    (setq p0 (list x y))
    
100.    (command "circle" p0 1 "" )
     
101.    )
     
102.   (while (= (rem (+ pt_online_num edge_int_num) 2) 1)
     
103.          (zn)
     
104.          (while (= (rem (+ pt_online_num edge_int_num) 2) 1)
     
105.          (command "circle" p0 1 "" )
     
106.          (setq x (- x 10))         
     
107.          (setq p0 (list x y))
     
108.                   )
     
109. 
     
110.    (setq y (- y 10))         
     
111.    (setq p0 (list x y))
     
112.    (command "circle" p0 1 "" )
     
113.    )
     
114. )
     

<br /> (defun c:tc()<br /> <br /> <br /> (defun zn (/                plendpt           x_lst   e                 op<br />              n                fst_pt           int_num    online         pc<br />              pn                min_num           edge_int_num                 pt_online_num<br />              op1 )<br />   (setq min_num 0.0001)<br />   (princ "\n选择边界:")<br />   (while (not e) (setq e (car (entsel))))<br />   (if (= "LWPOLYLINE" (cdr (assoc 0 (entget e))))<br />     (progn<br />       (redraw e 3)<br />       (while (not op) (setq op (getpoint "\n请拾取边界内部点:")))<br />       (foreach n (entget e)<br />         (if (= 10 (car n))<br />           (if plendpt<br />             (setq plendpt (append plendpt (list (cdr n))))<br />             (setq plendpt (list (cdr n)))<br />           )<br />         )<br />       )<br />       (setq X_lst (mapcar '(lambda (x) (car x)) plendpt))<br />       (setq delta_X (abs (- (apply 'max x_lst) (car op))))<br />       (setq plendpt          (append plendpt (list (nth 0 plendpt)))<br />             edge_int_num  0<br />             pt_online_num 0<br />       )<br />       (while (> (length plendpt) 1)<br />         (setq pc (nth 0 plendpt)<br />               pn (nth 1 plendpt)<br />         )<br />         (setq op1 (polar op 0 (* delta_x 2)))<br />         (if (inters op<br />                     op1<br />                     pc<br />                     pn<br />             )<br /> <br />           (setq edge_int_num (+ 1 edge_int_num))<br />         )<br />         (if (equal (+ (distance op pc) (distance pc op1))<br />                    (distance op op1)<br />                    min_num)<br />           (setq pt_online_num (+ 1 pt_online_num))<br />         )<br /> <br />         (if (equal (+ (distance op pc) (distance op pn))<br />                    (distance pc pn)<br />                    min_num<br />             )<br />           (setq online "t")<br />         )<br />         (setq plendpt (cdr plendpt))<br />       )<br />       (redraw e 4)<br />      <br />       )<br />     )<br />   )<br />   (setq x (car p0))<br />   (setq y (cadr p0))<br />   (zn)<br />     (while (= (rem (+ pt_online_num edge_int_num) 2) 1)<br />          (zn)<br />          (while (= (rem (+ pt_online_num edge_int_num) 2) 1)<br />          (command "circle" p0 1 "" )<br />          (setq x (+ x 10))         <br />          (setq p0 (list x y))<br />                   )<br /> <br />    (setq y (+ y 10))         <br />    (setq p0 (list x y))<br />   (command "circle" p0 1 "" )<br />       )<br />    (while (= (rem (+ pt_online_num edge_int_num) 2) 1)<br />          (zn)<br />          (while (= (rem (+ pt_online_num edge_int_num) 2) 1)<br />          (command "circle" p0 1 "" )<br />          (setq x (+ x 10))         <br />          (setq p0 (list x y))<br />                   )<br /> <br />    (setq y (- y 10))         <br />    (setq p0 (list x y))<br />   (command "circle" p0 1 "" )<br />         )<br />   (while (= (rem (+ pt_online_num edge_int_num) 2) 1)<br />          (zn)<br />          (while (= (rem (+ pt_online_num edge_int_num) 2) 1)<br />          (command "circle" p0 1 "" )<br />          (setq x (- x 10))         <br />          (setq p0 (list x y))<br />                   )<br /> <br />    (setq y (+ y 10))         <br />    (setq p0 (list x y))<br />    (command "circle" p0 1 "" )<br />    )<br />   (while (= (rem (+ pt_online_num edge_int_num) 2) 1)<br />          (zn)<br />          (while (= (rem (+ pt_online_num edge_int_num) 2) 1)<br />          (command "circle" p0 1 "" )<br />          (setq x (- x 10))         <br />          (setq p0 (list x y))<br />                   )<br /> <br />    (setq y (- y 10))         <br />    (setq p0 (list x y))<br />    (command "circle" p0 1 "" )<br />    )<br /> )<br />

hi71400

跟踪运行发现：
(while (= (rem (+ pt_online_num edge_int_num) 2) 1)
这一句有问题。
你好好检查一下。

wkai

函数ZN那段代码看起来很熟悉呀，呵呵。

你的程序中的问题
3  这是一个没有出口的循环
[PHP](while (= (rem (+ pt_online_num edge_int_num) 2) 1)
(command "circle" p0 1 "" )
(setq x (+ x 10))
(setq p0 (list x y))
)
[/PHP]

2  zn函数中 pt_online_num  edge_int_num online 是局部变量

1  p0是NIL，应该替换为op


下面只有x+方向的，其他可以参照这个写。
[PHP]
(defun c:tc (/               plendpt         x_lst           e             op
             n               fst_pt         int_num   online    pc
             pn               min_num         edge_int_num             pt_online_num
             op1
            )
  (defun zn ()
    (setq min_num 0.0001)
    (princ "\n选择边界:")
    (while (not e) (setq e (car (entsel))))
    (if        (= "LWPOLYLINE" (cdr (assoc 0 (entget e))))
      (progn
        (redraw e 3)
        (while (not op) (setq op (getpoint "\n请拾取边界内部点:")))
        (foreach n (entget e)
          (if (= 10 (car n))
            (if        plendpt
              (setq plendpt (append plendpt (list (cdr n))))
              (setq plendpt (list (cdr n)))
            )
          )
        )
        (setq X_lst (mapcar '(lambda (x) (car x)) plendpt))
        (setq delta_X (abs (- (apply 'max x_lst) (car op))))
        (setq plendpt            (append plendpt (list (nth 0 plendpt)))
              edge_int_num  0
              pt_online_num 0
              online            nil
        )
        (while (> (length plendpt) 1)
          (setq        pc (nth 0 plendpt)
                pn (nth 1 plendpt)
          )
          (setq op1 (polar op 0 (* delta_x 2)))
          (if (inters op
                      op1
                      pc
                      pn
              )

            (setq edge_int_num (+ 1 edge_int_num))
          )
          (if (equal (+ (distance op pc) (distance pc op1))
                     (distance op op1)
                     min_num
              )
            (setq pt_online_num (+ 1 pt_online_num))
          )

          (if (equal (+ (distance op pc) (distance op pn))
                     (distance pc pn)
                     min_num
              )
            (setq online "t")
          )
          (setq plendpt (cdr plendpt))
        )
        (redraw e 4)
      )
    )
  )

  (zn)
  (setq x (car op))
  (setq y (cadr op))
  (while (and (= (rem (+ pt_online_num edge_int_num) 2) 1)
              (not online)
         )
    (command "circle" op 1 "")
    (setq x (+ x 20))
    (setq op (list x y))
    (zn)
  )
)
[/PHP]

fallrain

我是一个新手，好多东西都不懂。
请帮我改正，好吗？不盛感激！！

wkai

试试看，我用没问题。

fallrain

还有一个问题，为什么画的圆出了边界啊。该怎样改进呢