VBA实现圆弧计算问题求解

weiliangdong

使用VBA解决圆弧坐标信息转换为圆弧坐标的方法,根据给定的信息计算出圆弧相关的数据,不知道如何写VBA代码还请老师出手相助,不胜感激
现在的点坐标如下:
起点X="700.00" 起点Y="60.00"
终点X="670.00" 终点Y="60.00" 圆弧角度="-90.00"
终点X="630.00" 终点Y="460.00"
终点X="670.00" 终点Y="500.00" 圆弧角度="-90.00"
终点X="700.00" 起点Y="500.00"
图形如下:

想要的结果如下:
起点 X=700 起点 Y=60
终点 X=670 终点 Y=60
终点 X=630 终点 Y=100 圆弧方式 DS=0 圆弧半径 R=40
终点 X=630 终点 Y=460
终点 X=670 终点 Y=500 圆弧方式 DS=0 圆弧半径 R=40
中点 X=700 终点 Y=500

weiliangdong

呼叫版主老师,这个问题我找了几天了,论坛逛遍了找不到思路,请出手相助,感谢您百忙之中给予帮助