[求助]：如何求弧线与XY面的夹角?

ago9999

谢谢帮忙

雨箭风刀

问题提的不清楚

zml84

看下面这个是否满足楼主需求（未经测试）：

2. 
   
3. ;;功能：对象与XY平面夹角
   
4. ;;日期：zml84 于 2007-03-29
   
5. ;;==============================================
   
6. (defun c:tt (/ ss ent zz xy ang deg)
   
7.   (if (setq ss (entsel "\n点取对象:"))
   
8.     (if        (setq ent (entget (car ss))
   
9.               zz  (caddr (cdr (assoc 210 ent)))
   
10.         )
    
11.       (progn
    
12.         (setq xy  (sqrt (- 1.0 (* zz zz)))
    
13.               ang (atan xy zz)
    
14.               deg (* (/ ang pi) 180.)
    
15.         )
    
16.         (princ "\n该对象与XY平面夹角为:")
    
17.         (princ deg)
    
18.         (princ "度。")
    
19.       )
    
20.     )
    
21.   )
    
22.   (princ)
    
23. )
    

<br /> ;;功能：对象与XY平面夹角<br /> ;;日期：zml84 于 2007-03-29<br /> ;;==============================================<br /> (defun c:tt (/ ss ent zz xy ang deg)<br />   (if (setq ss (entsel "\n点取对象:"))<br />     (if        (setq ent (entget (car ss))<br />               zz  (caddr (cdr (assoc 210 ent)))<br />         )<br />       (progn<br />         (setq xy  (sqrt (- 1.0 (* zz zz)))<br />               ang (atan xy zz)<br />               deg (* (/ ang pi) 180.)<br />         )<br />         (princ "\n该对象与XY平面夹角为:")<br />         (princ deg)<br />         (princ "度。")<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />