获取指定UCS到WCS的转换矩阵。 « CAD家园企业库|免费b2b网站

[原创]：纯LSP获取指定UCS到WCS的转换矩阵。

;;获取指定UCS的转换矩阵(defun ea:getucsMatrix (ucsname / code10 code11 code12 _z)  (if (= ucsname "")    (progn      (setq code10 (getvar "ucsorg")    code11 (getvar "ucsxdir")    code12 (getvar "ucsydir")      )    )    (progn      (setq code10 (cdr (assoc 10 (tblsearch "ucs" ucsname)))    code11 (cdr (assoc 11 (tblsearch "ucs" ucsname)))    code12 (cdr (assoc 12 (tblsearch "ucs" ucsname)))      )    )  )  (setq _z (EA:VECTOR_CROSSPRODUCT code11 code12))  (list(list (car code11) (car code12) (car _z) (car code10))(list (cadr code11) (cadr code12) (cadr _z) (cadr code10))(list (nth 2 code11)      (nth 2 code12)      (nth 2 _z)      (nth 2 code10))'(0.0 0.0 0.0 1.0)  ))

标签： , ,

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