数控系统动画仿真软件设计+仿真程序(6)
时间:2018-07-29 14:23 来源:毕业论文 作者:毕业论文 点击:次
End If Call PXYTOGraphic(PointX(CallFOR + 1), PointY(CallFOR + 1), CallFOR, CallFOR + 1, CircleTime) Next CallFOR End If End If ElseIf EPXY = SPXY Then Dim TOX As Single, TOY As Single, StartX As Single, StartY As Single StartX = CurrentNX StartY = CurrentNY If CircleTime = False Then If SPXY = 1 Then If Y - CurrentNY > 0 Then For TOX = StartX To X Step -1 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(2), PointY(2), 1, 2, CircleTime) Call PXYTOGraphic(PointX(3), PointY(3), 2, 3, CircleTime) Call PXYTOGraphic(PointX(0), PointY(0), 3, 4, CircleTime) Call PXYTOGraphic(X, Y, 4, 1, CircleTime) End If ElseIf SPXY = 2 Then If Y - CurrentNY < 0 Then For TOX = StartX To X Step -1 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(3), PointY(3), 2, 3, CircleTime) Call PXYTOGraphic(PointX(0), PointY(0), 3, 4, CircleTime) Call PXYTOGraphic(PointX(1), PointY(1), 4, 1, CircleTime) Call PXYTOGraphic(X, Y, 1, 2, CircleTime) End If (责任编辑：qin) |