liminnet 发表于 2008-10-17 11:32:00

nonsmall 发表于 2008-10-17 16:57:00

本帖最后由 作者 于 2008-10-17 16:58:50 编辑 <br /><br /> <p>三点在一线 ab距离等于bc加ac</p><p>(defun in_a_line (pta ptb ptc / ptd in)<br/>&nbsp;(repeat 3<br/>&nbsp;&nbsp;(if (equal (distance pta ptb) (+ (distance ptc ptb) (distance pta ptc)) 0.00001)<br/>&nbsp;&nbsp;&nbsp;(setq in T)<br/>&nbsp;&nbsp;)<br/>&nbsp;&nbsp;(setq ptd pta pta ptb ptb ptc ptc ptd)<br/>&nbsp;)<br/>&nbsp;in<br/>)</p>

nonsmall 发表于 2008-10-17 17:09:00

<p>命令: (defun ko-tt (ptl)<br/>(_&gt;&nbsp;&nbsp; (setq p1 (car ptl)<br/>((_&gt;&nbsp; p2 (cadr ptl)<br/>((_&gt;&nbsp;&nbsp; )<br/>(_&gt;&nbsp;&nbsp; (not (apply<br/>(((_&gt;&nbsp;&nbsp; 'or<br/>(((_&gt;&nbsp;&nbsp; (mapcar<br/>((((_&gt;&nbsp;&nbsp;&nbsp;&nbsp; '(lambda (p3)<br/>(((('(_&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (inters<br/>(((('((_&gt;&nbsp;&nbsp; p1<br/>(((('((_&gt;&nbsp;&nbsp; p2<br/>(((('((_&gt;&nbsp;&nbsp; p1<br/>(((('((_&gt;&nbsp;&nbsp; p3<br/>(((('((_&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>(((('(_&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>((((_&gt;&nbsp;&nbsp;&nbsp;&nbsp; (cddr ptl)<br/>((((_&gt;&nbsp;&nbsp; )<br/>(((_&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>((_&gt;&nbsp;&nbsp; )<br/>(_&gt; )<br/>KO-TT<br/>命令: (setq lst (list (getpoint) (getpoint) (getpoint))) ((-2425.99 868.41 0.0) <br/>(-2015.86 868.41 0.0) (-1605.73 868.41 0.0))<br/>命令: (ko-tt lst)<br/>T</p><p>命令: (setq lst (list (getpoint) (getpoint) (getpoint)))<br/>((-1455.6 1066.49 0.0) (-1179.17 999.864 0.0) (-1322.02 788.886 0.0))<br/>命令: (ko-tt lst)<br/>nil</p><p>测试正常</p>

nonsmall 发表于 2008-10-17 17:10:00

<p>命令: (defun ko-tt (ptl)<br/>(_&gt;&nbsp;&nbsp; (setq p1 (car ptl)<br/>((_&gt;&nbsp; p2 (cadr ptl)<br/>((_&gt;&nbsp;&nbsp; )<br/>(_&gt;&nbsp;&nbsp; (not (apply<br/>(((_&gt;&nbsp;&nbsp; 'or<br/>(((_&gt;&nbsp;&nbsp; (mapcar<br/>((((_&gt;&nbsp;&nbsp;&nbsp;&nbsp; '(lambda (p3)<br/>(((('(_&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (inters<br/>(((('((_&gt;&nbsp;&nbsp; p1<br/>(((('((_&gt;&nbsp;&nbsp; p2<br/>(((('((_&gt;&nbsp;&nbsp; p1<br/>(((('((_&gt;&nbsp;&nbsp; p3<br/>(((('((_&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>(((('(_&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>((((_&gt;&nbsp;&nbsp;&nbsp;&nbsp; (cddr ptl)<br/>((((_&gt;&nbsp;&nbsp; )<br/>(((_&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>((_&gt;&nbsp;&nbsp; )<br/>(_&gt; )<br/>KO-TT<br/>命令: (setq lst (list (getpoint) (getpoint) (getpoint))) ((-2425.99 868.41 0.0) <br/>(-2015.86 868.41 0.0) (-1605.73 868.41 0.0))<br/>命令: (ko-tt lst)<br/>T<br/>命令: (setq lst (list (getpoint) (getpoint) (getpoint)))<br/>((-1455.6 1066.49 0.0) (-1179.17 999.864 0.0) (-1322.02 788.886 0.0))<br/>命令: (ko-tt lst)<br/>nil</p><p></p><p>测试正常</p>

liminnet 发表于 2008-10-17 17:30:00

页: [1]
查看完整版本: 这个程序在测试时是正常的，但在命令输入的话就出错