点坐标转换---------------我跟highflybir学矩阵应用

自贡黄明儒 · 发表于 2014-2-27 16:43

本帖最后由自贡黄明儒于 2015-1-30 11:22 编辑

;;试验textbox得到的坐标转到世界坐标系，再转到用户坐标系
(defun w1 (/ E MAT MAT1 PTS X)
  (setq e (car (entsel)))
  (setq Mat (Mat:EntityMatrix e))；http://bbs.mjtd.com/thread-99926-1-1.html
  (setq Mat1 (cadr Mat))                                  ;Mat1 4x4
  (setq Mat (car Mat))                                           ;Mat 4x4
  (setq pts (textbox (entget e)))                         ;ocs坐标点
  (setq pts (mapcar '(lambda (x) (mat:mxp mat1 x)) pts)) ;世界坐标系
  (mapcar '(lambda (x) (trans x 0 1)) pts)                   ;ucs下坐标
)

;;确定击点在单行文字中的位置(对象坐标系下的点)
(defun w2 (/ E MAT MAT1 P PT)
  (setq e (entsel))
  (setq pt (cadr e))
  (setq e (car e))
  (setq Mat (Mat:EntityMatrix e))
  (setq Mat1 (cadr Mat))                                  ;Mat1 4x4
  (setq Mat (car Mat))                                           ;Mat 4x4
  (setq pt (trans pt 1 0))                                  ;wcs
  (mat:mxp mat pt)                                           ;ocs
)

迷失1786 · 发表于 2017-8-31 10:36

楼主真是无私奉献啊！谢谢了！

zhenz02 · 发表于 2019-7-26 13:40

感谢楼主分享，收藏了

香远益清 · 发表于 2020-1-3 13:00

竟然没看明白

vlisp2012 · 发表于 2014-3-1 21:51

这么好的程序，一定支持！

ynhh · 发表于 2014-3-2 13:49

黄工的作品

我都要看

wuqiu1986 · 发表于 2014-3-19 18:51

学习下.................

清风明月名字 · 发表于 2014-3-19 19:34

楼主真是无私奉献啊！谢谢了！

风雨依然 · 发表于 2014-3-19 22:46

顶顶
收藏

Kitchen_Design · 发表于 2014-4-6 11:54

高手贴，顶下

tm20038175 · 发表于 2014-4-6 16:24

好程序啊，哈哈。。。。。

xiaxiang · 发表于 2014-4-8 10:23

为了看帖，批量恢复黄老师的帖子。
不要问我是如何做到的，反正是批。量。回。复。

tm20038175 · 发表于 2014-4-9 19:42

建议多注释下，再举个例子，这样就方便多了！这么好的程序看不懂，急呀！

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

[源码] 点坐标转换---------------我跟highflybir学矩阵应用

评分

本帖被以下淘专辑推荐: