用下面的函数得到的包围圈与ucs的X轴不平行?求解析

qq564837358

;|
获得实体或者选择集在UCS下的实际包围盒
参数：
   ss --- 实体名 or 选择集
返回UCS下的对齐X轴的包围盒（UCS点）
|;
(defun XD::Entity:Box (ss / an box from mat mat0 pj r to)
  (xdrx_document_ucsoff)
  (setq box (xdrx_entity_box ss))
  (if (not (xdrx_document_iswcs))
    (progn
      (setq an         (XD::UCS:Angle)
            pj         (car box)
            mat0 (xdrx_matrix_identity 3)
            from (list pj
                       (getvar "ucsxdir")
                       (getvar "ucsydir")
                       (XD::UCS:ZDir)
                 )
            to         (list pj '(1 0 0) '(0 1 0) '(0 0 1))
            mat         (xdrx_matrix_AlignCoordSystem from to)
      )
      (xdrx_entity_transform ss Mat)
      (setq box (xdrx_entity_box ss))
      (xdrx_entity_transform
        ss
        (setq r (xdrx_matrix_inverse Mat))
      )
      (setq box (XD::Pnts:WCS2UCS (XD::Pnts:Transform box r)))
    )
  )
  box
)
;|
获得UCS的X轴夹角
参：无
返回值： 弧度
|;
(defun XD::UCS:Angle (/ an xdir)
  (setq        xDir (getvar "ucsxdir")
        an   (xdrx_vector_dotproduct xDir '(1.0 0.0 0.0))
        an   (atan (/ (sqrt (- 1 (* an an))) an))
  )
)
;|
点的矩阵变换
参数：
    pts ---- 点表
    mat ---- 变换矩阵
返回值： 点表
|;

(defun XD::Pnts:TransForm (pts mat)
  (mapcar '(lambda (x) (xdrx_point_transform x mat)) pts)
)

;|
点表从WCS变换到UCS
|;
(defun XD::Pnts:WCS2UCS (pts / mat)
  (setq mat (xdrx_matrix_wcs2ucs))
  (XD::Pnts:Transform pts mat)
)

;|
获得UCS的Z轴
参数：无
返回值：向量
|;
(defun XD::UCS:zDir()
  (xdrx_vector_crossProduct (getvar "ucsxdir") (getvar "ucsydir"))
)
(defun c:test (/ box)
  (start)
  (setq box (XD::Entity:Box (ssget)))
  (command "_.pline"
           (nth 0 box)
           (nth 1 box)
           (nth 2 box)
           (nth 3 box)
           "c"
  )
  (endover)
)
用得是晓东开源函数.

newer

直接用  (xdrx_entity_box ....)