Solidworks打印设置教程.pdfVIP

Solidworks 打印设置教程之拼图打印宏方法 ——把多页工程图批量输出1:1TIF 档案 作者：无维网Francis Option Explicit Dim swApp As SldWorks.SldWorks Dim Part As SldWorks.ModelDoc2 Dim swSheet As Object Dim SheetProperty Dim SheetCount As Integer Dim i As Integer Dim count_htTIFName As Integer Dim htdoc As String Dim AllSheetName Dim RestoreSheetName As String Dim htTIFName As String Dim DrawingPaperWidth As Double Dim DrawingPaperHeight As Double Dim nErrors As Long Dim nWarnings As Long Sub main() Set swApp = Application.SldWorks Set Part = swApp.ActiveDoc If Part.GetType 3 Then Exit Sub RestoreSheetName = Part.GetCurrentSheet.GetName AllSheetName = Part.GetSheetNames SheetCount = Part.GetSheetCount htdoc = C:\ For i = 0 To SheetCount - 1 Part.ActivateSheet (AllSheetName(i)) Set swSheet = Part.GetCurrentSheet SheetProperty = swSheet.GetProperties DrawingPaperWidth = SheetProperty(5) DrawingPaperHeight = SheetProperty(6) swApp.SetUserPreferenceToggle swTiffPrintScaleToFit, False swApp.SetUserPreferenceIntegerValue swTiffScreenOrPrintCapture, 1 swApp.SetUserPreferenceIntegerValue swTiffImageType, 0 swApp.SetUserPreferenceIntegerValue swTiffCompressionScheme, 2 swApp.SetUserPreferenceIntegerValue swTiffPrintDPI, 300 swApp.SetUserPreferenceIntegerValue swTiffPrintPaperSize, 12 swApp.SetUserPreferenceIntegerValue swTiffPrintScaleFactor, 100 swApp.SetUserPreferenceDoubleValue swTiffPrintDrawingPaperHeight, DrawingPaperHeight swApp.SetUserPreferenceDoubleValue swTiffPrintDrawingPaperWidth, DrawingPaperWidth htTIFName = DrawingPaperWidth * 1000 mm count_htTIFName = 1 While Dir(htdoc htTIFName _ count_htTIFName .tif) Empty count_htTIFName = count_htTIFName + 1 Wend htT