[求助]新手基础问题 command 画pl 线
<p>1、在屏幕上点击 点 第一个开始算 有n个 最后一个点和第一个点 重合(为了画pl的一个闭合区域) 点过的点形成一个 list_data</p><p>2、在用command 根据 list_data 里面的点 制作成pl线</p>
<p> </p>
<p>用lisp怎么实现啊</p>
<p>新人请教 谢谢</p>
<p> </p> <p>(comand "line" p1 p2 p3 p4 "C")</p>
<p> </p>
<p>C是close 會自動把p4和p1 連起來</p> <font style="BACKGROUND-COLOR: #ffffff" face="Verdana">(setq d (getpoint "\n选取点"))<br/>(setq li '())<br/>( while d<br/> (setq li (cons d li))<br/> (setq d (getpoint "\n选取点"))<br/> )<br/> (command "pline" (foreach pt li(command pt) "c")) </font> <p>非常感谢 <font face="Verdana" color="#61b713"><b>就一小卒 </b></font></p>
<p><strong><font color="#61b713"></font></strong> </p> <p> 共同学习</p>
<p> </p> <p>路过来学习了</p>
<p> </p>
<div><span style="FILTER: glow(color='#A6BA98',strength='2'); WIDTH: 105px"><font face="Verdana" color="#61b713"><b>就一小卒</b></font>的方法值得一试</div>
<div>谢谢</div></span> 学习了 <p>非常好。。。。好极了。。。。</p> 很多人关注啊! 呵呵 试了一下,挺好!有点看不明白(command pt)是什么意思?谁帮解释一下。谢谢!
页:
[1]