再论选择集的与UCS平齐的包围盒

newer · 发表于 2014-12-19 20:41:00

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

包围盒在CAD编程中的应用很广，很多的几何特性都需要用到它。我们再讨论讨论选择集对任意 X轴对齐的包围盒的求法。

QQ截图20141219203914.png

st788796 · 发表于 2014-12-19 20:47:31

ARX 的 getGeomExtents 是返回 WCS coordinates，所以在 UCS 下的 BOX 只能把 Entity 变换到平齐 UCS 再求 getGeomExtents

newer · 发表于 2014-12-19 20:57:24

st788796 发表于 2014-12-19 20:47
ARX 的 getGeomExtents 是返回 WCS coordinates，所以在 UCS 下的 BOX 只能把 Entity 变换到平齐 UCS 再求 ...

赶脚说反了，ARX求的是WCS，你把实体变换到UCS，再求的盒子不还是WCS下的吗？

st788796 · 发表于 2014-12-19 21:00:31

newer 发表于 2014-12-19 20:57
赶脚说反了，ARX求的是WCS，你把实体变换到UCS，再求的盒子不还是WCS下的吗？

变换只是求 Box，求完当然还有变化回去了

/db_自贡黄明儒_ · 发表于 2014-12-19 21:36:59

N版要求什么盒子，是不是高飞那个＂超级拷贝＂中的选择集包围盒？

newer · 发表于 2014-12-19 23:16:20

/db_自贡黄明儒_ 发表于 2014-12-19 21:36
N版要求什么盒子，是不是高飞那个＂超级拷贝＂中的选择集包围盒？

就是在任意坐标系下，给一个向量，得到对齐那个向量的盒子，看下图：

QQ截图20141219231551.png

如果不给品红向量，就得到对齐当前UCS的盒子，白色的，

如果给品红向量，就得到当前UCS下，对齐品红向量的盒子，品红的那个。

牢固 · 发表于 2014-12-19 23:30:57

newer 发表于 2014-12-19 23:16
就是在任意坐标系下，给一个向量，得到对齐那个向量的盒子，看下图：

必须要做的两件事：1.旋转物体后计算包围盒2.对所求的包围盒进行坐标矩阵换算

st788796 · 发表于 2014-12-19 23:32:19

newer 发表于 2014-12-19 23:16
就是在任意坐标系下，给一个向量，得到对齐那个向量的盒子，看下图：

(defun _Entity:UcsBox (ss / box mat _mat)
(if (= (getvar "worlducs") 1)
(xdrx_entity_box ss)
(progn
(setq mat (xdrx_matrix_ucs2wcs)
_mat (xdrx_matrix_inverse mat)
)
(xdrx_entity_transform ss _mat)
(setq box (xdrx_entity_box ss)
box (xdrx_points_transform box mat)
)
(xdrx_entity_transform ss mat)
box
)
)
)

测试

(defun c:tt ()
(apply 'xdrx_polyline_make
(cons t (_entity:ucsbox (ssget)))
)
)

newer · 发表于 2014-12-19 23:37:55

st788796 发表于 2014-12-19 23:32
测试

代码还需修改，测试图形，图中那个蓝的，是你的代码生成的，没对齐UCS

QQ截图20141219233714.png

另外，加个向量参数，如果给向量，就对齐那个向量。

newer · 发表于 2014-12-19 23:39:12

牢固发表于 2014-12-19 23:30
必须要做的两件事：1.旋转物体后计算包围盒2.对所求的包围盒进行坐标矩阵换算

G版给写个。

newer · 发表于 2014-12-19 23:40:23

st788796 发表于 2014-12-19 23:32
测试

(xdrx_polyline_make pts t) 现在已经不需要apply 了。

st788796 · 发表于 2014-12-19 23:40:28

newer 发表于 2014-12-19 23:37
代码还需修改，测试图形，图中那个蓝的，是你的代码生成的，没对齐UCS

你是要在 Ucs 下再给 xdir 求 Box 吧!

newer · 发表于 2014-12-19 23:43:26

st788796 发表于 2014-12-19 23:40
你是要在 Ucs 下再给 xdir 求 Box 吧!

任意坐标系了，给向量对齐向量，不给向量，对齐UCS X轴。

牢固 · 发表于 2014-12-19 23:46:34

newer 发表于 2014-12-19 23:39
G版给写个。

