菜单
　　

              Exit Sub
           End If
      End If
      If CircleTime = False Then
        CurrentNI = I
        CurrentNJ = J
        PointX(0) = I + CurrentNR
        PointY(0) = J
        PointX(1) = I
        PointY(1) = J + CurrentNR
        PointX(2) = I - CurrentNR
        PointY(2) = J
        PointX(3) = I
        PointY(3) = J - CurrentNR
      Else
        CurrentNI = I
        CurrentNJ = J
        PointX(0) = I + CurrentNR
        PointY(0) = J
        PointX(3) = I
        PointY(3) = J + CurrentNR
        PointX(2) = I - CurrentNR
        PointY(2) = J
        PointX(1) = I
        PointY(1) = J - CurrentNR
      End If
      SPXY = JudgePXY(CurrentNX, CurrentNY, I, J, CircleTime)
      EPXY = JudgePXY(X, Y, I, J, CircleTime)
      If SPXY <> EPXY Then
         If EPXY > SPXY Then
            For CallFOR = SPXY To EPXY
               If CallFOR + 1 < EPXY Then
                Call PXYTOGraphic(PointX(CallFOR + 1), PointY(CallFOR + 1), CallFOR, CallFOR + 1, CircleTime)
               Else
                Call PXYTOGraphic(X, Y, CallFOR, CallFOR + 1, CircleTime)
               End If
               If CallFOR + 1 = EPXY Then
                 Exit For
               End If
            Next CallFOR
         ElseIf EPXY < SPXY Then
            If SPXY < 4 Then
                For CallFOR = SPXY To 3
                   If CallFOR + 1 <> 4 Then
                    Call PXYTOGraphic(PointX(CallFOR + 1), PointY(CallFOR + 1), CallFOR, CallFOR + 1, CircleTime)
                   Else
                    Call PXYTOGraphic(PointX(0), PointY(0), CallFOR, CallFOR + 1, CircleTime)
                   End If
                Next CallFOR
            End If
            If EPXY = 1 Then
             Call PXYTOGraphic(X, Y, 4, 1, CircleTime)
            ElseIf EPXY > 1 Then
             Call PXYTOGraphic(PointX(1), PointY(1), 4, 1, CircleTime)
               For CallFOR = 1 To EPXY - 1
                If CallFOR + 1 = EPXY Then
                  Call PXYTOGraphic(X, Y, CallFOR, CallFOR + 1, CircleTime)
                  Exit For
  1. 上一篇：企业物流系统规划及合理化研究
  2. 下一篇：用于生物柴油制备的微波炉搅拌装置设计

  1. 基于热力学模型的发动机转矩波动仿真研究

  2. 应用内部EGR的汽油机性能仿真研究

  3. NUT车队赛车总体设计改进与ADAMS仿真

  4. NUT车队赛车车架改进设计研究ANSYS仿真

  5. 非致命防暴电磁枪关键部件仿真分析

  6. 转管武器减后坐技术设计分析Adams仿真

  7. ANSYS滚珠丝杠副轴向静刚度仿真及试验分析

  8. 中考体育项目与体育教学合理结合的研究

  9. 电站锅炉暖风器设计任务书

  10. 乳业同业并购式全产业链...

  11. 河岸冲刷和泥沙淤积的监测国内外研究现状

  12. 大众媒体对公共政策制定的影响

  13. 杂拟谷盗体内共生菌沃尔...

  14. 酸性水汽提装置总汽提塔设计+CAD图纸

  15. java+mysql车辆管理系统的设计+源代码

  16. 十二层带中心支撑钢结构...

  17. 当代大学生慈善意识研究+文献综述

　　

About

751论文网手机版...

主页：http://www.751com.cn

关闭返回