Private Sub CommandButton6_Click()
N = index1
'方位角
'--------------------------------------------------------------------------------
NN = N - 2
For i = 1 To index1 - 1
pu = 180# / 3.141592654
pV = 3.141592654 / 180
FWJ = Abs((YJ(i) - YJ(i - 1)) / (XJ(i) - XJ(i - 1)))
If XJ(i) - XJ(i - 1) > 0 And YJ(i) - YJ(i - 1) > 0 Then
A1(i) = (Atn(FWJ)) * pu
ElseIf XJ(i) - XJ(i - 1) > 0 And YJ(i) - YJ(i - 1) < 0 Then
A1(i) = 360 - (Atn(FWJ)) * pu
ElseIf XJ(i) - XJ(i - 1) < 0 And YJ(i) - YJ(i - 1) > 0 Then
A1(i) = 180 - (Atn(FWJ)) * pu
ElseIf XJ(i) - XJ(i - 1) < 0 And YJ(i) - YJ(i - 1) < 0 Then
A1(i) = 180 + (Atn(FWJ)) * pu
End If
S1(i) = Sqr((XJ(i) - XJ(i - 1)) ^ 2 + (YJ(i) - YJ(i - 1)) ^ 2)
Next i
'主点坐标'FOR循环 内移值
'----------------------------------------------------------------------------------
For i = 1 To index1 - 2
PJ1(i) = A1(i + 1) - A1(i)
PJ = Abs(PJ1(i))
If PJ1(i) > 0 Then
J = 1
Else
J = -1
End If
'左右角
'-----------------------------------------------------------------------------------
If LS11(i) = 0 And LS21(i) = 0 Then
T2(i) = R1(i) * Tan(PJ * pV / 2)
L2 = R1(i) * PJ * pV
JD(i) = ZH(i - 1) + S1(i) - T2(i - 1)
ZH(i) = JD(i) - T2(i)
HZ(i) = ZH(i) + L2
QZ(i) = ZH(i) - L2 / 2
QD = S1(i + 1) + HZ(i) - T2(i)
XT(i) = XJ(i) + T2(i) * Cos(pV * A1(i) + 180)
YT(i) = YJ(i) + T2(i) * Sin(pV * A1(i) + 180)
XS(i) = XJ(i) + T2(i) * Cos(pV * A1(i + 1))
