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

q3_2006 · 发表于 2014-4-9 20:59

黄工的程序很好懂...学习了...谢谢分享!

wangph · 发表于 2014-4-9 22:14

KKKKKKKKKKKKKKKK

clh521 · 发表于 2014-4-12 17:28

保存一下，研究研究看

阿然 · 发表于 2014-4-14 15:09

回复看老黄

香田里浪人 · 发表于 2014-4-15 06:01

力所能及的学习，支持开源。

gdslqs · 发表于 2014-4-15 09:55

矩阵一直搞不懂

叮咚 · 发表于 2014-4-15 18:50

KANKAN

lixuedong · 发表于 2014-4-16 10:16

不清楚，要看一下

lixuedong · 发表于 2014-4-16 12:35

本帖最后由 lixuedong 于 2014-4-16 12:36 编辑

点坐标转换，实例
(defun C:tt( / pt1 pt2 pt3 )
(setq pt1 (getpoint "\n请输入一个点"))
(setq pt2 (getpoint "\n请输入二个点"))
(setq pt3 (getpoint "\n请输入三个点"))
(if (null pt1 )(setq pt1 '(2000 1800 0.0)))
(if (null pt2 )(setq pt2 '(4993.39 473.385 3000.0)))
(if (null pt3 )(setq pt3 '(3496.69 -853.23 1500.0)))
(command "ucs" "3P" pt1 Pt2 Pt3)
(command "arc" (trans pt1 0 1) (trans pt2 0 1) (trans pt3 0 1))
(command "ucs" "")
(princ)
)

;(trans pt1 0 1)就是新坐标系上的点坐标

ou67169488 · 发表于 2014-4-21 17:16

学习了！！！

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

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