2.1.5 直线插补源代码
Public Sub DrawLine(X1 As Single, Y1 As Single, X2 As Single, Y2 As Single) '画线过程
Dim LX1 As Single, LX2 As Single, LY1 As Single, LY2 As Single, L As Single
If StopRun = True Then '判断是否按了停止
Exit Sub
End If
If X1 = X2 And Y1 = Y2 And CurrentNZ = NEWZ Then
Exit Sub
End If
Do While PauseRun = True '暂停控制
For L = 0 To 10000