数控系统动画仿真软件设计+仿真程序(9)
时间:2018-07-29 14:23 来源:毕业论文 作者:毕业论文 点击:次
Call PXYTOGraphic(PointX(2), PointY(2), 1, 2, CircleTime) Call PXYTOGraphic(X, Y, 2, 3, CircleTime) End If ElseIf SPXY = 4 Then If Y - CurrentNY < 0 Then For TOX = StartX To X TOY = (CurrentNR ^ 2 - (TOX - CurrentNI) ^ 2) ^ 0.5 + CurrentNJ Call DrawLine(CurrentNX, CurrentNY, TOX, TOY) CurrentNX = TOX CurrentNY = TOY Next TOX Else Call PXYTOGraphic(PointX(1), PointY(1), 4, 1, CircleTime) Call PXYTOGraphic(PointX(2), PointY(2), 1, 2, CircleTime) Call PXYTOGraphic(PointX(3), PointY(3), 2, 3, CircleTime) Call PXYTOGraphic(X, Y, 3, 4, CircleTime) End If End If End If End If Exit Sub errhand: If StopRun = False Then MsgBox "程序发生错误,请检查G代码!", vbOKOnly, "错误" (责任编辑：qin) |