数控系统动画仿真软件设计+仿真程序(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 数控系统动画仿真软件设计+仿真程序(6):http://www.751com.cn/jixie/lunwen_20570.html