写一段VBA代码,已知两点的坐标,如何计算两点的连线与x轴的夹角
时间: 2023-03-14 18:03:35 浏览: 86
Sub Calculate_Angle(x1 As Single, y1 As Single, x2 As Single, y2 As Single)
Dim Angle As Single
Angle = Atn(y2 - y1 / x2 - x1) * (180 / 3.14159)
MsgBox Angle
End Sub
相关问题
写一段VBA代码,已知两点的坐标,如何计算两点的角度
Sub CalcAngle()
Dim x1, y1, x2, y2 as Integer
Dim angle As Double
x1 = InputBox("请输入第一个点的X坐标")
y1 = InputBox("请输入第一个点的Y坐标")
x2 = InputBox("请输入第二个点的X坐标")
y2 = InputBox("请输入第二个点的Y坐标")
angle = Atan2(y2 - y1, x2 - x1) * 180 / 3.14159265
MsgBox "两点之间的角度为" & angle
End Sub
写一段CAD VBA代码,画出平面坐标系中的两点的连线的角平分线
答案:Sub drawAngleBisector()
Dim p1 As Variant, p2 As Variant
Dim line As AcadLine
p1 = Array(0, 0)
p2 = Array(2, 3)
Set line = ThisDrawing.ModelSpace.AddLine(p1, p2)
line.AngleBisector p1, p2
End Sub