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

本人用vb.net编写的，能够对SW2010、2012、2014进行拼图打印。需要拼图打印的朋友去试试吧。
百度网盘地址：https://pan.baidu.com/s/1xPxFM
希望对大家有用。
之前没公布源码是因为写的水平实在不高。{:soso_e120:}现在我把源码公布出来，感兴趣的朋友们来下载吧。开发用的软件是免费版本的visual studio 2013 express for windows desktop ， 用VS2013旗舰版应该也是可以的。当前代码引用的是SW2014的运行库，如果你的电脑上安装的是其他版本的SW,需要删除SW2014的引用，然后修改为引用相应的版本。

感謝樓主無私分享。

看過教程，做得非常精致。
若在源碼加入以下語句（可能要略作修改以作配合），就可以省掉手動調整選項這步驟了。

1.     swApp.SetUserPreferenceToggle swTiffPrintScaleToFit, False
   
2.     swApp.SetUserPreferenceIntegerValue swTiffScreenOrPrintCapture, 1
   
3.     swApp.SetUserPreferenceIntegerValue swTiffImageType, 0
   
4.     swApp.SetUserPreferenceIntegerValue swTiffCompressionScheme, 2
   
5.     swApp.SetUserPreferenceIntegerValue swTiffPrintDPI, 300
   
6.     swApp.SetUserPreferenceIntegerValue swTiffPrintPaperSize, 12
   
7.     swApp.SetUserPreferenceIntegerValue swTiffPrintScaleFactor, 100
   
8.     swApp.SetUserPreferenceDoubleValue swTiffPrintDrawingPaperHeight, DrawingPaperHeight
   
9.     swApp.SetUserPreferenceDoubleValue swTiffPrintDrawingPaperWidth, DrawingPaperWidth

复制代码

多谢版主的指导。我将在稍后的改进版本中尝试加入您的代码。
由于程序刚刚完成不久，必然有很多bug，大家试用过程中发现了bug，或者任何的建议，请反馈给我，我们一起来把软件做得更加完善。

谢谢分享，能把源代码放出来，值得敬佩。

一直想找个SW的批量打印小程序，请问下楼主你这程序能自动识别图幅大小自动把A4图幅打印到A4图纸A3图幅自动打印到A3图纸上吗？

dreamsboy 发表于 2014-2-9 00:16
一直想找个SW的批量打印小程序，请问下楼主你这程序能自动识别图幅大小自动把A4图幅打印到A4图纸A3图幅自动 ...

你说的这个功能目前实现不了，但是你问的非常好，这本是我想要实现的一个很重要的功能。试想一下：当你点击一个按钮后，不同尺寸的图纸被发送到不同的打印机，霎时间，你办公室里的A4打印机、A3打印机和绘图仪同时工作起来，将对应型号的图纸源源不断地打印了出来，这难道不是一件非常嗨皮的事情吗？图纸打印工作瞬间从一件烦人的事情变成了乐趣十足的事情，说不定你打完一套图纸还想打印另一套！
但是，在实现的时候遇到了技术难题，A4的图纸能够正常打印出来，横向A3图纸却被打印成纵向A4的大小。参数调试了很多次也没有解决，当然继续调试下去肯定能够解决，不过，要完善这个功能还是需要很大的工作量，比如A2图纸被发送到A3打印机了怎么办，等等等等，于是就退而求其次，这个功能被“退化”到了仅将A3/A4图纸发送到A4打印机。毕竟，这只是个支线任务，实现拼图打印作为主线任务，还有大量的工作要做。
原打算在完善这个功能后，将源码加入一些必要的注释再开源，看到楼上有朋友要求开源，考虑到本程序百分之八九十的内容都是在教材或者网上几乎直接照搬的代码段，自己只是将这些功能段组装了起来，自己的新增的内容很少，算法应该不难理解，就将源码直接公开了。
如果大家群策群力，将本程序逐步完善起来，这对广大的SW爱好者应该是个好消息。

gaowengang 发表于 2014-2-9 09:35
你说的这个功能目前实现不了，但是你问的非常好，这本是我想要实现的一个很重要的功能。试想一下：当你点 ...

谢谢回复。事情要做得完美，必须付出努力。辛苦楼主了。

Francis 发表于 2014-2-13 18:12
由于悶人電腦殘舊，無法安裝visual studio 2013 express for windows desktop。
朋友可否把代碼轉換為文 ...

我试着把代码贴出来，闷大多多指教

1. Imports SldWorks
   
2. Imports System.Drawing.Printing
   
3. 
   
4. Module canshu
   
5. 
   
6.     Public SwFiles() As String      'SolidWorks  文件列表，可能包含临时文件，故不能直接使用
   
7.     Public SwFile As String       'solidworks工程图文件
   
8.     Public SwFinalFiles() As String '对swfiles（）进行提取，作为最终的文件列表
   
9. 
   
10.     Public tmpSaveDir() As String   '临时文件存放目录的集合
    
11.     Public tmpSavefile As String   '临时文件存放的目录
    
12. 
    
13.     Public workDir As String     '存放solidworksw文件的文件夹
    
14. 
    
15.     Public swApp As SldWorks.SldWorks 'solidworks 主程序
    
16.     Public swMod As ModelDoc2      'solidworks 模型
    
17.     Public swDoc As SldWorks.DrawingDoc  'solidworks 图纸文档
    
18.     Public swSheet As SldWorks.Sheet    '文件内的图纸
    
19.     Public intSheetCount As Integer    '图纸的数量
    
20.     Public mysheet() As Object     'sheet列表
    
21.     Public stWidth As Double     'sheet的宽
    
22.     Public stHeight As Double    'sheet的高
    
23. 
    
24.     Public tmpInt As Integer    '临时变量，
    
25. 
    
26.     Public strTmp As String      '临时字符串，具有各种作用
    
27.     '设置输出时的DPI，这是sw能输出的列表里抄的
    
28.     Public userDPI() As Integer = {50, 72, 100, 150, 200, 240, 300, 360, 400, 600, 720, 800, 1200, 1440, 2880}
    
29. 
    
30.     Public intDPI As Integer    '转换时，选择的dpi
    
31. 
    
32.     Public swDrawCollecton As New swDrawsAll  '图纸的集合
    
33.     Public swSingleDraw As SwDraw      '一张单独的图纸
    
34. 
    
35.     Public boolstatus As Boolean   '各种状态，为了便于直接copy vba
    
36. 
    
37. 
    
38.     Public myPrinters() As String   '打印机列表
    
39. 
    
40.     Public PrintSize() As String = {"A1(880×50米)", "A2(620×50米)"}
    
41. 
    
42.     Public poList(7) As Integer     '表示插入位置的数组
    
43.     Public CountAsA4 As Integer    '折换成A4的数量
    
44.     Public paperPager As Integer = 1   '表示的是拼合后的第几张图纸
    
45.     Public checkA2() As Integer       '集合中的那些元素是A2图纸
    
46.     Public checkA3() As Integer
    
47.     Public checkA4() As Integer
    
48.     Public x, y, z, j, k As Integer
    
49.     Public A2exist, A3exist, A4exist As Boolean
    
50.     Public paperCount As Integer    '最终要打印的图纸的数量
    
51.     Public paperLeft As Integer    '剩余图纸的数量
    
52.     Public A2Current As Integer   '当前的各种大小图纸是该型图中的第几张
    
53.     Public A3Current As Integer
    
54.     Public A4Current As Integer
    
55.     Public onePaper As ptPaper
    
56.     Public FinalPapers As ptPaperAll
    
57. 
    
58.     Public newImage As Image
    
59.     Public singleImage As Image
    
60.     Public newBMape As Bitmap
    
61.     Public myImage As Image
    
62.     Public g1 As Graphics
    
63.     Public theX, theY, theWidth, theHeight As Integer  '填充图片时用到的坐标值
    
64. 
    
