数控系统动画仿真软件设计+仿真程序(6)
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
上一篇：企业物流系统规划及合理化研究