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

1. Imports System.Drawing
   
2. Imports System.Drawing.Graphics
   
3. 
   
4. Module PictureRelated
   
5.     Sub joinPicture()
   
6.         '每一张大图
   
7.         Dim mm As Integer = 1
   
8.         For Each ds As ptPaper In FinalPapers
   
9.             '图片大小
   
10.             newBMape = New Bitmap(CInt(841 * intDPI / 25.4), CInt(594 * intDPI / 25.4))
    
11. 
    
12.             '设置分辨率
    
13.             newBMape.SetResolution(intDPI, intDPI)
    
14.             g1 = Graphics.FromImage(newBMape)
    
15.             g1.Clear(Color.White)
    
16.             For Each sdraw As SwDraw In ds.inNerPapers
    
17.                 myImage = Image.FromFile(sdraw.drawDir)
    
18.                
    
19.                 If sdraw.PaperSize = "A2" Then
    
20.                     myImage.RotateFlip(RotateFlipType.Rotate90FlipNone)
    
21.                     '如果是A2，则宽高翻转，同时将图像进行90度翻转
    
22.                     theHeight = CInt(sdraw.drawWidth * intDPI / 25.4)
    
23.                     theWidth = CInt(sdraw.drawHeight * intDPI / 25.4)
    
24.                   
    
25.                 Else
    
26.                     theHeight = CInt(sdraw.drawHeight * intDPI / 25.4)
    
27.                     theWidth = CInt(sdraw.drawWidth * intDPI / 25.4)
    
28.                   
    
29.                 End If
    
30. 
    
31. 
    
32.                 If sdraw.PaperSize = "A4" Then
    
33.                     theX = CInt(sdraw.insertPosX * intDPI * 210 / 25.4)
    
34.                     theY = CInt(sdraw.insertPosY * intDPI * 297 / 25.4)
    
35.                 End If
    
36.                 If sdraw.PaperSize = "A3" Then
    
37. 
    
38.                     theX = CInt(sdraw.insertPosX * intDPI * 210 / 25.4)
    
39.                     theY = CInt(sdraw.insertPosY * intDPI * 297 / 25.4)
    
40. 
    
41.                 End If
    
42.                 If sdraw.PaperSize = "A2" Then
    
43.                     theX = CInt(sdraw.insertPosX * intDPI * 210 / 25.4)
    
44.                     theY = CInt(sdraw.insertPosY * intDPI * 297 / 25.4)
    
45.                 End If
    
46.                
    
47.                 g1.DrawImage(myImage, theX, theY)
    
48.                 myImage.Dispose()
    
49.             Next
    
50.             If Form1.CBoxPaperSize.SelectedIndex = 1 Then
    
51.                 newBMape.RotateFlip(RotateFlipType.Rotate90FlipNone)
    
52.             End If
    
53.             If Form1.CBoxPrint.Checked = True Then
    
54.                 printThepaper()
    
55.             End If
    
56.             If Form1.CBoxPicSave.Checked = True Then
    
