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

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

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

KKKKKKKKKKKKKKKK

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

保存一下，研究研究看

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

回复看老黄

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

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

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

矩阵一直搞不懂

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

KANKAN

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

不清楚，要看一下

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

本帖最后由 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:59

学习了！！！
页: 1 [2] 3 4 5 6 7 8 9 10 11
查看完整版本: 点坐标转换---------------我跟highflybir学矩阵应用