(XD::Geom:GetPerpPlane)获得过ORIGIN X Y确定平面的垂平面

Lispboy

1. ;|
   
2. 获得过ORIGIN X Y确定平面的垂平面
   
3. 参数：
   
4.    origin -- 原点
   
5.    X ------ X轴
   
6.    Y ------ Y轴
   
7.    Z---  Z轴向量
   
8. 
   
9. 返回值：
   
10.    (原点 X轴 Y轴)
    
11. |;   
    
12. (defun XD::Geom:GetPerpPlane(origin x y z)
    
13.    (list origin (xdrx_vector_crossProduct x z))
    
14. )
    

;|<br /> 获得过ORIGIN X Y确定平面的垂平面<br /> 参数：<br />    origin -- 原点<br />    X ------ X轴<br />    Y ------ Y轴<br />    Z---  Z轴向量<br /> <br /> 返回值：<br />    (原点 X轴 Y轴)<br /> |;   <br /> (defun XD::Geom:GetPerpPlane(origin x y z)<br />    (list origin (xdrx_vector_crossProduct x z))<br /> )<br />