图形净距离阵列

石井鱼

确实很方便，感谢提供

孙玉坤

luyu9635 发表于 2017-10-18 21:52
也许这个可以满足你的要求，定的规则是这样的：，可以是接受鼠标和键盘输入且有默认值;如果上次的输入是鼠 ...

好久没有登录啦  大师你这个净距离整列的功能   可能再修改一下， 就是第二次是自动回加入土元的尺寸，能不能改成 一直保持输入的净距离不变，万分感谢

LIULISHENG

meja

这个程序AAR本身就是论坛提供的

talentzf

这个挺实用的

xyp1964

1. (defun c:tt ()
   
2.   (setq ang (UangLE 1 "" "阵列方向<输入或鼠标直接量取>" ang nil))
   
3.   (setq dist (Udist 1 "" "间隔<输入或鼠标直接量取>" dist nil))
   
4.   (setq nn (Uint 7 "" "数量" nn))
   
5.   (setvar "osmode" 0)
   
6.   (while (setq ss (ssget))
   
7.     (setq p1 (xyp-9pt ss 1)
   
8.           p2 (xyp-9pt ss 3)
   
9.           dd (distance p1 p2)
   
10.           i  1
    
11.     )
    
12.     (repeat (1- nn)
    
13.       (setq p3 (polar p1 ang (* (+ dd dist) i))
    
14.             i  (1+ i)
    
15.       )
    
16.       (xyp-copyMove ss p1 p3)
    
17.     )
    
18.   )
    
19.   (princ)
    
20. )

(defun c:tt ()<br />   (setq ang (UangLE 1 "" "阵列方向<输入或鼠标直接量取>" ang nil))<br />   (setq dist (Udist 1 "" "间隔<输入或鼠标直接量取>" dist nil))<br />   (setq nn (Uint 7 "" "数量" nn))<br />   (setvar "osmode" 0)<br />   (while (setq ss (ssget))<br />     (setq p1 (xyp-9pt ss 1)<br />           p2 (xyp-9pt ss 3)<br />           dd (distance p1 p2)<br />           i  1<br />     )<br />     (repeat (1- nn)<br />       (setq p3 (polar p1 ang (* (+ dd dist) i))<br />             i  (1+ i)<br />       )<br />       (xyp-copyMove ss p1 p3)<br />     )<br />   )<br />   (princ)<br /> )

xzklk

谢谢分享！下载了