<p>请问<strong><font face="Verdana" color="#61b713">liminnet:</font></strong></p><p><strong><font face="Verdana" color="#61b713">这个程序怎么执行啊?</font></strong></p><p><strong><font face="Verdana" color="#61b713">命令名是什么>?</font></strong></p><p><strong><font face="Verdana" color="#61b713">我没有看出来</font></strong></p>
XIAOFEILONG发表于2008-10-27 20:58:00static/image/common/back.gif用copy命令,要复制指定的距离,比如间距为400的复制,要连续输入数据400,800,1200,1600,2000...........有没有办法,在连续复制的时候,只输入一次400,就可以以400的间距一直复制下去?
<p>一直复制下去,岂不是要死机.</p>
<p>我试了一下这个程序</p><p>和我希望的还有差距</p><p>在输入偏移距离的时候,我是希望只输入一个数,然后用鼠标点击来控制复制的个数</p><p>简单的说,就是相当与OFFSET命令,只不过OFFSET只能对线操作,而我希望的是对所有物体进行操作,由鼠标来控制方向</p><p>谢谢</p>
<p>谢谢,我希望能用鼠标点击来控制复制的个数</p><p>鼠标点击1次,就在前面复制的基础上再延着鼠标行动的方向偏移一个固定的距离</p>
本帖最后由 作者 于 2008-10-31 9:58:49 编辑 <br /><br /> XIAOFEILONG发表于2008-10-31 1:36:00static/image/common/back.gif谢谢,我希望能用鼠标点击来控制复制的个数鼠标点击1次,就在前面复制的基础上再延着鼠标行动的方向偏移一个固定的距离
<p>两行搞定</p><p>（defun c:mcopy(/ )</p><p>(setq ent(entsel)pt(cadr ent)ent(car ent)dist(getdist pt"输入距离："))</p><p>(while(setq a(getangle pt"指定方向："))(setq p(polar pt a dist))(command"copy"ent "" pt p)(setq pt p ent(entlast)))</p><p>）</p>
jxlsp发表于2008-10-31 9:52:00static/image/common/back.gif两行搞定（defun c:mcopy(/ )(setq ent(entsel)pt(cadr ent)ent(car ent)dist(getdist pt\"输入距离：\"))(while(setq a(getangle pt\"指定方向：\"))(setq p(polar pt a dist))(command\"copy
<p></p><p>太强了!!</p><p>不愧是<strong><em>jxlsp啊!</em></strong></p><p><strong><em></em></strong></p><p><strong><em>也感谢</em></strong>liminnet !</p>