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

自贡黄明儒

namezg 发表于 2013-9-17 19:40
最近刚写的

我用此得出的结果好象不对
你的mxp同highflybir论矩阵中的MAT:mxp有什么差别？

自贡黄明儒

;;下面的代码可以求UCS下任何对象的四个角点，但太罗索
;;哪位高手优化一下

2. 
   
3. ;;考虑UCS,照搬highflybird的程序
   
4. ;|
   
5. 4 = 左上；3 = 右上
   
6. 1 = 左下；2 = 右下
   
7. |;
   
8. ;;(HH:Ename4pt (car (entsel))),返回UCS坐标系下坐标
   
9. (defun HH:Ename4pt (ent             /              LASTENT  LST        MATLST         MATRIX
   
10.                     MAXPT    MINPT    OBJ      ORIGIN        REVMAT         UCSFLAG
    
11.                     WCSORG   XDIR     YDIR     ZDIR
    
12.                    )
    
13.   ;;1 矩阵的变换与逆变换
    
14.   (defun GetMatrix (lst org Revflag / I J MAT)
    
15.     (setq mat (vlax-make-safearray vlax-vbDouble '(0 . 3) '(0 . 3)))
    
16.     ;;初始化一个4X4的矩阵
    
17.     (setq i 0)
    
18.     (repeat 3
    
19.       (vlax-safearray-put-element mat i 3 (nth i org)) ;平移变换
    
20.       (setq j 0)
    
21.       (repeat 3
    
22.         (if RevFlag
    
23.           (vlax-safearray-put-element mat i j (nth j (nth i lst))) ;角度逆变换
    
24.           (vlax-safearray-put-element mat i j (nth i (nth j lst))) ;角度的变换
    
25.         )
    
26.         (setq j (1+ j))
    
27.       )
    
28.       (setq i (1+ i))
    
29.     )
    
30.     (vlax-safearray-put-element mat 3 3 1)
    
31.     mat                                                  ;返回矩阵
    
32.   )
    
33.   ;;2 构造矩形
    
34.   (defun Make-Rectange (pt1 pt2)
    
35.     (entmake
    
36.       (list
    
37.         '(0 . "LWPOLYLINE")                          ;轻多段线
    
38.         '(100 . "AcDbEntity")
    
39.         '(100 . "AcDbPolyline")
    
40.         '(90 . 4)                                  ;四个顶点
    
41.         '(70 . 1)                                  ;闭合
    
42.         (cons 38 (caddr pt1))                          ;高程
    
43.         (cons 10 (list (car pt1) (cadr pt1)))          ;左下角
    
44.         (cons 10 (list (car pt2) (cadr pt1)))          ;右下角
    
45.         (cons 10 (list (car pt2) (cadr pt2)))          ;右上角
    
46.         (cons 10 (list (car pt1) (cadr pt2)))          ;左上角
    
47.         (cons 210 '(0 0 1))                          ;法线方向
    
48.       )
    
49.     )
    
50.   )
    
51. 
    
52.   ;;3 本程序主程序
    
53.   (cond        ((= (type ent) 'ENAME)
    
54.          (setq obj (vlax-ename->vla-object ent))
    
55.         )
    
56.         ((= (type ent) 'VLA-OBJECT) (setq obj ent))
    
57.         (T (exit))
    
58.   )
    
59. 
    
60.   (command "_.UCS" "NEW" "Object" ent)
    
61. 
    
62.   ;;先判断UCS是否与WCS相同。如是则取得UCS的X方向，
    
63.   ;;Y方向，Z方向，UCS原点及WCS的原点相对UCS的坐标点
    
64.   ;;然后得到UCS变换矩阵和到WCS的逆变换矩阵
    
65.   (setq UcsFlag (getvar "WORLDUCS"))
    
66.   (if (= UcsFlag 0)                                  ;UCS是否与WCS相同
    
67.     (setq UcsFlag T                                  ;设置标志位为true
    
68.           xdir          (getvar "UCSXDIR")                  ;X方向矢量
    
69.           ydir          (getvar "UCSYDIR")                  ;Y方向矢量
    
70.           zdir          (MAT:vxv xdir ydir)                  ;X和Y的方向矢量的叉积
    
71.           origin  (getvar "UCSORG")                  ;原点
    
72.           WcsOrg  (trans '(0 0 0) 0 1)                  ;WCS的原点相对UCS的坐标
    
73.           matLst  (list xdir ydir zdir)                  ;旋转的变换矩阵表
    
74.           matrix  (GetMatrix matLst origin nil)          ;从WCS到UCS的变换矩阵
    
75.           revMat  (GetMatrix matLst WcsOrg T)          ;从UCS到WCS的变换矩阵
    
76.     )
    
77.     (setq UcsFlag nil)                                  ;否则不予变换
    
78.   )
    
79.   ;;在UCS下先变换物体到WCS下，取得每个物体的包围框，
    
80.   ;;求出包围框集合的最小XY，最大XY，并用矩形框画出来
    
81.   ;;然后把物体变换回到UCS，并把矩形也变换回去
    
82.   (and UcsFlag (vla-TransformBy obj revMat))          ;反变换到WCS
    
83.   (vla-GetBoundingBox obj 'minPt 'maxPt)          ;得到包围框
    
84.   (setq minPt (vlax-safearray->list minPt))
    
85.   ;;(setq minPt (trans minPt ent 1))
    
86.   (setq maxPt (vlax-safearray->list maxPt))
    
87.   (and UcsFlag (vla-TransformBy obj matrix))          ;变换回到UCS
    
88.   (command "_.UCS" "p")
    
89. 
    
90.   (and
    
91.     (make-Rectange minPt maxPt)                          ;构造边框
    
92.     UcsFlag                                          ;如果UCS的话
    
93.     (vla-TransformBy (vlax-ename->vla-object (entlast)) matrix)
    
94.   )
    
95. 
    
96.   (foreach x (entget (entlast))
    
97.     (if        (equal (car x) 10)
    
98.       (setq lst (cons (cdr x) lst))
    
99.     )
    
100.   )
     
101.   ;;(REVERSE lst);返回世界坐标系下坐标
     
102.   (mapcar '(lambda (x) (trans x ent 1)) (REVERSE lst))
     
103. )
     

<br /> ;;考虑UCS,照搬highflybird的程序<br /> ;|<br /> 4 = 左上；3 = 右上<br /> 1 = 左下；2 = 右下<br /> |;<br /> ;;(HH:Ename4pt (car (entsel))),返回UCS坐标系下坐标<br /> (defun HH:Ename4pt (ent             /              LASTENT  LST        MATLST         MATRIX<br />                     MAXPT    MINPT    OBJ      ORIGIN        REVMAT         UCSFLAG<br />                     WCSORG   XDIR     YDIR     ZDIR<br />                    )<br />   ;;1 矩阵的变换与逆变换<br />   (defun GetMatrix (lst org Revflag / I J MAT)<br />     (setq mat (vlax-make-safearray vlax-vbDouble '(0 . 3) '(0 . 3)))<br />     ;;初始化一个4X4的矩阵<br />     (setq i 0)<br />     (repeat 3<br />       (vlax-safearray-put-element mat i 3 (nth i org)) ;平移变换<br />       (setq j 0)<br />       (repeat 3<br />         (if RevFlag<br />           (vlax-safearray-put-element mat i j (nth j (nth i lst))) ;角度逆变换<br />           (vlax-safearray-put-element mat i j (nth i (nth j lst))) ;角度的变换<br />         )<br />         (setq j (1+ j))<br />       )<br />       (setq i (1+ i))<br />     )<br />     (vlax-safearray-put-element mat 3 3 1)<br />     mat                                                  ;返回矩阵<br />   )<br />   ;;2 构造矩形<br />   (defun Make-Rectange (pt1 pt2)<br />     (entmake<br />       (list<br />         '(0 . "LWPOLYLINE")                          ;轻多段线<br />         '(100 . "AcDbEntity")<br />         '(100 . "AcDbPolyline")<br />         '(90 . 4)                                  ;四个顶点<br />         '(70 . 1)                                  ;闭合<br />         (cons 38 (caddr pt1))                          ;高程<br />         (cons 10 (list (car pt1) (cadr pt1)))          ;左下角<br />         (cons 10 (list (car pt2) (cadr pt1)))          ;右下角<br />         (cons 10 (list (car pt2) (cadr pt2)))          ;右上角<br />         (cons 10 (list (car pt1) (cadr pt2)))          ;左上角<br />         (cons 210 '(0 0 1))                          ;法线方向<br />       )<br />     )<br />   )<br /> <br />   ;;3 本程序主程序<br />   (cond        ((= (type ent) 'ENAME)<br />          (setq obj (vlax-ename->vla-object ent))<br />         )<br />         ((= (type ent) 'VLA-OBJECT) (setq obj ent))<br />         (T (exit))<br />   )<br /> <br />   (command "_.UCS" "NEW" "Object" ent)<br /> <br />   ;;先判断UCS是否与WCS相同。如是则取得UCS的X方向，<br />   ;;Y方向，Z方向，UCS原点及WCS的原点相对UCS的坐标点<br />   ;;然后得到UCS变换矩阵和到WCS的逆变换矩阵<br />   (setq UcsFlag (getvar "WORLDUCS"))<br />   (if (= UcsFlag 0)                                  ;UCS是否与WCS相同<br />     (setq UcsFlag T                                  ;设置标志位为true<br />           xdir          (getvar "UCSXDIR")                  ;X方向矢量<br />           ydir          (getvar "UCSYDIR")                  ;Y方向矢量<br />           zdir          (MAT:vxv xdir ydir)                  ;X和Y的方向矢量的叉积<br />           origin  (getvar "UCSORG")                  ;原点<br />           WcsOrg  (trans '(0 0 0) 0 1)                  ;WCS的原点相对UCS的坐标<br />           matLst  (list xdir ydir zdir)                  ;旋转的变换矩阵表<br />           matrix  (GetMatrix matLst origin nil)          ;从WCS到UCS的变换矩阵<br />           revMat  (GetMatrix matLst WcsOrg T)          ;从UCS到WCS的变换矩阵<br />     )<br />     (setq UcsFlag nil)                                  ;否则不予变换<br />   )<br />   ;;在UCS下先变换物体到WCS下，取得每个物体的包围框，<br />   ;;求出包围框集合的最小XY，最大XY，并用矩形框画出来<br />   ;;然后把物体变换回到UCS，并把矩形也变换回去<br />   (and UcsFlag (vla-TransformBy obj revMat))          ;反变换到WCS<br />   (vla-GetBoundingBox obj 'minPt 'maxPt)          ;得到包围框<br />   (setq minPt (vlax-safearray->list minPt))<br />   ;;(setq minPt (trans minPt ent 1))<br />   (setq maxPt (vlax-safearray->list maxPt))<br />   (and UcsFlag (vla-TransformBy obj matrix))          ;变换回到UCS<br />   (command "_.UCS" "p")<br /> <br />   (and<br />     (make-Rectange minPt maxPt)                          ;构造边框<br />     UcsFlag                                          ;如果UCS的话<br />     (vla-TransformBy (vlax-ename->vla-object (entlast)) matrix)<br />   )<br /> <br />   (foreach x (entget (entlast))<br />     (if        (equal (car x) 10)<br />       (setq lst (cons (cdr x) lst))<br />     )<br />   )<br />   ;;(REVERSE lst);返回世界坐标系下坐标<br />   (mapcar '(lambda (x) (trans x ent 1)) (REVERSE lst))<br /> )<br />

namezg

我这边没有问题，获得的是对象UCS包围盒四角点的WCS坐标(注意不是UCS坐标)

而我测试你发的却是有问题的，绘制的矩形不正确。

自贡黄明儒

我发的图就是用12楼的代码画出来的，应该没有问题呀，只不过写得不好

Gu_xl

自贡黄明儒 发表于 2013-9-17 16:46
我是想直接取得对象的四个角点，而且是通用的。
确又搞不定

1.       ;;返回四个角点WCS坐标
   
2.       (princ
   
3.       (list
   
4.       (mat:mxp (vlax-safearray->list  matrix) minPt) ;_ 左下角坐标
   
5.       (mat:mxp (vlax-safearray->list  matrix) (list (car minpt) (cadr maxPt) (caddr minPt))) ;_ 左上角坐标
   
6.       (mat:mxp (vlax-safearray->list  matrix) maxPt) ;_ 右上角坐标
   
7.       (mat:mxp (vlax-safearray->list  matrix) (list (car maxPt) (cadr minpt) (caddr minPt))) ;_ 右下角坐标
   
8.       ))
   

      ;;返回四个角点WCS坐标<br />       (princ<br />       (list<br />       (mat:mxp (vlax-safearray->list  matrix) minPt) ;_ 左下角坐标<br />       (mat:mxp (vlax-safearray->list  matrix) (list (car minpt) (cadr maxPt) (caddr minPt))) ;_ 左上角坐标<br />       (mat:mxp (vlax-safearray->list  matrix) maxPt) ;_ 右上角坐标<br />       (mat:mxp (vlax-safearray->list  matrix) (list (car maxPt) (cadr minpt) (caddr minPt))) ;_ 右下角坐标<br />       ))<br />

namezg

红色的包围盒是用我的函数获得的。黄色的包围盒使用12楼的函数获得的。

Gu_xl

namezg 发表于 2013-9-18 23:08
红色的包围盒是用我的函数获得的。黄色的包围盒使用12楼的函数获得的。

最小包围盒和平行与ucs的包围盒！

namezg

楼主不是要ucs坐标系下的包围盒吗?难道要的是最小包围盒.

自贡黄明儒

namezg 发表于 2013-9-19 16:02
楼主不是要ucs坐标系下的包围盒吗?难道要的是最小包围盒.

两种情况都搞定了，还需要验证一下，电脑出问题了！

自贡黄明儒

不用command的程序以后再写