Solidworks拼图打印程序（源码公布）

84a6654pxz

Module paperRelated
    '重置列表数组
    Sub reSetpoList()
        For i = 0 To poList.GetUpperBound(0)
            poList(i) = 0
        Next
    End Sub
    Sub getA2s()
        x = 0
        y = 0
        z = 0
        A2exist = False
        A3exist = False
        A4exist = False
        For Each aaa As SwDraw In swDrawCollecton
            If aaa.PaperSize = "A2" Then
                x += 1
            End If
            If aaa.PaperSize = "A3" Then
                y += 1
            End If
            If aaa.PaperSize = "A4" Then
                z += 1
            End If
        Next
        If x <> 0 Then
            A2exist = True
            ReDim checkA2(x - 1)
        End If
        If y <> 0 Then
            A3exist = True
            ReDim checkA3(y - 1)
        End If
        If z <> 0 Then
            A4exist = True
            ReDim checkA4(z - 1)
        End If
        x = 0
        y = 0
        z = 0
        For i = 0 To swDrawCollecton.Count - 1
            If swDrawCollecton.Item(i).PaperSize = &quot;A2&quot; Then
                checkA2(x) = i
                x += 1
            End If
            If swDrawCollecton.Item(i).PaperSize = &quot;A3&quot; Then
                checkA3(y) = i
                y += 1
            End If
            If swDrawCollecton.Item(i).PaperSize = &quot;A4&quot; Then
                checkA4(z) = i
                z += 1
            End If
        Next
        CountAsA4 = x * 4 + y * 2 + z
    End Sub
    Sub fillPaper()
        '将图纸进行排序
        If CountAsA4 Mod 8 <> 0 Then
            paperCount = CountAsA4  8 + 1
        Else : paperCount = CountAsA4  8
        End If
        paperLeft = swDrawCollecton.Count
        A2Current = 0
        A3Current = 0
        A4Current = 0
        j = 0
        FinalPapers = New ptPaperAll
        For i = 0 To paperCount - 1
            '填充图纸
            '清空标志数组
            reSetpoList()
            onePaper = New ptPaper
            onePaper.inNerPapers = New swDrawsAll
            '<>1,说明图纸未填满
            Do While poList(7) <> 1
                '装填A2
                If A2exist = True And A2Current <> x Then
                    '往前装填
                    If poList(0) = 0 Then
                        swDrawCollecton.Item(checkA2(A2Current)).insertPosX = 0
                        swDrawCollecton.Item(checkA2(A2Current)).insertPosY = 0
                        onePaper.inNerPapers.Add(swDrawCollecton.Item(checkA2(A2Current)))
                        poList(0) = 1
                        poList(1) = 1
                        poList(4) = 1
                        poList(5) = 1
                        A2Current += 1
                        'A2不存在或者已被填充完毕
                        If A2Current = x Then A2exist = False
                    End If
                    If A2exist = True And poList(0) = 1 And poList(2) = 0 Then
                        '往后装填
                        swDrawCollecton.Item(checkA2(A2Current)).insertPosX = 2
                        swDrawCollecton.Item(checkA2(A2Current)).insertPosY = 0
                        onePaper.inNerPapers.Add(swDrawCollecton.Item(checkA2(A2Current)))
                        poList(2) = 1
                        poList(3) = 1
                        poList(6) = 1
                        poList(7) = 1
                        A2Current += 1
                        'A2不存在或者已被填充完毕
                        If A2Current = x Then A2exist = False
                    End If
                End If  'A2装填完毕
                '装填A3
                If A3exist = True And A3Current <> y And A2exist = False Then
                    '第一个格子
                    If poList(0) = 0 Then
                        swDrawCollecton.Item(checkA3(A3Current)).insertPosX = 0
                        swDrawCollecton.Item(checkA3(A3Current)).insertPosY = 0
                        onePaper.inNerPapers.Add(swDrawCollecton.Item(checkA3(A3Current)))
                        poList(0) = 1
                        poList(1) = 1
                        A3Current += 1
                        'A3不存在或者已被填充完毕
                        If A3Current = y Then A3exist = False
                    End If
                    '第一个格子已填，检查第二个格子
                    If A3exist = True And poList(0) = 1 And poList(2) = 0 Then
                        swDrawCollecton.Item(checkA3(A3Current)).insertPosX = 2
                        swDrawCollecton.Item(checkA3(A3Current)).insertPosY = 0
                        onePaper.inNerPapers.Add(swDrawCollecton.Item(checkA3(A3Current)))
                        poList(2) = 1
                        poList(3) = 1
                        A3Current += 1
                        'A3不存在或者已被填充完毕
                        If A3Current = y Then A3exist = False
                    End If
                    '第二个格子已填，检查第三个格子
                    If A3exist = True And poList(0) = 1 And poList(2) = 1 And poList(4) = 0 Then
                        swDrawCollecton.Item(checkA3(A3Current)).insertPosX = 0
                        swDrawCollecton.Item(checkA3(A3Current)).insertPosY = 1
                        onePaper.inNerPapers.Add(swDrawCollecton.Item(checkA3(A3Current)))
                        poList(4) = 1
                        poList(5) = 1
                        A3Current += 1
                        'A3不存在或者已被填充完毕
                        If A3Current = y Then A3exist = False
                    End If
                    '第三个格子已填，检查第四个格子
                    If A3exist = True And poList(0) = 1 And poList(2) = 1 And poList(4) = 1 And poList(6) = 0 Then
                        swDrawCollecton.Item(checkA3(A3Current)).insertPosX = 2
                        swDrawCollecton.Item(checkA3(A3Current)).insertPosY = 1
                        onePaper.inNerPapers.Add(swDrawCollecton.Item(checkA3(A3Current)))
                        poList(6) = 1
                        poList(7) = 1
                        A3Current += 1
                        'A3不存在或者已被填充完毕
                        If A3Current = y Then A3exist = False
                    End If   'A3检查完毕
                End If   'A3填装完毕
                '开始填装A4
                If A3exist = False And A4Current <> z And A2exist = False And A4exist = True Then
                    '检查A4的第一个格子
                    If poList(0) = 0 Then
                        swDrawCollecton.Item(checkA4(A4Current)).insertPosX = 0
                        swDrawCollecton.Item(checkA4(A4Current)).insertPosY = 0
                        onePaper.inNerPapers.Add(swDrawCollecton.Item(checkA4(A4Current)))
                        poList(0) = 1
                        A4Current += 1
                        'A4不存在或者已被填充完毕
                        If A4Current = z Then A4exist = False
                    End If
                    '检查A4的第二个格子
                    If A4exist = True And poList(0) = 1 And poList(1) = 0 Then
                        swDrawCollecton.Item(checkA4(A4Current)).insertPosX = 1
                        swDrawCollecton.Item(checkA4(A4Current)).insertPosY = 0
                        onePaper.inNerPapers.Add(swDrawCollecton.Item(checkA4(A4Current)))
                        poList(1) = 1
                        A4Current += 1
                        'A4不存在或者已被填充完毕
                        If A4Current = z Then A4exist = False
                    End If
                    '检查A4的第三个格子
                    If A4exist = True And poList(0) = 1 And poList(1) = 1 And poList(2) = 0 Then
                        swDrawCollecton.Item(checkA4(A4Current)).insertPosX = 2
                        swDrawCollecton.Item(checkA4(A4Current)).insertPosY = 0
                        onePaper.inNerPapers.Add(swDrawCollecton.Item(checkA4(A4Current)))
                        poList(2) = 1
                        A4Current += 1
                        'A4不存在或者已被填充完毕
                        If A4Current = z Then A4exist = False
                    End If
                    '检查A4的第四个格子
                    If A4exist = True And poList(0) = 1 And poList(1) = 1 And poList(2) = 1 And poList(3) = 0 Then
                        swDrawCollecton.Item(checkA4(A4Current)).insertPosX = 3
                        swDrawCollecton.Item(checkA4(A4Current)).insertPosY = 0
                        onePaper.inNerPapers.Add(swDrawCollecton.Item(checkA4(A4Current)))
                        poList(3) = 1
                        A4Current += 1
                        'A4不存在或者已被填充完毕
                        If A4Current = z Then A4exist = False
                    End If
                    '检查A4的第五个格子
                    If A4exist = True And poList(0) = 1 And poList(1) = 1 And poList(2) = 1 And poList(3) = 1 And poList(4) = 0 Then
                        swDrawCollecton.Item(checkA4(A4Current)).insertPosX = 0
                        swDrawCollecton.Item(checkA4(A4Current)).insertPosY = 1
                        onePaper.inNerPapers.Add(swDrawCollecton.Item(checkA4(A4Current)))
                        poList(4) = 1
                        A4Current += 1
                        'A4不存在或者已被填充完毕
                        If A4Current = z Then A4exist = False
                    End If
                    '检查A4的第六个格子
                    If A4exist = True And poList(0) = 1 And poList(1) = 1 And poList(2) = 1 And poList(3) = 1 And poList(4) = 1 And poList(5) = 0 Then
                        swDrawCollecton.Item(checkA4(A4Current)).insertPosX = 1
                        swDrawCollecton.Item(checkA4(A4Current)).insertPosY = 1
                        onePaper.inNerPapers.Add(swDrawCollecton.Item(checkA4(A4Current)))
                        poList(5) = 1
                        A4Current += 1
                        'A4不存在或者已被填充完毕
                        If A4Current = z Then A4exist = False
                    End If
                    '检查A4的第七个格子
                    If A4exist = True And poList(0) = 1 And poList(1) = 1 And poList(2) = 1 And poList(3) = 1 And poList(4) = 1 And poList(5) = 1 _
                     And poList(6) = 0 Then
                        swDrawCollecton.Item(checkA4(A4Current)).insertPosX = 2
                        swDrawCollecton.Item(checkA4(A4Current)).insertPosY = 1
                        onePaper.inNerPapers.Add(swDrawCollecton.Item(checkA4(A4Current)))
                        poList(6) = 1
                        A4Current += 1
                        'A4不存在或者已被填充完毕
                        If A4Current = z Then A4exist = False
                    End If
                    '检查A4的第八个格子
                    If A4exist = True And poList(0) = 1 And poList(1) = 1 And poList(2) = 1 And poList(3) = 1 And poList(4) = 1 And poList(5) = 1 _
                     And poList(6) = 1 And poList(7) = 0 Then
                        swDrawCollecton.Item(checkA4(A4Current)).insertPosX = 3
                        swDrawCollecton.Item(checkA4(A4Current)).insertPosY = 1
                        onePaper.inNerPapers.Add(swDrawCollecton.Item(checkA4(A4Current)))
                        poList(7) = 1
                        A4Current += 1
                        'A4不存在或者已被填充完毕
                        If A4Current = z Then A4exist = False
                    End If
                End If
                '剩余图纸的数量减一
                paperLeft -= 1
                If paperLeft = 0 Then
                    Exit Do
                End If
            Loop
            FinalPapers.Add(onePaper)
        Next
        onePaper = Nothing
      
    End Sub
End Module

复制代码