请问这个程序错在哪里？

夏若薄荷猫

(defun c:z ()
(setvar "cmdecho" 0)
(setvar "cecolor" "1")
(setq p1 (list 54.124 120.414))
(setq p2 (list 55.124 140.011))
(setq p30 (list 129.87 87.994))
(setq lst (list p1 p2 p30))
(defun high (A B C / S AREA H x y z)
      (setq x (distance A B))
      (setq y (distance B C))
      (setq z (distance A C))
      (setq S (/ (+ x y z) 2))
      (setq AREA (sqrt (* S (- S x) (- S y) (- S z))))
      (/ (* AREA 2) x)
);_计算点到直线的距离
(setq num 3)
(setq limit 1)
(defun Douglas (i j)
   (setq lst1 (nth i lst) lst2 (nth j lst))
   (setq k (+ 1 i) max 0)
   (while (< k j)
      (setq lst3 (nth k lst))
      (setq dist (high lst1 lst2 lst3))
      (if (> dist max)
          (progn
          (setq n k)
          (setq max dist)
          );_progn
      );_if
     (setq k (+ k 1))
    );_while
    (if (> max limit)
        (progn
        (command "pline" lst1 lst3 lst2 "")
        (prin1 max)
        );_progn
        (progn
        (command "pline" lst1 lst2 "")
        );_progn
    );_if
);_defun
    (Douglas (0 (- num 1)))
(prin1))


加载之后提醒  ; 错误: 函数错误: 0

如果不使用函数  直接在前面把 i j 赋值为 0 2 可以画出来  但是加函数之后就不可以了.
鄙人才学 lisp，很多都不懂，还请高手帮忙指出来

Andyhon

(defun Douglas (i j)
...
)

Syntax:
(Douglas 0 (- num 1))

其余未测...

夏若薄荷猫

Andyhon 发表于 2011-12-8 20:54
(defun Douglas (i j)
...
)

    我一直纠结是不是我defun函数写错了    调试了好久    原来·····囧

    谢谢啊......

夏若薄荷猫

Andyhon 发表于 2011-12-8 20:54
(defun Douglas (i j)
...
)

那个再请问下您
(setq p1 (list 54.124 120.414))
(setq p2 (list 55.124 140.011))
(setq p3 (list 129.87 87.994))
(setq pts (list p1 p3))
(cons p2 pts)
(prin1 pts)
输出的不是三个点  而是重复两遍的 p1 p3 的坐标的呢
我需要把 其它的点一个个加入到这个列表中    最后再输出该怎么办

Andyhon

Command: (setq pts (list p1 p3))
((54.124 120.414) (129.87 87.994))

Command: (setq pts (cons p2 pts))
((55.124 140.011) (54.124 120.414) (129.87 87.994))

夏若薄荷猫

Andyhon 发表于 2011-12-8 21:49
Command: (setq pts (list p1 p3))
((54.124 120.414) (129.87 87.994))

谢谢啊      
（兔基斯揉脸）     刚刚对着程序的想的时候突然想出来了