liminnet
发表于 2008-10-31 22:51:00
caoyin
发表于 2008-11-1 12:25:00
<p>(and (setq ss (ssget)) (setq pt (getpoint "\n选择基点:")) (setq pt1 (getpoint <font color="#f73809">pt</font> "\n指定新基点:")))</p><p>橡皮筋与动态没有关系，动态grread可以做到，command也可以模仿</p>
jxlsp
发表于 2008-11-1 12:52:00
<p>都是蜘蛛侠,厉害.</p>
飞诗(fsxm)
发表于 2008-11-1 17:51:00
;;你要的是这样吧：<br/>(defun c:tt ()<br/> (prompt "\n请选择复制旋转的对象：")<br/> (if (and (setq ss (ssget))<br/> (setq pt (getpoint "\n选择基点:"))<br/> )<br/> (progn<br/> (setq la (entlast))<br/> (command "copy" ss "" pt pause)<br/> (setq newss (ssadd))<br/> (while (setq la (entnext la)) (ssadd la newss))<br/> (command "rotate" newss "" "non" "@" pause)<br/> )<br/> )<br/>)
liminnet
发表于 2008-11-1 18:00:00
liminnet
发表于 2008-11-1 18:03:00
jxlsp
发表于 2008-11-1 18:57:00
<p>搭车学了一招,请问这可以用在什么情况下?</p>
backtooth
发表于 2009-2-12 13:19:00
<p>原来橡皮筋可以这样做~又学一招</p><p>我都用grread,鼠标动的时候显示,悬停时就不见了</p>
jaminth
发表于 2009-2-12 14:05:00
<p>修改了一下6楼的内容,缺了")</p><p>(defun c:tt ()<br/> (prompt "\n请选择复制旋转的对象：")<br/> (if (and (setq ss (ssget))<br/> (setq pt (getpoint "\n选择基点:"))<br/> )<br/> (progn<br/> (setq la (entlast))</p><p> (princ "\n请指点目标点:")<br/> (command "copy" ss "" pt pause)<br/> (setq newss (ssadd))<br/> (while (setq la (entnext la)) (ssadd la newss))</p><p> (princ "\n指定旋转角度或 [参照(R)]:<strong><font color="#f70909">")</font></strong><br/> (command "rotate" newss "" "non" "@" pause)<br/> )<br/> )<br/>)<br/></p>
zmzk
发表于 2022-2-1 07:45:27
好方法，收入囊中
页:
[1]