关于 UCS 下的坐标问题（已解决）

原地踏步 · 发表于 2020-8-9 09:51:52

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

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

×

本帖最后由原地踏步于 2020-8-11 09:08 编辑

附件中有两张图。T1是变换了坐标系，然后执行PLAN得到的，T2仅变换了坐标系，未执行PLAN。
两个对应的程序。tt1是根据高飞鸟的矩阵编写的，适用于T1，tt2是普通的坐标转换程序，适用于T2。
如果将tt1用于T2，或tt2用于T1，结果都不正确。
现在的问题是，如何知道一个图到底该用哪个程序？或者说，有没有一个通用程序可适用于这两种情况？
我查了一下有关ucs的系统变量，如 ucsxdir、ucsfollow、worlducs 等，两张图都是一样的值，没有区别。

原地踏步 · 发表于 2020-8-9 09:52:57

(defun c:tt1 (/ obj)
  (setq osm (getvar "osmode"))
  (setvar "cmdecho" 0)
  (setvar "osmode" 0)
  (setq matrix (vlax-tmatrix (MAT:Trans 1 0))
      revMat (vlax-tmatrix (MAT:Trans 0 1))
  )
  (setq ent (car (entsel "\nSelect: "))
      obj (vlax-ename->vla-object ent)
  )
  (vla-transformBy obj revMat)
  (vla-getBoundingBox obj 'pt1 'pt2)
  (setq pt1 (vlax-safearray->list pt1)
      pt2 (vlax-safearray->list pt2)
  )
  (vla-transformBy obj matrix)
  (command "point" pt1)
  (command "point" pt2)
  (setvar "osmode" osm)
  (setvar "cmdecho" 1)
  (princ)
)
;;
(defun c:tt2 (/ obj)
  (setq osm (getvar "osmode"))
  (setvar "cmdecho" 0)
  (setvar "osmode" 0)
  (setq ent (car (entsel "\nSelect: "))
      obj (vlax-ename->vla-object ent)
  )
  (vla-getBoundingBox obj 'pt1 'pt2)
  (setq pt1 (vlax-safearray->list pt1)
      pt2 (vlax-safearray->list pt2)
  )
  (command "point" (trans pt1 0 1))
  (command "point" (trans pt2 0 1))
  (setvar "osmode" osm)
  (setvar "cmdecho" 1)
  (princ)
)

(defun MAT:Trans (from to)
  (append
(MAT:trp
   (mapcar
      (function (lambda (v d) (trans v from to d)))
      '((1. 0. 0.) (0. 1. 0.) (0. 0. 1.) (0. 0. 0.))
      (list t t t nil)
   )
)
'((0. 0. 0. 1.))
  )
)

(defun MAT:trp (m)
  (apply 'mapcar (cons 'list m))
)

(princ)