这个程序在测试时是正常的，但在命令输入的话就出错

nonsmall

三点在一线 ab距离等于bc加ac

(defun in_a_line (pta ptb ptc / ptd in)
 (repeat 3
  (if (equal (distance pta ptb) (+ (distance ptc ptb) (distance pta ptc)) 0.00001)
   (setq in T)
  )
  (setq ptd pta pta ptb ptb ptc ptc ptd)
 )
 in
)

nonsmall

命令: (defun ko-tt (ptl)
(_>   (setq p1 (car ptl)
((_>  p2 (cadr ptl)
((_>   )
(_>   (not (apply
(((_>   'or
(((_>   (mapcar
((((_>     '(lambda (p3)
(((('(_>        (inters
(((('((_>   p1
(((('((_>   p2
(((('((_>   p1
(((('((_>   p3
(((('((_>        )
(((('(_>      )
((((_>     (cddr ptl)
((((_>   )
(((_>        )
((_>   )
(_> )
KO-TT
命令: (setq lst (list (getpoint) (getpoint) (getpoint))) ((-2425.99 868.41 0.0)
(-2015.86 868.41 0.0) (-1605.73 868.41 0.0))
命令: (ko-tt lst)
T

命令: (setq lst (list (getpoint) (getpoint) (getpoint)))
((-1455.6 1066.49 0.0) (-1179.17 999.864 0.0) (-1322.02 788.886 0.0))
命令: (ko-tt lst)
nil

测试正常

nonsmall

命令: (defun ko-tt (ptl)
(_>   (setq p1 (car ptl)
((_>  p2 (cadr ptl)
((_>   )
(_>   (not (apply
(((_>   'or
(((_>   (mapcar
((((_>     '(lambda (p3)
(((('(_>        (inters
(((('((_>   p1
(((('((_>   p2
(((('((_>   p1
(((('((_>   p3
(((('((_>        )
(((('(_>      )
((((_>     (cddr ptl)
((((_>   )
(((_>        )
((_>   )
(_> )
KO-TT
命令: (setq lst (list (getpoint) (getpoint) (getpoint))) ((-2425.99 868.41 0.0)
(-2015.86 868.41 0.0) (-1605.73 868.41 0.0))
命令: (ko-tt lst)
T
命令: (setq lst (list (getpoint) (getpoint) (getpoint)))
((-1455.6 1066.49 0.0) (-1179.17 999.864 0.0) (-1322.02 788.886 0.0))
命令: (ko-tt lst)
nil

测试正常