按距离阵列
本帖最后由 GDFGFGF 于 2019-11-30 21:24 编辑;;;===============================================================
;;;luyu 9635简易阵列(矩形阵列+环形阵列+角度复制）
;;;2012.09.15深圳修改
(defun C:RR(/ en ent ss i j xds ydssela 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 发表于 2019-12-1 18:15
整的那么复杂，直接用阵列命令不就好了
该命令用：列的时候记录上次输入的数据没有啊 师傅：列有问题啊 不知道你说的什么问题，你重新建文件测试 start4444 发表于 2019-12-2 10:17
不知道你说的什么问题，你重新建文件测试
07测试没问题了，在2012用好像有点问题，能不能在帮我调试下，就是先：竖向阵列后再去横向阵列就会出现与你输的数据不符合。就像我前面发的图片那样。 GDFGFGF 发表于 2019-12-2 12:21
07测试没问题了，在2012用好像有点问题，能不能在帮我调试下，就是先：竖向阵列后再去横向阵列就会出现与 ...
2012我试了也没问题 start4444 发表于 2019-12-2 12:38
2012我试了也没问题
好吧，你赢了
页:
[1]