已知两点pt1和pt2.
Dim pDist As Double = Math.Sqrt((pt1.X - pt2.X) * (pt1.X - pt2.X) + (pt1.Y - pt2.Y) * (pt1.Y - pt2.Y))
Dim pAng as Double = Math.Asin((pt1.Y - pt2.Y) / dDist)已知两点pt1和pt2.
Dim pDist As Double = Math.Sqrt((pt1.X - pt2.X) * (pt1.X - pt2.X) + (pt1.Y - pt2.Y) * (pt1.Y - pt2.Y))
Dim pAng as Double = Math.Asin((pt1.Y - pt2.Y) / dDist)