石井鱼 发表于 2017-10-20 09:57:25

确实很方便,感谢提供

孙玉坤 发表于 2018-1-15 21:18:01

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

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

LIULISHENG 发表于 2018-2-6 08:42:55

meja 发表于 2018-12-23 15:26:31

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

talentzf 发表于 2019-1-2 14:51:24

这个挺实用的

xyp1964 发表于 2019-1-5 15:25:34

(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)
)

xzklk 发表于 2020-7-31 15:46:47

谢谢分享!下载了
页: 1 [2]
查看完整版本: 图形净距离阵列