神奇的矩阵

brainstorm

最近看了一段时间关于矩阵的一些教材，大概有点理解了，
感觉很神奇，很有意思。

1. (defun c:tt ()
   
2.   (setq p0 (getpoint))
   
3.   (setq px (getpoint))
   
4.   (setq py (getpoint))
   
5.   (setq        mat
   
6.          (xdrx_matrix_aligncoordsys
   
7.           
   
8.           
   
9.            (list '(0 0 0)
   
10.                  '(1 0 0)
    
11.                  '(0 1 0)
    
12.                  '(0 0 1))
    
13.            (list
    
14.                  p0
    
15.                  (setq vx (mapcar '- px p0))
    
16.                  (setq vy (mapcar '- py p0))
    
17.                  (xdrx_vector_crossproduct vx vy)
    
18.            )
    
19.          )
    
20.   )
    
21.   (setq aa (xdrx_entity_transformedcopy (ssget) mat))
    
22. )
    

(defun c:tt ()<br />   (setq p0 (getpoint))<br />   (setq px (getpoint))<br />   (setq py (getpoint))<br />   (setq        mat<br />          (xdrx_matrix_aligncoordsys<br />            <br />            <br />            (list '(0 0 0)<br />                  '(1 0 0)<br />                  '(0 1 0)<br />                  '(0 0 1))<br />            (list<br />                  p0<br />                  (setq vx (mapcar '- px p0))<br />                  (setq vy (mapcar '- py p0))<br />                  (xdrx_vector_crossproduct vx vy)<br />            )<br />          )<br />   )<br />   (setq aa (xdrx_entity_transformedcopy (ssget) mat))<br /> )<br />

=^_^=

果然很神奇

abenmao168

这个厉害，挺有意思的

longer1000

厉害啊！！。。。。。。

yangjian001

很神奇，很有意思

liunian0524

感谢楼主分享

wenyish

神奇只是奇迹的开始，敢想肯干，感谢楼主分享，谢谢！

434939575

确实高大上，不知道怎么用.

ShaoRui

是的，对巨阵一直不太了解