YCH840 发表于 2011-12-1 16:05:21

CAD任意角度阵列程序

CAD任意角度阵列程序，很好用！

zmzk 发表于 2024-1-26 10:00:06

一般般，用处不算大，论坛里已经有几个类似的了！！

依然小小鸟 发表于 2024-3-26 12:58:39

不错的帖子 顶一下

阿猪蛋 发表于 2024-10-6 08:54:16

好用，谢谢分享。。

YCH840 发表于 2011-12-1 16:06:40

【KAIXIN】 发表于 2011-12-1 16:14:36

好用，但不是很实用

先进者 发表于 2011-12-1 16:58:06

最好能加上记忆就好了

xiaoquansb 发表于 2011-12-1 23:16:03

和旋转阵列有区别

ljpnb 发表于 2011-12-2 08:02:07

试过了，支持一下。。

mycad 发表于 2012-3-1 15:44:14

谢谢，学习！！！！！！

GamIng 发表于 2012-3-31 16:27:18


楼主的附件：

;;;;;;;;;;;;;角度阵列程序;;;;;;;;;;;;;;;;
(defun C:AAR ( / ss ang bp cnt dist d)
(cond
    ((setq ss (ssget))
       (initget 1)
       (setq bp (getpoint "\n基点： "))
       (initget 1)
       (setq ang
       (getangle bp "\n阵列方向： "))
       (initget 7)
       (setq dist
       (getdist "\n对象间距： "))
       (initget 7)
       (setq cnt (getint "\n对象个数： "))
       (setq d 0.0)
       (setvar "cmdecho" 0)
       (command "_.undo" "_g" "_.copy" ss "" "_m" bp)         
       (repeat (1- cnt)
       (command (polar bp ang (setq d (+ d dist)))))      
       (command "" "_.undo" "_e"))) (princ))   

smartstar 发表于 2012-4-29 09:29:38

收藏了，谢谢楼主。

功夫佬 发表于 2012-4-29 12:45:39

看了一下，还可以改为相同距离重复移动对像哦，两点确定基点和方向。
页: [1] 2 3
查看完整版本: CAD任意角度阵列程序