(XD::Geom:GetPerpPlaneWithLine)获得过直线P1P2，垂直于当前X,Y轴的平面

Lispboy

1. ;|
   
2. 获得过直线P1P2，垂直于当前X,Y轴的平面
   
3. 参数：
   
4.    P1 ---- 直线上点P1
   
5.    P2 ---- 直线上点P2
   
6.    NORMAL--- 当前平面的Z轴向量
   
7. 
   
8. 返回值：
   
9.    (原点 Z轴向量)
   
10. 
    
11. 说明，原点等于点P1
    
12. |;
    
13. (defun XD::Geom:GetPerpPlaneWithLine(p1 p2 normal / vx vy vz)
    
14.    (setq vx (mapcar '- p2 p1)
    
15.          vx (xdrx_vector_normalize vx)
    
16.          normal (xdrx_vector_normalize normal)
    
17.          vy (xdrx_vector_crossProduct vx normal)
    
18.    )
    
19.    (list p1 vy)
    
20. )
    
21. 
    

;|<br /> 获得过直线P1P2，垂直于当前X,Y轴的平面<br /> 参数：<br />    P1 ---- 直线上点P1<br />    P2 ---- 直线上点P2<br />    NORMAL--- 当前平面的Z轴向量<br /> <br /> 返回值：<br />    (原点 Z轴向量)<br /> <br /> 说明，原点等于点P1<br /> |;<br /> (defun XD::Geom:GetPerpPlaneWithLine(p1 p2 normal / vx vy vz)<br />    (setq vx (mapcar '- p2 p1)<br />          vx (xdrx_vector_normalize vx)<br />          normal (xdrx_vector_normalize normal)<br />          vy (xdrx_vector_crossProduct vx normal)<br />    )<br />    (list p1 vy)<br /> )<br /> <br />