按距离阵列

GDFGFGF

;;;===============================================================
;;;luyu 9635简易阵列(矩形阵列+环形阵列+角度复制）
;;;2012.09.15深圳修改
(defun C:RR  (/ en ent ss i j xds yds  sel  a b fx ang ang1 ang2 po po1 p1 p2 n temp jj dist)
  (vl-load-com)
;;;;;单个图元包围盒
(defun eBox (ent / ll ur)
  (vla-getboundingbox (vlax-ename->vla-object ent) 'll 'ur)
  (mapcar 'safearray-value (list ll ur))
)
;;;;;;;;;;
;;;;;;;;;;
;;;;;求点集中最小和最大点
(defun minmax(plist)
(list (apply 'mapcar (cons 'min plist))
      (apply 'mapcar (cons 'max plist)))
)
;;(mapcar '(lambda ( a b ) (apply 'mapcar (cons a b))) '(min max) (list plist plist))
;;;;;选择集最大包围盒
(defun box  (ss / i en plist pt1 pt2 a b ab)
  (setq

start4444

整的那么复杂，直接用阵列命令不就好了

GDFGFGF

start4444 发表于 2019-12-1 18:15
整的那么复杂，直接用阵列命令不就好了

该命令用：列的时候记录上次输入的数据没有啊

GDFGFGF

师傅：列有问题啊

start4444

不知道你说的什么问题，你重新建文件测试

GDFGFGF

start4444 发表于 2019-12-2 10:17
不知道你说的什么问题，你重新建文件测试

07测试没问题了，在2012用好像有点问题，能不能在帮我调试下，就是先：竖向阵列后再去横向阵列就会出现与你输的数据不符合。就像我前面发的图片那样。

start4444

GDFGFGF 发表于 2019-12-2 12:21
07测试没问题了，在2012用好像有点问题，能不能在帮我调试下，就是先：竖向阵列后再去横向阵列就会出现与 ...

2012我试了也没问题

GDFGFGF

start4444 发表于 2019-12-2 12:38
2012我试了也没问题

好吧，你赢了