[已经解决]获取对象包围盒、最小包围盒-----(也适于UCS)

FANGZHENG158

学习一下   

自贡黄明儒

669423907 发表于 2013-9-20 21:44
;;----------------=={ Minimum Bounding Box }==----------------;;
;;                                 ...

Lee Mac确实很牛，如果加载highflybir的矩阵,程序如下

1. ;;(LM:MinBoundingBox 选择集 精度[取值0~1]);返回包盒四角点
   
2. (defun LM:MinBoundingBox (ss pr / an ba bb bm cn cv i l mb)
   
3.   ;;VLA列表的包围盒的最小最大点列表
   
4.   (defun LM:ListBoundingBox (lst / l1 l2 ll ur)
   
5.     (foreach obj lst
   
6.       (vla-getboundingbox obj 'll 'ur)
   
7.       (setq l1 (cons (vlax-safearray->list ll) l1)
   
8.             l2 (cons (vlax-safearray->list ur) l2)
   
9.       )
   
10.     )
    
11.     (mapcar
    
12.       (function (lambda (a b) (apply 'mapcar (cons a b))))
    
13.       '(min max)
    
14.       (list l1 l2)
    
15.     )
    
16.   )
    
17. 
    
18.   (repeat (setq i (sslength ss))
    
19.     (setq l (cons (vla-copy
    
20.                     (vlax-ename->vla-object (ssname ss (setq i (1- i))))
    
21.                   )
    
22.                   l
    
23.             )
    
24.     )
    
25.   )
    
26.   (setq bb (LM:ListBoundingBox l))                  ;((-1437.59 2366.2 0) (-1429.07 2376.16 0))
    
27.   (setq        pr (* pr pi)
    
28.         cn (apply 'mapcar
    
29.                   (cons (function (lambda (a b) (/ (+ a b) 2.0))) bb)
    
30.            )
    
31.         cv (vlax-3D-point cn)                          ;中点
    
32.         bm (* (- (caadr bb) (caar bb)) (- (cadadr bb) (cadar bb))) ;x*y相当于面积
    
33.         mb (cons 0.0 bb)
    
34.         an 0
    
35.   )
    
36.   (while (< (setq an (+ an pr)) pi)
    
37.     (foreach x l (vla-rotate x cv pr))                  ;旋转
    
38.     (setq bb (LM:ListBoundingBox l)                  ;旋转之后图元列表的最小包围盒
    
39.           ba (* (- (caadr bb) (caar bb)) (- (cadadr bb) (cadar bb)))
    
40.     )
    
41.     (if        (< ba bm)
    
42.       (setq bm ba
    
43.             mb (cons an bb)
    
44.       )
    
45.     )
    
46.   )
    
47.   (foreach x l (vla-delete x))                          ;删除
    
48.   (LM:RotateByMatrix
    
49.     (mapcar
    
50.       (function
    
51.         (lambda        (a)
    
52.           (mapcar (function (lambda (b) ((eval b) (cdr mb)))) a)
    
53.         )
    
54.       )
    
55.       '((caar cadar) (caadr cadar) (caadr cadadr) (caar cadadr))
    
56.     )
    
57.     cn                                                  ;旋转中心点
    
58.     (- (car mb))                                  ;角度
    
59.   )
    
60. )
    

;;(LM:MinBoundingBox 选择集 精度[取值0~1]);返回包盒四角点<br /> (defun LM:MinBoundingBox (ss pr / an ba bb bm cn cv i l mb)<br />   ;;VLA列表的包围盒的最小最大点列表<br />   (defun LM:ListBoundingBox (lst / l1 l2 ll ur)<br />     (foreach obj lst<br />       (vla-getboundingbox obj 'll 'ur)<br />       (setq l1 (cons (vlax-safearray->list ll) l1)<br />             l2 (cons (vlax-safearray->list ur) l2)<br />       )<br />     )<br />     (mapcar<br />       (function (lambda (a b) (apply 'mapcar (cons a b))))<br />       '(min max)<br />       (list l1 l2)<br />     )<br />   )<br /> <br />   (repeat (setq i (sslength ss))<br />     (setq l (cons (vla-copy<br />                     (vlax-ename->vla-object (ssname ss (setq i (1- i))))<br />                   )<br />                   l<br />             )<br />     )<br />   )<br />   (setq bb (LM:ListBoundingBox l))                  ;((-1437.59 2366.2 0) (-1429.07 2376.16 0))<br />   (setq        pr (* pr pi)<br />         cn (apply 'mapcar<br />                   (cons (function (lambda (a b) (/ (+ a b) 2.0))) bb)<br />            )<br />         cv (vlax-3D-point cn)                          ;中点<br />         bm (* (- (caadr bb) (caar bb)) (- (cadadr bb) (cadar bb))) ;x*y相当于面积<br />         mb (cons 0.0 bb)<br />         an 0<br />   )<br />   (while (< (setq an (+ an pr)) pi)<br />     (foreach x l (vla-rotate x cv pr))                  ;旋转<br />     (setq bb (LM:ListBoundingBox l)                  ;旋转之后图元列表的最小包围盒<br />           ba (* (- (caadr bb) (caar bb)) (- (cadadr bb) (cadar bb)))<br />     )<br />     (if        (< ba bm)<br />       (setq bm ba<br />             mb (cons an bb)<br />       )<br />     )<br />   )<br />   (foreach x l (vla-delete x))                          ;删除<br />   (LM:RotateByMatrix<br />     (mapcar<br />       (function<br />         (lambda        (a)<br />           (mapcar (function (lambda (b) ((eval b) (cdr mb)))) a)<br />         )<br />       )<br />       '((caar cadar) (caadr cadar) (caadr cadadr) (caar cadadr))<br />     )<br />     cn                                                  ;旋转中心点<br />     (- (car mb))                                  ;角度<br />   )<br /> )<br />

crazylsp

此处四个角点的转置数学意义我想是这样的：
根据转置的定义，两行两列行列交换后仍然是两行两列
p11 p12  变成 p11 p21
p21 p22         p12 p22

从四个角点看就是右上左下角的坐标交换了

                                 
                                 

yxyfy

两种包围盒都有？

jxjaxa

wwwwwwwwwwwwwwwwwww

jsh2939

看看！！！！！！！

mufy

三维实体能实现吗

USER2128

回复，学习黄大侠的程序！

rakea

感谢分享，我其实现在正在学习编程