lily1117 发表于 2010-5-21 11:48:00

LISP编个小程序

<p>在知道三个点的情况下用LISP<span style="POSITION: relative; TOP: 42pt; mso-text-raise: -42.0pt;"><shapetype id="_x0000_t75" coordsize="21600,21600" path="m@4@5l@4@11@9@11@9@5xe" filled="f" stroked="f" opreferrelative="t" ospt="75">
                                </shapetype></span>编写一个程序实现知道三点自动生成一个闭合的四边形~~~~</p>

crazylsp 发表于 2010-5-21 17:13:00

没表达清楚，3个点生成三角形嘛

zml84 发表于 2010-5-21 20:36:00

<p><a href="http://zml84.blog.sohu.com/55989437.html">http://zml84.blog.sohu.com/55989437.html</a></p><p><a href="http://115.img.pp.sohu.com/images/blog/2007/8/1/9/18/114b8939ab4.jpg"></a></p>http://115.img.pp.sohu.com/images/blog/2007/8/1/9/18/114b8939ab4.jpg

lily1117 发表于 2010-5-23 09:20:00

我是想三点生成个长方形,这个程序该怎么修改呢?

ghl_729 发表于 2010-5-25 08:45:00

<p>(defun c:sdf()<br/>&nbsp; (command "osnap" "nod,end,cen")<br/>&nbsp; (command "layer" "m" "200" "c" "6" "" "")<br/>&nbsp; (setq p1 (getpoint "\n请输入第一个点(0,0):"))<br/>&nbsp; (setq p2 (getpoint p1 "\n请输入第二个点(0,0):"))<br/>&nbsp; <br/>&nbsp; (setq p3 (getpoint p2"\n请输入第三个点(0,0):"))</p><p>&nbsp; (command "osnap" "off")<br/>&nbsp; (setq s (distance p1 p2))<br/>&nbsp; (setq p4 (polar p3 (angle p2 p1) s))<br/>&nbsp; (command "pline" p1 "w" 0 0 p2 p3 p4 "c" "")<br/>&nbsp;)<br/></p>

ZZXXQQ 发表于 2010-5-25 20:09:00

<a href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=81138">http://bbs.mjtd.com/forum.php?mod=viewthread&tid=81138</a>
页: [1]
查看完整版本: LISP编个小程序