57.                 newBMape.Save(Application.StartupPath + "\outputimage\xx" + mm.ToString + ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
    
58.             End If
    
59.             mm += 1
    
60.             g1.Dispose()
    
61.             newBMape.Dispose()
    
62.         Next
    
63.         
    
64. 
    
65.     End Sub
    
66. 
    
67. 
    
68. 
    
69. End Module
    

复制代码

1. Imports System.IO
   
2. Imports System.Drawing.Printing
   
3. 
   
4. Module printRelated
   
5.     Sub printThepaper()
   
6.         If Form1.CBoxPaperSize.SelectedIndex = 0 Then
   
7.             PgSize = New PaperSize("myA1", 3311, 2339)
   
8.            
   
9.         Else
   
10.             PgSize = New PaperSize("myA2", 2339, 3311)
    
11.          
    
12.         End If
    
13. 
    
14.         PTResolution = New PrinterResolution
    
15.         If Form1.RadioButtonHigh.Checked Then
    
16.             PTResolution.Kind = PrinterResolutionKind.High
    
17.         End If
    
18.         If Form1.RadioButtonFollowDpi.Checked Then
    
19.             PTResolution.Kind = PrinterResolutionKind.Custom
    
20.             PTResolution.X = intDPI
    
21.             PTResolution.Y = intDPI
    
22.         End If
    
23. 
    
24. 
    
25.         PT1.DefaultPageSettings.PaperSize = PgSize
    
26. 
    
27.         PT1.DefaultPageSettings.PrinterResolution = PTResolution
    
28. 
    
29.         PT1.Print()
    
30. 
    
31.     End Sub
    
32. 
    
33. 
    
34. End Module
    

复制代码

1. Public Class ptPaper
   
2.    
   
3.     '每个图纸里的小图纸
   
4.     Public inNerPapers As swDrawsAll
   
5. 
   
6. 
   
7. End Class
   

复制代码

1. Public Class ptPaperAll
   
2.     Inherits CollectionBase
   
3. 
   
4.     Public Sub Add(ByVal newPaper As ptPaper)
   
5.         Me.List.Add(newPaper)
   
6.     End Sub
   
7. 
   
8.     Public Sub Remove(ByVal oldPaper As ptPaper)
   
9.         Me.List.Remove(oldPaper)
   
10.     End Sub
    
11. 
    
12.     Default Public Property Item(ByVal index As Integer) As ptPaper
    
13.         Get
    
14.             Return CType(Me.List(index), ptPaper)
    
15.         End Get
    
16.         Set(value As ptPaper)
    
17.             Me.List.Item(index) = value
    
18.         End Set
    
19.     End Property
    
20. End Class
    

复制代码

1. Public Class SwDraw
   
2. 
   
3.     Public drawDir As String   'directory of a drawing
   
4.     Public drawSheetName As String   'sheet of a drawing  工程图文件中的图纸1，图纸2，等等
   
5. 
   
6. 
   
7.     Public drawHeight As Single     '图纸的大小
   
8.     Public drawWidth As Single
   
9. 
   
10.     Public PaperSize As String
    
11. 
    
12.     Public mysheet As SldWorks.Sheet
    
13.     Public sheetCount As Integer
    
14.     Public paperNumber As Integer      '位于第几张图纸
    
15.     Public insertPosX As Integer        '在图纸中插入时的位置编号
    
16.     Public insertPosY As Integer        '在图纸中插入时的位置编号
    
17. 
    
18. 
    
19. 
    
20. End Class
    

复制代码

1. Public Class swDrawsAll
   
2.     Inherits CollectionBase
   
3.     Public Sub Add(ByVal newDraw As SwDraw)
   
4.         Me.List.Add(newDraw)
   
5.     End Sub
   
6. 
   
7.     Public Sub Remove(ByVal oldDraw As SwDraw)
   
8.         Me.List.Remove(oldDraw)
   
9.     End Sub
   
10. 
    
11.     Default Public Property Item(ByVal index As Integer) As SwDraw
    
12.         Get
    
13.             Return CType(Me.List(index), SwDraw)
    
14.         End Get
    
15.         Set(value As SwDraw)
    
16.             Me.List.Item(index) = value
    
17.         End Set
    
18. 
    
19.     End Property
    
20. 
    
21. 
    
22. End Class
    

复制代码

1. Imports SwConst
   
2. Imports System.Drawing.Printing
   
3. Imports SldWorks
   
4. Imports System.IO
   
5. 
   
6. 
   
7. Module swRelated
   
8.     Public Sub loadsw()
   
9. 
   
10.         ReDim SwFinalFiles(Form1.ListBox1.Items.Count - 1)
    
11.         '将列表装入数组
    
12.         For ix As Integer = 0 To SwFinalFiles.GetUpperBound(0)
    
13.             SwFinalFiles(ix) = Form1.ListBox1.Items(ix)
    
14. 
    
15.         Next
    
16.         If SwFinalFiles.Length <> 0 Then
    
17. 
    
18.             Form1.PSbar1.Maximum = SwFinalFiles.GetUpperBound(0)
    
19.             Form1.PSbar1.Minimum = 0
    
20.             swApp = New SldWorks.SldWorks
    
21.             If Form1.CboxShowSW.Checked = True Then
    
22.                 swApp.Visible = True
    
23.             Else : swApp.Visible = False
    
24.             End If
    
25.             MsgBox("即将开始，建议关闭所有程序以保证足够内存")
    
26.             Dim i As Integer
    
27.             For i = 0 To SwFinalFiles.GetUpperBound(0)
    
28.                 Try
    
29.                     Form1.PSbar1.Value = i
    
30.                     swMod = swApp.OpenDoc(SwFinalFiles(i), 3)
    
31.                     swDoc = swMod
    
32.                     '图片颜色变成黑白
    
33.                     boolstatus = swApp.SetUserPreferenceIntegerValue(swUserPreferenceIntegerValue_e.swTiffImageType, swTiffImageType_e.swTiffImageBlackAndWhite)
    
34.                     '图片分辨率设为选定值
    
35.                     boolstatus = swApp.SetUserPreferenceIntegerValue(swUserPreferenceIntegerValue_e.swTiffPrintDPI, intDPI)
    
36.                     '图片存放的目录全名
    
37. 
    
38.                     intSheetCount = swDoc.GetSheetCount   '文件中图纸数量
    
39.                     mysheet = swDoc.GetSheetNames     '图纸名称列表      
    
40.                     For j As Integer = 0 To intSheetCount - 1
    
41.                         '获取图纸的大小尺寸
    
42.                         tmpInt = swDoc.Sheet(mysheet(j).ToString).GetSize(stWidth, stHeight)
    
43.                         stWidth = stWidth * 1000
    
44.                         stHeight = stHeight * 1000
    
45.                         If stHeight = 594 Or stHeight = 841 Then
    
46.                             Form1.ListLargePapers.Items.Add(SwFinalFiles(i))
    
47.                             Exit For
    
48.                         End If
    
49.                         If stHeight = 210 Or stHeight = 297 Then
    
50.                             '选择了直接出图，并且选择的是A4和A3的图纸，
    
51.                             If Form1.CBoxEnable.Checked = True Then
    
52. 
    
53.                                 '选择打印机
    
54.                                 swMod.Printer = Form1.cbxPtA4.SelectedItem
    
55.                                 '设置页面参数
    
56.                                 Dim a As PageSetup
    
57.                                 a = swMod.PageSetup
    
58.                                 a.HighQuality = True
    
59.                                 a.ScaleToFit = True
    
60. 
    
61.                                 Dim tt As Boolean
    
62.                                 a.DrawingColor = swPageSetupDrawingColor_e.swPageSetup_BlackAndWhite
    
63.                                 a.PrinterPaperSize = PaperKind.A4
    
64.                                 tt = a.UsePageSetupOnSheets()
    
65. 
    
66.                                 If stWidth = 297 Or stWidth = 210 Then  'A4图纸
    
67.                                     swMod.PrintDirect()
    
68.                                 End If
    
69.                                 If stWidth = 420 Then  'A3图纸
    
70.                                     swMod.PrintOut(j + 1, j + 1, 1, False, swMod.Printer, 0.67, False)
    
71.                                 End If
    
72. 
    
73.                             Else
    
74. 
    
75. 
    
76. 
    
77. 
    
78.                                 '将图纸录入集合
    
79.                                 swSingleDraw = New SwDraw
    
80.                                 tmpSavefile = Application.StartupPath & "\OutputImage" & i.ToString & _
    
81.                              mysheet(j).ToString & ".tif"
    
82.                                 swMod.SaveAs(tmpSavefile)   '保存成jpg文件
    
83.                                 With swSingleDraw
    
84.                                     .drawDir = tmpSavefile
    
85.                                     .drawHeight = stHeight
    
86.                                     .drawWidth = stWidth
    
87.                                 End With
    
88.                                 If stWidth = 210 Then
    
89.                                     swSingleDraw.PaperSize = "A4"
    
90. 
    
91.                                 End If
    
92.                                 If stWidth = 420 Then
    
93.                                     swSingleDraw.PaperSize = "A3"
    
94. 
    
95.                                 End If
    
96. 
    
97. 
    
98. 
    
99.                             End If
    
100.                         End If
     
101.                         '如果是A2的尺寸，处理同上。
     
102.                         If stHeight = 420 Then
     
103.                             '将图纸录入集合
     
104. 
     
105.                             swSingleDraw = New SwDraw
     
106.                             tmpSavefile = Application.StartupPath & "\OutputImage" & i.ToString & _
     
107.                         mysheet(j).ToString & ".tif"
     
108.                             swMod.SaveAs(tmpSavefile)   '保存成TIF文件
     
109.                             With swSingleDraw
     
110.                                 .drawDir = tmpSavefile
     
111.                                 .drawHeight = stHeight
     
112.                                 .drawWidth = stWidth
     
113.                             End With
     
114. 
     
115.                             If stWidth = 594 Then
     
116.                                 swSingleDraw.PaperSize = "A2"
     
117. 
     
118.                             End If
     
119. 
     
120. 
     
121.                         End If
     
122. 
     
123.                         '录入完毕，图纸尺寸全部放入到了对象swSingleDraw中
     
124. 
     
125.                         swDrawCollecton.Add(swSingleDraw)
     
126. 
     
127. 
     
128.                         swDoc.SheetNext()
     
129.                     Next
     
130.                     swApp.CloseDoc(SwFinalFiles(i))
     
131.                     swDoc = Nothing
     
132.                     swMod = Nothing
     
133. 
     
134.                 Catch ex As Exception
     
135.                 End Try
     
136.             Next
     
137.             
     
138.             getA2s()
     
139.             fillPaper()
     
140.             joinPicture()
     
141.             MsgBox("successed!")
     
142. 
     
143.         Else : MsgBox("list not exist")
     
144.         End If
     
145. 
     
146. 
     
147. 
     
148. 
     
149.     End Sub
     
150. 
     
151. 
     
152. 
     
153. 
     
154. 
     
155. End Module
     

复制代码

各个控件的名称。

最好版主研究下能解决A3 A4自动识别图幅自动打印成需要的图幅的问题那就完美了

请问楼主，您发的附件是已经进行了更新的吗？