3点(两个角度方位)获取角度差(夹角)

fangmin723

3点(两个角度方位)获取角度差(夹角)
顾名思义，通过拾取的3个点或者两个角度，来获取角度差【0,2π】或夹角【0，π】

1. ;;;3点(两角度方位)获取角度差(夹角) by 702099480@qq.com 2024.6.21
   
2. (defun C:TT()
   
3.         (progn
   
4.                 ;;说明:两个角度方位的角度差
   
5.                 ;;参数:ang1:角度方位1
   
6.                 ;;参数:ang2:角度方位2
   
7.                 ;;返回:角度差
   
8.                 (defun GetAng(ang1 ang2)
   
9.                         (if (< ang2 ang1)
   
10.                                 (setq ang (+ ang2 (- (* pi 2) ang1)))
    
11.                                 (setq ang (- ang2 ang1))
    
12.                         )
    
13.                 )
    
14.                
    
15.                 ;;说明:获取点1、点2位于角点的角度差
    
16.                 ;;参数:pt1:点1
    
17.                 ;;参数:angpt:角点
    
18.                 ;;参数:pt2:点2
    
19.                 ;;返回:角度差[0,2PI]
    
20.                 (defun Get3PtAng(pt1 angpt pt2)
    
21.                         (setq ang1 (angle angpt pt1) ang2 (angle angpt pt2))
    
22.                         (GetAng ang1 ang2)
    
23.                 )
    
24.                
    
25.                 ;;说明:两个角度方位的夹角
    
26.                 ;;参数:ang1:角度方位1
    
27.                 ;;参数:ang2:角度方位2
    
28.                 ;;返回:夹角
    
29.                 (defun GetSpaceAng(ang1 ang2)
    
30.                         (setq ang (GetAng ang1 ang2))
    
31.                         (if (> ang pi) (- (* pi 2) ang) ang)
    
32.                 )
    
33.                
    
34.                 ;;说明:获取点1、点2位于角点的夹角
    
35.                 ;;参数:pt1:点1
    
36.                 ;;参数:angpt:角点
    
37.                 ;;参数:pt2:点2
    
38.                 ;;返回:夹角[0,PI]
    
39.                 (defun Get3PtSpaceAng(pt1 angpt pt2)
    
40.                         (setq ang1 (angle angpt pt1) ang2 (angle angpt pt2))
    
41.                         (getspaceang ang1 ang2)
    
42.                 )
    
43.                
    
44.                 ;;说明:弧度转角度
    
45.                 ;;参数:ang:弧度值
    
46.                 ;;返回:角度值
    
47.                 (defun ToDeg(ang) (* 180.0 (/ ang pi)))
    
48.                
    
49.                 ;;说明:角度转弧度
    
50.                 ;;参数:ang:角度值
    
51.                 ;;返回:弧度值
    
52.                 (defun ToRad(ang) (* pi (/ ang 180.0)))
    
53.         )
    
54.         
    
55.         (and
    
56.                 (setq startpoint (getpoint "\n拾取起始点"))
    
57.                 (setq angpoint (getpoint startpoint  "\n拾取角点"))
    
58.                 (setq endpoint (getpoint angpoint  "\n拾取终止点"))
    
59.                 (princ
    
60.                         (strcat
    
61.                                 "\n角度差："
    
62.                                 (rtos (ToDeg (Get3PtAng startpoint angpoint endpoint)) 2 2)
    
63.                                 "°\n夹 角："
    
64.                                 (rtos (ToDeg (Get3PtSpaceAng startpoint angpoint endpoint)) 2 2)
    
65.                                 "°"
    
66.                         )
    
67.                 )
    
68.         )
    
69.         (prin1)
    
70. )
    

;;;3点(两角度方位)获取角度差(夹角) by <a href="mailto:702099480@qq.com" target="_blank">702099480@qq.com</a> 2024.6.21<br /> (defun C:TT()<br />         (progn<br />                 ;;说明:两个角度方位的角度差<br />                 ;;参数:ang1:角度方位1<br />                 ;;参数:ang2:角度方位2<br />                 ;;返回:角度差<br />                 (defun GetAng(ang1 ang2)<br />                         (if (< ang2 ang1)<br />                                 (setq ang (+ ang2 (- (* pi 2) ang1)))<br />                                 (setq ang (- ang2 ang1))<br />                         )<br />                 )<br />                 <br />                 ;;说明:获取点1、点2位于角点的角度差<br />                 ;;参数:pt1:点1<br />                 ;;参数:angpt:角点<br />                 ;;参数:pt2:点2<br />                 ;;返回:角度差[0,2PI]<br />                 (defun Get3PtAng(pt1 angpt pt2)<br />                         (setq ang1 (angle angpt pt1) ang2 (angle angpt pt2))<br />                         (GetAng ang1 ang2)<br />                 )<br />                 <br />                 ;;说明:两个角度方位的夹角<br />                 ;;参数:ang1:角度方位1<br />                 ;;参数:ang2:角度方位2<br />                 ;;返回:夹角<br />                 (defun GetSpaceAng(ang1 ang2)<br />                         (setq ang (GetAng ang1 ang2))<br />                         (if (> ang pi) (- (* pi 2) ang) ang)<br />                 )<br />                 <br />                 ;;说明:获取点1、点2位于角点的夹角<br />                 ;;参数:pt1:点1<br />                 ;;参数:angpt:角点<br />                 ;;参数:pt2:点2<br />                 ;;返回:夹角[0,PI]<br />                 (defun Get3PtSpaceAng(pt1 angpt pt2)<br />                         (setq ang1 (angle angpt pt1) ang2 (angle angpt pt2))<br />                         (getspaceang ang1 ang2)<br />                 )<br />                 <br />                 ;;说明:弧度转角度<br />                 ;;参数:ang:弧度值<br />                 ;;返回:角度值<br />                 (defun ToDeg(ang) (* 180.0 (/ ang pi)))<br />                 <br />                 ;;说明:角度转弧度<br />                 ;;参数:ang:角度值<br />                 ;;返回:弧度值<br />                 (defun ToRad(ang) (* pi (/ ang 180.0)))<br />         )<br />         <br />         (and <br />                 (setq startpoint (getpoint "\n拾取起始点"))<br />                 (setq angpoint (getpoint startpoint  "\n拾取角点"))<br />                 (setq endpoint (getpoint angpoint  "\n拾取终止点"))<br />                 (princ<br />                         (strcat <br />                                 "\n角度差：" <br />                                 (rtos (ToDeg (Get3PtAng startpoint angpoint endpoint)) 2 2)<br />                                 "°\n夹 角：" <br />                                 (rtos (ToDeg (Get3PtSpaceAng startpoint angpoint endpoint)) 2 2)<br />                                 "°"<br />                         )<br />                 )<br />         )<br />         (prin1)<br /> )<br />

角度差可能与夹角相等，具体看起始点(起始方位角)或结束点(终止方位角)相对方位
如下图所示：

注意：文件内代码与上面给出代码相同

fangmin723

大佬们用爱发电，有人却去收电费

lxl217114

大佬们用爱发电，有人却去收电费。
我就点赞

czb203

暂时用不到，大佬的作品点赞支持下

jkop

暂时用不到，大佬的作品丰富，助我良多，特来支持！

帝都划水王

暂时用不到，大佬的作品丰富，助我良多，特来支持支持！

guosheyang

感谢大佬的分享！

a461346548

暂时用不到，大佬的作品丰富，助我良多，特来支持！

bai2000

不错的资料，存一下