sz721 发表于 2015-11-19 15:44:25

快速阵列对象

本帖最后由 sz721 于 2015-11-21 21:32 编辑

选取间隔距离的两点，快速阵列对象。

594826903 发表于 2019-12-26 13:58:18

挺好的支持一下！

jltx123456 发表于 2015-11-19 15:50:46

是整列还是阵列?

434939575 发表于 2015-11-19 18:36:25

感谢分享！这种方式比较高级，出错处理还不太理解

USER2128 发表于 2015-11-20 09:50:56

;;; 楼主的道行很深，令我佩服！
;;; 我试了一下，程序适应UCS、也适应三维空间。
;;; 为适应我的实际应用，在程序中将(setq pt2 ... 的那行换成：
(setq pt2 (getpoint pt1 "\n选取间隔的第二点或阵列方向点: "))
(setq dst1 (distance pt1 pt2))
(setq dst2 (getdist (strcat "\n输入间隔距离/<" (rtos dst1 2) ">: ")))
(if dst2
    (setq dst2 (mapcar '(lambda(x) (* x (/ dst2 dst1))) (mapcar '- pt2 pt1))
          pt2(mapcar '+ pt1 dst2)
          ))
;;; 更具实用性。

lingduwx 发表于 2015-11-20 13:13:21

要是能这样就更好了

完整武器 发表于 2015-11-25 16:04:34

楼上演示的这个不错

chunwhite 发表于 2015-11-26 15:37:30

学习支持一下

tangjunasd58 发表于 2015-11-27 21:42:34

能记下用使用功能 之后的方向跟距离还有数量的就好了。就是能备份方向 距离 数量 不要每次都要输入 这个就跟之前的角度阵列一样的

love1030312 发表于 2015-11-28 11:35:54

楼上的演示的程序不是迷你的功能么   不带原作者 小心迈大大打你PP

远方小山 发表于 2016-3-6 00:50:59

页: [1] 2
查看完整版本: 快速阵列对象