矩阵转换点« CAD家园企业库|免费b2b网站

[原创]：[LSP函数]矩阵转换点

;;用矩阵转换点;(defun ea:point_transformby (pt  matrix    / x    y   zm0     m1  m2   m00  m01 m02  m03  m10m11     m12  m13  m20  m21 m22  m23    )  (setqx  (car pt)y  (cadr pt)z  (last pt)m0 (car matrix)m1 (cadr matrix)m2 (nth 2 matrix)  )  (setqm00 (car m0)m01 (cadr m0)m02 (nth 2 m0)m03 (last m0)  )  (setqm10 (car m1)m11 (cadr m0)m12 (nth 2 m0)m13 (last m0)  )  (setqm20 (car m1)m21 (cadr m0)m22 (nth 2 m0)m23 (last m0)  )  (list(+ (* x m00) (* y m01) (* z m02) m03)(+ (* x m10) (* y m11) (* z m12) m13)(+ (* x m20) (* y m21) (* z m22) m23)  ))

标签： , ,

免责声明
本站部分文章来源于网络收集，包括本站原创及部分转贴自互连网 , 文章的版权属于原作者。如果本站中有内容侵犯了您的权利，我们将协助您及有关部门xx相关内容并查找IP记录，但我们不承担任何责任。
由于您在使用或传播中如果出现任何问题和由此造成的任何损失，本站将不承担任何责任。利用本网站的内容以及导致的任何法律争议和后果与本站无关。
未尽事宜以网站{zx1}公告和相关法律为准。
请自觉遵守上述声明。谢谢合作。
这篇文章发布于 2010年07月5日，星期一，1:11 下午，归类于。您可以跟踪这篇文章的评论通过 feed。评论和Pings都被关闭。