정말 개발자들이 왜 사팔뜨기가 많은지 알겠어요..

[땡초도사]

코드 하루 종일 쳐다 보고....

완전 이것도 중노동이네요....

개발자들이 왜 사팔뜨기가 많은지..

이해가 가요...

Private Sub StepRepeat()


    If DrillList.Count = 0 Then

        MessageBox.Show("DRL 데이터가 없습니다.")

        Exit Sub

    End If



    Dim NewList As New List(Of DrillData)



    Dim rowCount As Integer =
        CInt(NumericUpDownRow.Value)



    Dim colCount As Integer =
        CInt(NumericUpDownCol.Value)



    Dim pitchX As Double =
        Val(TextBoxPitchX.Text)



    Dim pitchY As Double =
        Val(TextBoxPitchY.Text)



    For r As Integer = 0 To rowCount - 1


        For c As Integer = 0 To colCount - 1



            For Each d As DrillData In DrillList



                Dim nd As New DrillData



                nd.Tool = d.Tool

                nd.Diameter = d.Diameter


                nd.X =
                    d.X + (c * pitchX)


                nd.Y =
                    d.Y + (r * pitchY)



                NewList.Add(nd)



            Next



        Next


    Next



    DrillList = NewList



    ShowList()

    DrawPCB()



    MessageBox.Show(
        "연배열 완료 : " &
        rowCount &
        " x " &
        colCount)



End Sub