如何用vba 快速的获取封闭多段线内每个夹角的度数？？？？

373294296

如何用vba 快速的获取封闭多段线内每个夹角的度数？？？？如图，，，每个顶点的坐标都获取到了， 但是不知道怎么去算度数？？？苦等高手求解？？？

zzyong00

Utility的AngleFromXAxis

373294296

AngleFromXAxis： 获取直线与 X 坐标轴的夹角。老师怎么理解？？？主要是不理解？

373294296

   哦，好的三克油老师

wu112031853

程序呢@！！！！！

373294296

还没做出来呢？？？不会

373294296

老师这是明经通道的例子， 得到的 Set lineObj 是弧度？？？但是弧度我转成角度为什么得到是315度呢？？？  好像不对？？？  生手哈    ！ 数学没学好 哈 老师？？？

2.   Sub Example_AngleFromXAxis()
   
3.     ' This example finds the angle, in radians, between the X axis
   
4.     ' and a line defined by two points.
   
5.    Dim jd As Double
   
6.     Dim pt1(0 To 2) As Double
   
7.     Dim pt2(0 To 2) As Double
   
8.     Dim retAngle As Double
   
9.    Const PI = 3.141592654
   
10.     pt1(0) = 2: pt1(1) = 5: pt1(2) = 0
    
11.     pt2(0) = 5: pt2(1) = 2: pt2(2) = 0
    
12.    
    
13. 
    
14.     retAngle = ThisDrawing.Utility.AngleFromXAxis(pt1, pt2)
    
15.     jd = retAngle * 180 / PI
    
16.     Dim lineObj As AcadLine
    
17.     Set lineObj = ThisDrawing.ModelSpace.AddLine(pt1, pt2)
    
18.     ZoomAll
    
19.     MsgBox "The angle in radians between the X axis and the line is " & retAngle, , "AngleFromXAxis 示例"
    
20.    
    
21. End Sub

  Sub Example_AngleFromXAxis()<br />     ' This example finds the angle, in radians, between the X axis<br />     ' and a line defined by two points.<br />    Dim jd As Double<br />     Dim pt1(0 To 2) As Double<br />     Dim pt2(0 To 2) As Double<br />     Dim retAngle As Double<br />    Const PI = 3.141592654<br />     pt1(0) = 2: pt1(1) = 5: pt1(2) = 0<br />     pt2(0) = 5: pt2(1) = 2: pt2(2) = 0<br />     <br /> <br />     retAngle = ThisDrawing.Utility.AngleFromXAxis(pt1, pt2)<br />     jd = retAngle * 180 / PI<br />     Dim lineObj As AcadLine<br />     Set lineObj = ThisDrawing.ModelSpace.AddLine(pt1, pt2)<br />     ZoomAll<br />     MsgBox "The angle in radians between the X axis and the line is " & retAngle, , "AngleFromXAxis 示例"<br />     <br /> End Sub

373294296

数学是语文老师教的的，  这下坏了  坏了