两图形的快速对齐
<p>在精雕软件里对于两个图形的对齐功能很好用</p><p>比如左边对齐,右边对齐,上对齐,下对齐,和中心对齐</p><p>实质和移动图形差不多,不过看他们用对齐好像比CAD里移动或者3维对齐要方便多了</p><p>不知哪位高手有兴趣也搞一个CAD的2维对齐出来啊</p> <p>本人水平很有限,只能提供个想法</p><p>最好再有个斜对齐</p> ============================================<br/>(defun c:al2 () //二维对齐<br/>(terpri)(setq ss (ssget))<br/>(setq n1 (getpoint "\n 指定原1点"))<br/>(setq n2 (getpoint "\n 指定原2点"))<br/>(setq t1 (getpoint "\n 新1点"))<br/>(setq t2 (getpoint "\n 新2点"))<br/>(command "_ALIGN" ss "" n1 t1 n2 t2 "" "")(princ)) 黄河兄:能否把这个改成直接选择中要对齐的图形再选择要对齐的位置就自动对齐的?
页:
[1]