快速阵列对象

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

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

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

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

挺好的支持一下！

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

是整列还是阵列?

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

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

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

;;; 楼主的道行很深，令我佩服！
;;; 我试了一下，程序适应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

要是能这样就更好了

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

楼上演示的这个不错

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

学习支持一下

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

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

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

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

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

账号		自动登录	找回密码
密码			注册

[源码] 快速阵列对象

本帖子中包含更多资源

评分

评分

本帖子中包含更多资源