65.     Public WithEvents PT1 As New PrintDocument
    
66.     Public PgSet As PageSettings
    
67.     Public PgSize As PaperSize
    
68.     Public PTResolution As PrinterResolution
    
69. 
    
70.     Private Sub PT1_PrintPage(sender As Object, e As PrintPageEventArgs) Handles PT1.PrintPage
    
71.         e.Graphics.DrawImage(newBMape, 10, 10)
    
72.     End Sub
    
73. End Module
    

复制代码

1. Imports System.IO
   
2. Imports System.Drawing.Printing
   
3. 
   
4. 
   
5. 
   
6. Public Class Form1
   
7. 
   
8.    
   
9. 
   
10. 
    
11.     Sub getFiles()
    
12.         strTmp = "$"
    
13.         If File.Exists(workDir) Then
    
14.             If workDir.EndsWith(".slddrw", True, Nothing) And InStr(workDir, strTmp) = 0 Then
    
15.                 ListBox1.Items.Add(workDir)
    
16.             End If
    
17.         Else
    
18. 
    
19. 
    
20. 
    
21.             Dim i As Integer = 0
    
22. 
    
23.             '临时文件包含此字符，如果文件名包括此字符，应该排除此项
    
24.             SwFiles = Directory.GetFiles(workDir, "*.slddrw", SearchOption.AllDirectories)
    
25. 
    
26. 
    
27.             For Each myfile As String In SwFiles
    
28.                 If InStr(myfile, strTmp) = 0 Then
    
29.                     ListBox1.Items.Add(myfile)
    
30. 
    
31.                     
    
32. 
    
33. 
    
34. 
    
35.                 End If
    
36. 
    
37.             Next
    
38.         End If
    
39.     End Sub
    
40. 
    
41.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    
42.         FBD1.ShowDialog()
    
43.         workDir = FBD1.SelectedPath
    
44.         If workDir <> "" Then
    
45. 
    
46.             getFiles()
    
47.         End If
    
48.     End Sub
    
49. 
    
50.     Private Sub Form1_DragDrop(sender As Object, e As DragEventArgs) Handles Me.DragDrop
    
51.         Dim myfiles() As String
    
52.         myfiles = e.Data.GetData(DataFormats.FileDrop)
    
53. 
    
54.         For i = 0 To myfiles.GetUpperBound(0)
    
55.             workDir = myfiles(i)   '检入文件夹
    
56. 
    
57.             getFiles()
    
58.         Next
    
59. 
    
60.     End Sub
    
61. 
    
62. 
    
63.     Private Sub Form1_DragEnter(sender As Object, e As DragEventArgs) Handles Me.DragEnter
    
64.         If e.Data.GetDataPresent(DataFormats.FileDrop) Then
    
65.             e.Effect = DragDropEffects.All
    
66.         End If
    
67.     End Sub
    
68. 
    
69.     Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
    
70.         If Not swApp Is Nothing Then
    
71.             If MsgBox("在退出时是否关闭solidworks程序？", MsgBoxStyle.YesNo) = MsgBoxResult.Ok Then
    
72.                 swApp.ExitApp()
    
73.                 swApp = Nothing
    
74.             End If
    
75.         End If
    
76.     End Sub
    
77. 
    
78.    
    
79. 
    
80.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    
81.         CboxShowSW.Checked = True
    
82.         For Each ptName As String In PrinterSettings.InstalledPrinters
    
83.          
    
84.             cbxPtA4.Items.Add(ptName)
    
85.             cbxPtOut.Items.Add(ptName)
    
86.         Next
    
87. 
    
88.         cbxPtA4.SelectedIndex = 0
    
89.         cbxPtOut.SelectedIndex = 0
    
90. 
    
91.         For i As Integer = 0 To userDPI.GetUpperBound(0)
    
92.             cbxDpi.Items.Add(userDPI(i))
    
93.         Next
    
94.         cbxDpi.SelectedIndex = 6
    
95.         intDPI = cbxDpi.Items(cbxDpi.SelectedIndex)
    
