[LSP函数]矩阵转换点

eachy · 发表于 2003-2-11 21:49:26

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

;;; 用矩阵转换点;
(defun ea:point_transformby (pt matrix / x y z m0 m1 m2 m00 m01 m02 m03 m10 m11 m12 m13 m20 m21 m22 m23)
(setq x (car pt)
y (cadr pt)
z (last pt)
m0 (car matrix)
m1 (cadr matrix)
m2 (nth 2 matrix)
)
(setq m00 (car m0)
m01 (cadr m0)
m02 (nth 2 m0)
m03 (last m0)
)
(setq m10 (car m1)
m11 (cadr m0)
m12 (nth 2 m0)
m13 (last m0)
)
(setq m20 (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))
)

SEASINGLI · 发表于 2003-2-20 18:34:16

不知道有什么用，望赐教

梦断江南 · 发表于 2004-10-13 00:42:57

局部应该改为
  (setq m00 (car m0)
m01 (cadr m0)
m02 (nth 2 m0)
m03 (last m0)
  )
  (setq m10 (car m1)
m11 (cadr m1)
m12 (nth 2 m1)
m13 (last m1)
  )
  (setq m20 (car m2)
m21 (cadr m2)
m22 (nth 2 m2)
m23 (last m2)
  )

eachy · 发表于 2004-10-13 01:32:06

最初由梦断江南发布
[B]局部应该改为
  (setq m00 (car m0)
m01 (cadr m0)
m02 (nth 2 m0)
m03 (last m0)
  )
  (setq m10 (car m1)
m11 (cadr m1)
m12 (nth 2 m1)
m13 (last m1)
  )
  (setq m20 (car m2)
m21 (cadr m... [/B]

这个太老了，用别的方法写吧

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

[每日一码] [LSP函数]矩阵转换点

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子