也许这个可以满足你的要求,定的规则是这样的:,可以是接受鼠标和键盘输入且有默认值;如果上次的输入是鼠 ...
好久没有登录啦大师你这个净距离整列的功能 可能再修改一下, 就是第二次是自动回加入土元的尺寸,能不能改成 一直保持输入的净距离不变,万分感谢 这个程序AAR本身就是论坛提供的 这个挺实用的 (defun c:tt ()
(setq ang (UangLE 1 "" "阵列方向<输入或鼠标直接量取>" ang nil))
(setq dist (Udist 1 "" "间隔<输入或鼠标直接量取>" dist nil))
(setq nn (Uint 7 "" "数量" nn))
(setvar "osmode" 0)
(while (setq ss (ssget))
(setq p1 (xyp-9pt ss 1)
p2 (xyp-9pt ss 3)
dd (distance p1 p2)
i1
)
(repeat (1- nn)
(setq p3 (polar p1 ang (* (+ dd dist) i))
i(1+ i)
)
(xyp-copyMove ss p1 p3)
)
)
(princ)
) 谢谢分享!下载了
页:
1
[2]