API应用 关于Trans一个用法的矩阵理解

st788796

1. (defun c:tt (/ p1 p2 p3 vx vy vz mat p p0)
   
2.   (if (and (setq p1 (getpoint "\nLine Point1: "))
   
3.            (setq p2 (getpoint p1 "\nLine Point2: "))
   
4.            (setq p3 (getpoint p1 "\nTest Point: "))
   
5.       )
   
6.     (progn
   
7.       (setq vz        (xdrx_vector_normalize (mapcar '- p2 p1))
   
8.             vx        (xdrx_vector_perpvector vz)
   
9.             vy        (xdrx_vector_crossproduct vx vz)
   
10.             mat        (xdrx_matrix_aligncoordsystem
    
11.                   (list p1 vx vy vz)
    
12.                   '((0.0 0.0 0.0) (1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))
    
13.                 )
    
14.             p        (xdrx_point_transform p3 mat)
    
15.             p0        (trans (mapcar '- p3 p1) 0 (mapcar '- p2 p1))
    
16.       )
    
17.       (princ "\np3 AlignCoorSystem Point = ")
    
18.       (princ p)
    
19.       (princ "\np3 Trans with vector = ")
    
20.       (princ p0)
    
21.     )
    
22.   )
    
23.   (princ)
    
24. )

(defun c:tt (/ p1 p2 p3 vx vy vz mat p p0)<br />   (if (and (setq p1 (getpoint "\nLine Point1: "))<br />            (setq p2 (getpoint p1 "\nLine Point2: "))<br />            (setq p3 (getpoint p1 "\nTest Point: "))<br />       )<br />     (progn<br />       (setq vz        (xdrx_vector_normalize (mapcar '- p2 p1))<br />             vx        (xdrx_vector_perpvector vz)<br />             vy        (xdrx_vector_crossproduct vx vz)<br />             mat        (xdrx_matrix_aligncoordsystem<br />                   (list p1 vx vy vz)<br />                   '((0.0 0.0 0.0) (1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))<br />                 )<br />             p        (xdrx_point_transform p3 mat)<br />             p0        (trans (mapcar '- p3 p1) 0 (mapcar '- p2 p1))<br />       )<br />       (princ "\np3 AlignCoorSystem Point = ")<br />       (princ p)<br />       (princ "\np3 Trans with vector = ")<br />       (princ p0)<br />     )<br />   )<br />   (princ)<br /> )