shuchao 发表于 2007-6-5 11:49:00

lisp函数

<p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt 21pt; TEXT-INDENT: -21pt; mso-list: l0 level1 lfo1; tab-stops: list 21.0pt;">定义一个<font face="Verdana">LISP</font>函数。功能：使用全局函数创建一个简单实体<font face="Verdana">-</font>圆，返回圆的实体数据链表，圆心和半径由用户输入。</p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt 21pt; TEXT-INDENT: -21pt; mso-list: l0 level1 lfo1; tab-stops: list 21.0pt;">这个程序怎么做？谁能给我详细的代码？</p>

BDYCAD 发表于 2007-6-5 15:33:00

<p>;画一个半径为12的CIRCLE<br/>(createcircle(getpoint)12.0)</p><p>&nbsp;</p>

shuchao 发表于 2007-6-5 16:36:00

为什么无法加载呀？有没有原代码？

BDYCAD 发表于 2007-6-5 18:42:00

<p>代码在12楼</p><p><a href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=58568&extra=&page=2&amp;page">http://bbs.mjtd.com/forum.php?mod=viewthread&tid=58568&extra=&page=2&amp;page</a>=</p>
页: [1]
查看完整版本: lisp函数