96. 
    
97.         For i = 0 To PrintSize.GetUpperBound(0)
    
98.             CBoxPaperSize.Items.Add(PrintSize(i))
    
99.         Next
    
100.         CBoxPaperSize.SelectedIndex = 0
     
101.         RadioButtonHigh.Checked = True
     
102. 
     
103.     End Sub
     
104. 
     
105.     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
     
106.         loadsw()
     
107.     End Sub
     
108. 
     
109.     Private Sub cbxDpi_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbxDpi.SelectedIndexChanged
     
110.         intDPI = cbxDpi.Items(cbxDpi.SelectedIndex)
     
111. 
     
112.     End Sub
     
113. 
     
114.     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
     
115.         ListBox1.Items.Clear()
     
116.     End Sub
     
117. 
     
118.     Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
     
119.         For i = 0 To ListBox1.SelectedItems.Count - 1
     
120.             ListBox1.Items.Remove(ListBox1.SelectedItems(0))
     
121.         Next
     
122.     End Sub
     
123. 
     
124. 
     
125. 
     
126. 
     
127. 
     
128.     Private Sub Button2_Click(sender As Object, e As EventArgs)
     
129. 
     
130.     End Sub
     
131. 
     
132.     Private Sub cbxPtTiff_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbxPtOut.SelectedIndexChanged
     
133. 
     
134.         PT1.PrinterSettings.PrinterName = cbxPtOut.SelectedItem
     
135. 
     
136. 
     
137.     End Sub
     
138. 
     
139.     Private Sub ListLargePapers_DoubleClick(sender As Object, e As EventArgs) Handles ListLargePapers.DoubleClick
     
140.         If ListLargePapers.SelectedIndex <> -1 Then
     
141.             swApp.OpenDoc(ListLargePapers.SelectedItem, 3)
     
142.         End If
     
143.     End Sub
     
144. 
     
145.    
     
146. 
     
147.     Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
     
148.         MsgBox("本程序完全免费！！" & vbCrLf & "编写此程序一是为了为大家提供便利，二是为了展示我们作为专利代理人，在机械设计方面的实力" & vbCrLf & "如果您想要申请专利，欢迎联系我。 郜文刚，QQ:258453495")
     
149.     End Sub
     
150. 
     
151.    
     
152. End Class
     

复制代码

1. Module paperRelated
   
2.     '重置列表数组
   
3.     Sub reSetpoList()
   
4.         For i = 0 To poList.GetUpperBound(0)
   
5.             poList(i) = 0
   
6.         Next
   
7. 
   
8.     End Sub
   
9.     Sub getA2s()
   
10.         x = 0
    
11.         y = 0
    
12.         z = 0
    
13.         A2exist = False
    
14.         A3exist = False
    
15.         A4exist = False
    
16. 
    
17.         For Each aaa As SwDraw In swDrawCollecton
    
18.             If aaa.PaperSize = "A2" Then
    
19.                 x += 1
    
20.             End If
    
21.             If aaa.PaperSize = "A3" Then
    
22.                 y += 1
    
23.             End If
    
24.             If aaa.PaperSize = "A4" Then
    
25.                 z += 1
    
26.             End If
    
27.         Next
    
28.         If x <> 0 Then
    
29.             A2exist = True
    
30.             ReDim checkA2(x - 1)
    
31.         End If
    
32. 
    
33.         If y <> 0 Then
    
34.             A3exist = True
    
35.             ReDim checkA3(y - 1)
    
36.         End If
    
37.         If z <> 0 Then
    
38.             A4exist = True
    
39.             ReDim checkA4(z - 1)
    
40.         End If
    
41. 
    
42. 
    
43.         x = 0
    
44.         y = 0
    
45.         z = 0
    
46. 
    
47.         For i = 0 To swDrawCollecton.Count - 1
    
48.             If swDrawCollecton.Item(i).PaperSize = "A2" Then
    
49.                 checkA2(x) = i
    
50. 
    
51.                 x += 1
    
52.             End If
    
