博客网 >

纯LSP获取指定UCS到WCS的转换矩阵
作者:分类:默认分类标签:



代码 2003年02月11日:

;;获取指定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)
)
)
<< 两个矢量的叉积 / QAFLAGS >>

专题推荐

不平凡的水果世界

不平凡的水果世界

平凡的水果世界,平凡中的不平凡。 今朝看水果是水果 ,看水果还是水果 ,看水果已不是水果。这境界,谁人可比?在不平凡的水果世界里,仁者见仁,智者见智。

中国春节的那些习俗

中国春节的那些习俗

正月是农历新年的开始,人们往往将它看作是新的一年年运好坏的兆示期。所以,过年的时候“禁忌”特别多。当然,各个地方的风俗习惯不一样,过年的禁忌也是不一样的。

评论
0/200
表情 验证码:

eachy

  • 文章总数0
  • 画报总数0
  • 画报点击数0
  • 文章点击数0
个人排行
        博文分类
        日期归档