API应用 向量与平面夹角

st788796

1. (defun c:tt (/ p1 p2 p3 vz)
   
2.   (and (setq p1 (getpoint "\nfirst point: "))
   
3.        (setq p2 (getpoint p1 "\nsecond point: "))
   
4.        (setq p3 (getpoint p1 "\nthird point: "))
   
5.        (setq vz        (xdrx_vector_crossproduct
   
6.                   (mapcar '- p2 p1)
   
7.                   (mapcar '- p3 p1)
   
8.                 )
   
9.        )
   
10.        (progn
    
11.          (princ "\nAngle On X-Y = ")
    
12.          (princ
    
13.            (xdrx_vector_angleonplane vz '(0.0 0.0 0.0) '(0.0 0.0 1.0))
    
14.          )
    
15.          (princ "\nAngle On Y-Z = ")
    
16.          (princ
    
17.            (xdrx_vector_angleonplane vz '(0.0 0.0 0.0) '(1.0 0.0 0.0))
    
18.          )
    
19.        )
    
20.   )
    
21.   (princ)
    
22. )
    

(defun c:tt (/ p1 p2 p3 vz)<br />   (and (setq p1 (getpoint "\nfirst point: "))<br />        (setq p2 (getpoint p1 "\nsecond point: "))<br />        (setq p3 (getpoint p1 "\nthird point: "))<br />        (setq vz        (xdrx_vector_crossproduct<br />                   (mapcar '- p2 p1)<br />                   (mapcar '- p3 p1)<br />                 )<br />        )<br />        (progn<br />          (princ "\nAngle On X-Y = ")<br />          (princ<br />            (xdrx_vector_angleonplane vz '(0.0 0.0 0.0) '(0.0 0.0 1.0))<br />          )<br />          (princ "\nAngle On Y-Z = ")<br />          (princ<br />            (xdrx_vector_angleonplane vz '(0.0 0.0 0.0) '(1.0 0.0 0.0))<br />          )<br />        )<br />   )<br />   (princ)<br /> )<br />