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

newer · 发表于 2014-12-20 00:08:52

本帖最后由 newer 于 2014-12-20 00:09 编辑

st788796 发表于 2014-12-20 00:06
我这个是不是整复杂了?

可以再简化， xdrx_matrix_align or XD::Matrix:Align
10行代码应该能弄下来吧。

st788796 · 发表于 2014-12-20 00:11:05

newer 发表于 2014-12-20 00:08
可以再简化， xdrx_matrix_align or XD::Matrix:Align
10行代码应该能弄下来吧。

10 行之外不要再有代码啊!{:soso_e100:}

newer · 发表于 2014-12-20 00:16:26

st788796 发表于 2014-12-20 00:06
我这个是不是整复杂了?

测试了你的这个代码，和上面的一样啊，不给XDIR，还是下面那个蓝色的盒子。

QQ截图20141219233714.png

给下面那个品红的向量，出来的是黄色的盒子。

QQ截图20141220001555.png

newer · 发表于 2014-12-20 00:45:26

st788796 发表于 2014-12-20 00:11
10 行之外不要再有代码啊!

{:soso_e113:} 上下五行容差吧。

st788796 · 发表于 2014-12-20 01:12:37

newer 发表于 2014-12-20 00:45
上下五行容差吧。

转换矩阵搞反了

(defun _Entity:UcsBox (ss xdir / box mat _mat rmat ydir)
(if xdir
(setq ydir (xdrx_vector_perpvector xdir)
_mat (xdrx_matrix_aligncoordsystem
'((0.0 0.0 0.0) (1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))
(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 rmat)
(setq box (xdrx_entity_box ss)
box (xdrx_points_transform box _mat)
)
(xdrx_entity_transform ss _mat)
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 rmat ydir) 
  (if xdir 
    (setq ydir (xdrx_vector_perpvector xdir) 
          _mat (xdrx_matrix_aligncoordsystem 
                 '((0.0 0.0 0.0) (1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0)) 
                 (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 rmat) 
     (setq box (xdrx_entity_box ss) 
           box (xdrx_points_transform box _mat) 
     ) 
     (xdrx_entity_transform ss _mat) 
     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) 
)

st788796 · 发表于 2014-12-20 01:24:27

本帖最后由 st788796 于 2014-12-20 01:59 编辑

合并一些语句

(defun _Entity:UcsBox (ss xdir / box mat _mat ydir)
(if (not xdir)
(if (= (getvar "worlducs") 1)
(setq box (xdrx_entity_box ss))
(setq mat (xdrx_matrix_ucs2wcs)
_mat (xdrx_matrix_inverse mat)
)
)
(setq ydir (xdrx_vector_perpvector xdir)
mat (xdrx_matrix_aligncoordsystem
'((0.0 0.0 0.0)
(1.0 0.0 0.0)
(0.0 1.0 0.0)
(0.0 0.0 1.0)
)
(list '(0.0 0.0 0.0)
(xdrx_vector_normalize xdir)
ydir
(xdrx_vector_crossproduct xdir ydir)
)
)
_mat (xdrx_matrix_inverse mat)
)
)
(if box
box
(progn
(xdrx_entity_transform ss _mat)
(setq box (xdrx_entity_box ss)
box (xdrx_points_transform box mat)
)
(xdrx_entity_transform ss mat)
box
)
)
)

(defun _Entity:UcsBox (ss xdir / box mat _mat ydir) 
  (if (not xdir) 
    (if        (= (getvar "worlducs") 1) 
      (setq box (xdrx_entity_box ss)) 
      (setq mat         (xdrx_matrix_ucs2wcs) 
            _mat (xdrx_matrix_inverse mat) 
      ) 
    ) 
    (setq ydir (xdrx_vector_perpvector xdir) 
          mat  (xdrx_matrix_aligncoordsystem 
                 '((0.0 0.0 0.0) 
                   (1.0 0.0 0.0) 
                   (0.0 1.0 0.0) 
                   (0.0 0.0 1.0) 
                  ) 
                 (list '(0.0 0.0 0.0) 
                       (xdrx_vector_normalize xdir) 
                       ydir 
                       (xdrx_vector_crossproduct xdir ydir) 
                 ) 
               ) 
          _mat (xdrx_matrix_inverse mat) 
    ) 
  ) 
  (if box 
    box 
    (progn 
      (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 (/ p1 p2 vec ss i)
(setq i 0)
(while (progn (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)))
)
(setq ss (ssget))
)
(setq pl (xdrx_polyline_make
(_entity:ucsbox
ss
(if vec
vec
nil
)
)
t
)
)
(xdrx_entity_setcolor pl (setq i (1+ i)))
)
(princ)
)

newer · 发表于 2014-12-20 11:52:39

本帖最后由 newer 于 2014-12-20 12:05 编辑

st788796 发表于 2014-12-20 01:24
合并一些语句

测试代码

试试下面的, XDIR是世界坐标系向量

(defun XD::Entity:box (ss xdir / box mat mat1 mat2 vucs)
(setq vucs (getvar "ucsxdir"))
(if (not xdir)
(setq xdir vucs)
)
(setq mat1 (xdrx_matrix_align '(0 0 0) xdir vucs)
mat2 (xdrx_matrix_align '(0 0 0) vucs '(1.0 0.0 0.0))
mat (xdrx_matrix_product mat2 mat1)
mat1 (xdrx_matrix_inverse mat)
)
(xdrx_entity_transform ss mat)
(setq box (xdrx_points_transform (xdrx_entity_box ss) mat1))
(xdrx_entity_transform ss mat1)
box
)

st788796 · 发表于 2014-12-20 14:27:39

newer 发表于 2014-12-20 11:52
试试下面的, XDIR是世界坐标系向量

哪来的 xdrx_matrix_align ? 你这是在 API 增加包装了！{:soso_e100:}

newer · 发表于 2014-12-20 15:18:54

st788796 发表于 2014-12-20 14:27
哪来的 xdrx_matrix_align ? 你这是在 API 增加包装了！

1218版本里面已经有这个了啊，函数库昨天也发布了一个函数 XD::Matrix:Align http://bbs.xdcad.net/thread-678462-1-1.html

st788796 · 发表于 2014-12-20 15:52:53

newer 发表于 2014-12-20 15:18
1218版本里面已经有这个了啊，函数库昨天也发布了一个函数 XD::Matrix:Align http://bbs.xdcad.net/thre ...

行数差不多{:soso_e100:}

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

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

点评

点评

点评