( XD::UCS:GetAngle)获得UCS的X轴夹角

Lispboy

1. ;|
   
2. 获得UCS的X轴夹角
   
3. 参数：无
   
4. 返回值： 弧度
   
5. 
   
6. |;
   
7. 
   
8. (defun XD::UCS:GetAngle( / an xdir)
   
9.    (setq xDir (getvar "ucsxdir")
   
10.          an (xdrx_vector_dotproduct xDir '(1.0 0.0 0.0))
    
11.          an (atan (/ (sqrt (- 1 (* an an))) an))
    
12.    )
    
13. )
    
14. 
    

;|<br /> 获得UCS的X轴夹角<br /> 参数：无<br /> 返回值： 弧度<br /> <br /> |;<br /> <br /> (defun XD::UCS:GetAngle( / an xdir)<br />    (setq xDir (getvar "ucsxdir")<br />          an (xdrx_vector_dotproduct xDir '(1.0 0.0 0.0))<br />          an (atan (/ (sqrt (- 1 (* an an))) an))<br />    )<br /> )<br /> <br />