【越飞越高讲堂15】用LISP论矩阵

自贡黄明儒

highflybir 发表于 2013-10-11 15:07
测试你的图纸也没问题。

这就奇怪了，一会儿在别人的电脑里面试试

youhei

留个足迹,方便以后看

illcyt

关于矩阵的lsp先收藏了，谢谢分享

NJZX05

顶，不顶对不起人了！！！

杜阳

这样的帖子不能下沉  初学者的福音

扶风

看的要跪倒，强大的搜集精神啊，学习

ashleytgg

很好，很好，变换群，坚决支持用计算机的语言和数学结合起来

Casa小宝

十分的佩服。。学习了

springwillow

最近也研究了一下highflybird版主的矩阵坐标转换，也试着改了一段由俯视图变为侧试图的代码。

2. (defun c:test (/ ss p1 p2 mat1 mat2 mat3 i e o)
   
3.   (if (setq ss (ssget))                                                ;选择物体
   
4.     (progn
   
5.       (initget "L R")
   
6.       (setq key (getkword "左侧视[L];右侧视[R]:<L>"))
   
7.       (if (not key)
   
8.         (setq key "L")
   
9.         )
   
10.       (initget 1)
    
11.       (setq P1 (getpoint "\n基点:"))                                ;指定基点
    
12.       (setq p1 (trans p1 1 0))                                  ;把输入得到的点转化为世界坐标系的点
    
13.       (setq mat1 (MAT:TRANSLATEBY2P p1 '(0 0 0)))                            ;从P1位移到坐标原点的位移矩阵
    
14.       (setq mat2 (MAT:ISO 0 (* 0.5 pi)))                                     ;绕X轴旋转90度
    
15.       (cond ((= key "L")(setq mat3 (MAT:ISO (+(* 0.25 pi)) (- (* 0.25 pi)))));绕Z轴旋转45度绕X轴旋转-45度
    
16.             ((= key "R")(setq mat3 (MAT:ISO (-(* 0.25 pi)) (- (* 0.25 pi)))));绕Z轴旋转-45度绕X轴旋转-45度
    
17.             )
    
18.       (setq mat4 (MAT:TRANSLATEBY2P  '(0 0 0) p1)) 　　　　　　　　　　　　　;从原点移到P1点位移矩阵
    
19.       (setq mat  (mat:mxm mat4 (mat:mxm mat3 (mat:mxm mat2 mat1))))            ;须按照先后顺序从里到外这样相乘
    
20.       (setq mat  (vlax-tmatrix mat))                            ;用vlax-tmatrix把变换矩阵从表转化为ActiveX数组表达的矩阵
    
21.       (command "undo" "be")
    
22.       (setq i 0)
    
23.       (repeat (sslength ss)                                       
    
24.         (setq e (ssname ss i))                                        ;获得图元名
    
25.         (setq o (vlax-ename->vla-object e))                        ;获得ActiveX对象
    
26.         (vla-transformby o mat)                                        ;用vla-transformby函数对之变换
    
27.         (setq i (1+ i))
    
28.       )
    
29.       (command "undo" "e")
    
30.     )
    
31.   )
    
32.   (princ)
    
33. )

(defun c:test (/ ss p1 p2 mat1 mat2 mat3 i e o)<br />   (if (setq ss (ssget))                                                ;选择物体<br />     (progn<br />       (initget "L R")<br />       (setq key (getkword "左侧视[L];右侧视[R]:<L>"))<br />       (if (not key)<br />         (setq key "L")<br />         )<br />       (initget 1)<br />       (setq P1 (getpoint "\n基点:"))                                ;指定基点<br />       (setq p1 (trans p1 1 0))                                  ;把输入得到的点转化为世界坐标系的点<br />       (setq mat1 (MAT:TRANSLATEBY2P p1 '(0 0 0)))                            ;从P1位移到坐标原点的位移矩阵<br />       (setq mat2 (MAT:ISO 0 (* 0.5 pi)))                                     ;绕X轴旋转90度<br />       (cond ((= key "L")(setq mat3 (MAT:ISO (+(* 0.25 pi)) (- (* 0.25 pi)))));绕Z轴旋转45度绕X轴旋转-45度<br />             ((= key "R")(setq mat3 (MAT:ISO (-(* 0.25 pi)) (- (* 0.25 pi)))));绕Z轴旋转-45度绕X轴旋转-45度<br />             )<br />       (setq mat4 (MAT:TRANSLATEBY2P  '(0 0 0) p1)) 　　　　　　　　　　　　　;从原点移到P1点位移矩阵<br />       (setq mat  (mat:mxm mat4 (mat:mxm mat3 (mat:mxm mat2 mat1))))            ;须按照先后顺序从里到外这样相乘<br />       (setq mat  (vlax-tmatrix mat))                            ;用vlax-tmatrix把变换矩阵从表转化为ActiveX数组表达的矩阵<br />       (command "undo" "be")<br />       (setq i 0)<br />       (repeat (sslength ss)                                        <br />         (setq e (ssname ss i))                                        ;获得图元名<br />         (setq o (vlax-ename->vla-object e))                        ;获得ActiveX对象<br />         (vla-transformby o mat)                                        ;用vla-transformby函数对之变换<br />         (setq i (1+ i))<br />       )<br />       (command "undo" "e")<br />     )<br />   )<br />   (princ)<br /> )

hnfsf

关于矩阵的先收藏了，做个记号，谢谢分享