圆弧（切线法）：

Sub 插补()

Dim 区间符号 As Integer

Dim x, y, z As Double

Dim K

Dim 径向误差, R动 As Double

    顺逆符号判别

    读数据

    If R < 0.001 Then

    Else

    Ts = Ts / 60000

    步长 = f × Ts:  

    K = 步长 / R

    x动点对圆心 = -x圆心对起点 / 系数: z动点对圆心 = -z圆心对起点 / 系数

    End If

    x = ((x动点对圆心 - x终点对圆心) ^ 2 + (z动点对圆心 - z终点对圆心) ^ 2) ^ 0.5

    y = 3 × 步长 × 系数

    Do Until x <= y

       deltaZ = -顺逆符号 × K × x动点对圆心

       deltaX = 顺逆符号 × K × z动点对圆心

       Line -Step(deltaZ, deltaX), vbRed

       x动点对圆心 = x动点对圆心 + deltaX: z动点对圆心 = z动点对圆心 + deltaZ:

x动点对原点 = x动点对圆心 + x圆心对原点: y动点对原点 = y动点对圆心 + y圆心对原点: z动点对原点 = z动点对圆心 + z圆心对原点:      

       x = ((x动点对圆心 - x终点对圆心) ^ 2 + (z动点对圆心 - z终点对圆心) ^  2) ^ 0.5:

       y = 3 × 步长 × 系数

       R动 = Sqr(x动点对圆心 ^ 2 + z动点对圆心 ^ 2)

    Loop

End Sub