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

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

本帖最后由 自贡黄明儒 于 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下坐标
)

;;确定击点在单行文字中的位置(对象坐标系下的点)
**** Hidden Message *****

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

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

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


感谢楼主分享，收藏了

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

竟然没看明白

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

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

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

黄工的作品
我都要看

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

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

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

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

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

顶顶
收藏

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

高手贴，顶下

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

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

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

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

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

建议多注释下，再举个例子，这样就方便多了！这么好的程序看不懂，急呀！
页: [1] 2 3 4 5 6 7 8 9 10
查看完整版本: 点坐标转换---------------我跟highflybir学矩阵应用