用Api写，用不了几行代码！还是大家来练练手吧{:soso_e113:}

st788796 · 发表于 2014-12-20 00:06:04

牢固发表于 2014-12-19 23:46
用Api写，用不了几行代码！还是大家来练练手吧

我这个是不是整复杂了?

(defun _Entity:UcsBox (ss xdir / box mat _mat sys ydir)
(if xdir
(setq mat (xdrx_matrix_ucs2wcs)
sys (xdrx_matrix_getcoordsystem mat)
ydir (xdrx_vector_perpvector xdir)
_mat (xdrx_matrix_aligncoordsystem
sys
(list '(0.0 0.0 0.0)
(xdrx_vector_normalize xdir)
ydir
(xdrx_vector_crossproduct xdir ydir)
)
)
rmat (xdrx_matrix_inverse _mat)
)
)
(cond
((and (= (getvar "worlducs") 1)
(not xdir)
)
(xdrx_entity_box ss)
)
((and (not xdir) (zerop (getvar "worlducs")))
(setq mat (xdrx_matrix_ucs2wcs)
_mat (xdrx_matrix_inverse mat)
)
(xdrx_entity_transform ss _mat)
(setq box (xdrx_entity_box ss)
box (xdrx_points_transform box mat)
)
(xdrx_entity_transform ss mat)
box
)
(t
(xdrx_entity_transform ss _mat)
(setq box (xdrx_entity_box ss)
box (xdrx_points_transform box rmat)
)
(xdrx_entity_transform ss rmat)
box
)
)
)
(defun c:tt (/ p1 p2 vec ss)
(and (setq p1 (getpoint "\nFirst Point: "))
(setq p2 (getpoint p1 "\nSecond Point: "))
)
(if p1
(setq vec (mapcar '- (trans p2 1 0) (trans p1 1 0)))
)
(if (setq ss (ssget))
(if vec
(xdrx_polyline_make
(_entity:ucsbox ss vec)
t
)
)
(xdrx_polyline_make
(_entity:ucsbox ss nil)
t
)
)
(princ)
)

(defun _Entity:UcsBox (ss xdir / box mat _mat sys ydir) 
  (if xdir 
    (setq mat  (xdrx_matrix_ucs2wcs) 
          sys  (xdrx_matrix_getcoordsystem mat) 
          ydir (xdrx_vector_perpvector xdir) 
          _mat (xdrx_matrix_aligncoordsystem 
                 sys 
                 (list '(0.0 0.0 0.0) 
                       (xdrx_vector_normalize xdir) 
                       ydir 
                       (xdrx_vector_crossproduct xdir ydir) 
                 ) 
               ) 
          rmat (xdrx_matrix_inverse _mat) 
    ) 
  ) 
  (cond 
    ((and (= (getvar "worlducs") 1) 
          (not xdir) 
     ) 
     (xdrx_entity_box ss) 
    ) 
    ((and (not xdir) (zerop (getvar "worlducs"))) 
     (setq mat        (xdrx_matrix_ucs2wcs) 
           _mat        (xdrx_matrix_inverse mat) 
     ) 
     (xdrx_entity_transform ss _mat) 
     (setq box (xdrx_entity_box ss) 
           box (xdrx_points_transform box mat) 
     ) 
     (xdrx_entity_transform ss mat) 
     box 
    ) 
    (t 
     (xdrx_entity_transform ss _mat) 
     (setq box (xdrx_entity_box ss) 
           box (xdrx_points_transform box rmat) 
     ) 
     (xdrx_entity_transform ss rmat) 
     box 
    ) 
  ) 
) 
(defun c:tt (/ p1 p2 vec ss) 
  (and (setq p1 (getpoint "\nFirst Point: ")) 
       (setq p2 (getpoint p1 "\nSecond Point: ")) 
  ) 
  (if p1 
    (setq vec (mapcar '- (trans p2 1 0) (trans p1 1 0))) 
  ) 
  (if (setq ss (ssget)) 
    (if        vec 
      (xdrx_polyline_make 
        (_entity:ucsbox ss vec) 
        t 
      ) 
    ) 
    (xdrx_polyline_make 
      (_entity:ucsbox ss nil) 
      t 
    ) 
  ) 
  (princ) 
)

账号		自动登录	找回密码
密码			立即注册

[研讨] 再论选择集的与UCS平齐的包围盒

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分

点评

点评

点评

点评

点评

点评

点评

点评