53.             If swDrawCollecton.Item(i).PaperSize = "A3" Then
    
54.                 checkA3(y) = i
    
55. 
    
56.                 y += 1
    
57.             End If
    
58.             If swDrawCollecton.Item(i).PaperSize = "A4" Then
    
59.                 checkA4(z) = i
    
60. 
    
61.                 z += 1
    
62.             End If
    
63.         Next
    
64. 
    
65.         CountAsA4 = x * 4 + y * 2 + z
    
66.     End Sub
    
67.     Sub fillPaper()
    
68.         '将图纸进行排序
    
69.         If CountAsA4 Mod 8 <> 0 Then
    
70.             paperCount = CountAsA4 \ 8 + 1
    
71.         Else : paperCount = CountAsA4 \ 8
    
72.         End If
    
73.         paperLeft = swDrawCollecton.Count
    
74.         A2Current = 0
    
75.         A3Current = 0
    
76.         A4Current = 0
    
77.         j = 0
    
78.         FinalPapers = New ptPaperAll
    
79.         For i = 0 To paperCount - 1
    
80.             '填充图纸
    
81.             '清空标志数组
    
82.             reSetpoList()
    
83.             onePaper = New ptPaper
    
84.             onePaper.inNerPapers = New swDrawsAll
    
85.             '<>1,说明图纸未填满
    
86. 
    
87.             Do While poList(7) <> 1
    
88. 
    
89.                 '装填A2
    
90.                 If A2exist = True And A2Current <> x Then
    
91.                     '往前装填
    
92.                     If poList(0) = 0 Then
    
93.                         swDrawCollecton.Item(checkA2(A2Current)).insertPosX = 0
    
94.                         swDrawCollecton.Item(checkA2(A2Current)).insertPosY = 0
    
95.                         onePaper.inNerPapers.Add(swDrawCollecton.Item(checkA2(A2Current)))
    
96.                         poList(0) = 1
    
97.                         poList(1) = 1
    
98.                         poList(4) = 1
    
99.                         poList(5) = 1
    
100.                         A2Current += 1
     
101.                         'A2不存在或者已被填充完毕
     
102.                         If A2Current = x Then A2exist = False
     
103.                     End If
     
104.                     If A2exist = True And poList(0) = 1 And poList(2) = 0 Then
     
105.                         '往后装填
     
106.                         swDrawCollecton.Item(checkA2(A2Current)).insertPosX = 2
     
107.                         swDrawCollecton.Item(checkA2(A2Current)).insertPosY = 0
     
108.                         onePaper.inNerPapers.Add(swDrawCollecton.Item(checkA2(A2Current)))
     
109.                         poList(2) = 1
     
110.                         poList(3) = 1
     
111.                         poList(6) = 1
     
112.                         poList(7) = 1
     
113.                         A2Current += 1
     
114.                         'A2不存在或者已被填充完毕
     
115.                         If A2Current = x Then A2exist = False
     
116.                     End If
     
117.                 End If  'A2装填完毕
     
118. 
     
119. 
     
120.                 '装填A3
     
121.                 If A3exist = True And A3Current <> y And A2exist = False Then
     
122.                     '第一个格子
     
123.                     If poList(0) = 0 Then
     
124.                         swDrawCollecton.Item(checkA3(A3Current)).insertPosX = 0
     
125.                         swDrawCollecton.Item(checkA3(A3Current)).insertPosY = 0
     
126.                         onePaper.inNerPapers.Add(swDrawCollecton.Item(checkA3(A3Current)))
     
127.                         poList(0) = 1
     
128.                         poList(1) = 1
     
129. 
     
130.                         A3Current += 1
     
131.                         'A3不存在或者已被填充完毕
     
132.                         If A3Current = y Then A3exist = False
     
133.                     End If
     
134.                     '第一个格子已填，检查第二个格子
     
135.                     If A3exist = True And poList(0) = 1 And poList(2) = 0 Then
     
136.                         swDrawCollecton.Item(checkA3(A3Current)).insertPosX = 2
     
137.                         swDrawCollecton.Item(checkA3(A3Current)).insertPosY = 0
     
138.                         onePaper.inNerPapers.Add(swDrawCollecton.Item(checkA3(A3Current)))
     
139.                         poList(2) = 1
     
140.                         poList(3) = 1
     
141. 
     
142.                         A3Current += 1
     
143.                         'A3不存在或者已被填充完毕
     
144.                         If A3Current = y Then A3exist = False
     
145.                     End If
     
146.                     '第二个格子已填，检查第三个格子
     
147.                     If A3exist = True And poList(0) = 1 And poList(2) = 1 And poList(4) = 0 Then
     
148.                         swDrawCollecton.Item(checkA3(A3Current)).insertPosX = 0
     
149.                         swDrawCollecton.Item(checkA3(A3Current)).insertPosY = 1
     
150.                         onePaper.inNerPapers.Add(swDrawCollecton.Item(checkA3(A3Current)))
     
151.                         poList(4) = 1
     
152.                         poList(5) = 1
     
153. 
     
154.                         A3Current += 1
     
155.                         'A3不存在或者已被填充完毕
     
156.                         If A3Current = y Then A3exist = False
     
157.                     End If
     
158.                     '第三个格子已填，检查第四个格子
     
159.                     If A3exist = True And poList(0) = 1 And poList(2) = 1 And poList(4) = 1 And poList(6) = 0 Then
     
160.                         swDrawCollecton.Item(checkA3(A3Current)).insertPosX = 2
     
161.                         swDrawCollecton.Item(checkA3(A3Current)).insertPosY = 1
     
162.                         onePaper.inNerPapers.Add(swDrawCollecton.Item(checkA3(A3Current)))
     
163.                         poList(6) = 1
     
164.                         poList(7) = 1
     
165. 
     
166.                         A3Current += 1
     
167.                         'A3不存在或者已被填充完毕
     
168.                         If A3Current = y Then A3exist = False
     
169.                     End If   'A3检查完毕
     
170.                 End If   'A3填装完毕
     
171.                 '开始填装A4
     
172.                 If A3exist = False And A4Current <> z And A2exist = False And A4exist = True Then
     
173.                     '检查A4的第一个格子
     
174.                     If poList(0) = 0 Then
     
175.                         swDrawCollecton.Item(checkA4(A4Current)).insertPosX = 0
     
176.                         swDrawCollecton.Item(checkA4(A4Current)).insertPosY = 0
     
177.                         onePaper.inNerPapers.Add(swDrawCollecton.Item(checkA4(A4Current)))
     
178.                         poList(0) = 1
     
179.                         A4Current += 1
     
180.                         'A4不存在或者已被填充完毕
     
181.                         If A4Current = z Then A4exist = False
     
182.                     End If
     
183.                     '检查A4的第二个格子
     
184.                     If A4exist = True And poList(0) = 1 And poList(1) = 0 Then
     
185.                         swDrawCollecton.Item(checkA4(A4Current)).insertPosX = 1
     
186.                         swDrawCollecton.Item(checkA4(A4Current)).insertPosY = 0
     
187.                         onePaper.inNerPapers.Add(swDrawCollecton.Item(checkA4(A4Current)))
     
188.                         poList(1) = 1
     
189.                         A4Current += 1
     
190.                         'A4不存在或者已被填充完毕
     
191.                         If A4Current = z Then A4exist = False
     
192.                     End If
     
193.                     '检查A4的第三个格子
     
194.                     If A4exist = True And poList(0) = 1 And poList(1) = 1 And poList(2) = 0 Then
     
195.                         swDrawCollecton.Item(checkA4(A4Current)).insertPosX = 2
     
196.                         swDrawCollecton.Item(checkA4(A4Current)).insertPosY = 0
     
197.                         onePaper.inNerPapers.Add(swDrawCollecton.Item(checkA4(A4Current)))
     
198.                         poList(2) = 1
     
199.                         A4Current += 1
     
200.                         'A4不存在或者已被填充完毕
     
201.                         If A4Current = z Then A4exist = False
     
202.                     End If
     
203.                     '检查A4的第四个格子
     
204.                     If A4exist = True And poList(0) = 1 And poList(1) = 1 And poList(2) = 1 And poList(3) = 0 Then
     
205.                         swDrawCollecton.Item(checkA4(A4Current)).insertPosX = 3
     
206.                         swDrawCollecton.Item(checkA4(A4Current)).insertPosY = 0
     
207.                         onePaper.inNerPapers.Add(swDrawCollecton.Item(checkA4(A4Current)))
     
208.                         poList(3) = 1
     
209.                         A4Current += 1
     
210.                         'A4不存在或者已被填充完毕
     
211.                         If A4Current = z Then A4exist = False
     
212.                     End If
     
213.                     '检查A4的第五个格子
     
214.                     If A4exist = True And poList(0) = 1 And poList(1) = 1 And poList(2) = 1 And poList(3) = 1 And poList(4) = 0 Then
     
215.                         swDrawCollecton.Item(checkA4(A4Current)).insertPosX = 0
     
216.                         swDrawCollecton.Item(checkA4(A4Current)).insertPosY = 1
     
217.                         onePaper.inNerPapers.Add(swDrawCollecton.Item(checkA4(A4Current)))
     
218.                         poList(4) = 1
     
219.                         A4Current += 1
     
220.                         'A4不存在或者已被填充完毕
     
221.                         If A4Current = z Then A4exist = False
     
222.                     End If
     
223.                     '检查A4的第六个格子
     
224.                     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
     
225.                         swDrawCollecton.Item(checkA4(A4Current)).insertPosX = 1
     
226.                         swDrawCollecton.Item(checkA4(A4Current)).insertPosY = 1
     
227.                         onePaper.inNerPapers.Add(swDrawCollecton.Item(checkA4(A4Current)))
     
228.                         poList(5) = 1
     
229.                         A4Current += 1
     
230.                         'A4不存在或者已被填充完毕
     
231.                         If A4Current = z Then A4exist = False
     
232.                     End If
     
233.                     '检查A4的第七个格子
     
234.                     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 _
     
235.                      And poList(6) = 0 Then
     
236.                         swDrawCollecton.Item(checkA4(A4Current)).insertPosX = 2
     
237.                         swDrawCollecton.Item(checkA4(A4Current)).insertPosY = 1
     
238.                         onePaper.inNerPapers.Add(swDrawCollecton.Item(checkA4(A4Current)))
     
239.                         poList(6) = 1
     
240.                         A4Current += 1
     
241.                         'A4不存在或者已被填充完毕
     
242.                         If A4Current = z Then A4exist = False
     
243.                     End If
     
244.                     '检查A4的第八个格子
     
245.                     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 _
     
246.                      And poList(6) = 1 And poList(7) = 0 Then
     
247.                         swDrawCollecton.Item(checkA4(A4Current)).insertPosX = 3
     
248.                         swDrawCollecton.Item(checkA4(A4Current)).insertPosY = 1
     
249.                         onePaper.inNerPapers.Add(swDrawCollecton.Item(checkA4(A4Current)))
     
250.                         poList(7) = 1
     
251.                         A4Current += 1
     
252.                         'A4不存在或者已被填充完毕
     
253.                         If A4Current = z Then A4exist = False
     
254.                     End If
     
255.                 End If
     
256. 
     
257. 
     
258. 
     
259.                 '剩余图纸的数量减一
     
260.                 paperLeft -= 1
     
261.                 If paperLeft = 0 Then
     
262.                     Exit Do
     
263.                 End If
     
264. 
     
265. 
     
266.             Loop
     
267. 
     
268. 
     
269.             FinalPapers.Add(onePaper)
     
270. 
     
271.         Next
     
272. 
     
273.         onePaper = Nothing
     
274.       
     
275.     End Sub
     
276. 
     
277. End Module
     

复制代码