Solidworks打印设置教程.pdf

Solidworks打印设置教程之拼图打印宏方法

——把多页工程图批量输出1:1TIF档案

作者：无维网

Francis

OptionExplicit

DimswAppAsSldWorks.SldWorks

DimPartAsSldWorks.ModelDoc2

DimswSheetAsObject

DimSheetProperty

DimSheetCountAsInteger

DimiAsInteger

Dimcount_htTIFNameAsInteger

DimhtdocAsString

DimAllSheetName

DimRestoreSheetNameAsString

DimhtTIFNameAsString

DimDrawingPaperWidthAsDouble

DimDrawingPaperHeightAsDouble

DimnErrorsAsLong

DimnWarningsAsLong

Submain()

SetswApp=Application.SldWorks

SetPart=swApp.ActiveDoc

IfPart.GetType3ThenExitSub

RestoreSheetName=Part.GetCurrentSheet.GetName

AllSheetName=Part.GetSheetNames

SheetCount=Part.GetSheetCountSheetCount=Part.GetSheetCount

Fori=0ToSheetCount-1

Part.ActivateSheet(AllSheetName(i))

SetswSheet=Part.GetCurrentSheet

SheetProperty=swSheet.GetProperties

DrawingPaperWidth=SheetProperty(5)

DrawingPaperHeight=SheetProperty(6)

swApp.SetUserPreferenceToggleswTiffPrintScaleToFit,False

swApp.SetUserPreferenceIntegerValueswTiffScreenOrPrintCapture,1

swApp.SetUserPreferenceIntegerValueswTiffImageType,0

swApp.SetUserPreferenceIntegerValueswTiffCompressionScheme,2

swApp.SetUserPreferenceIntegerValueswTiffPrintDPI,300

swApp.SetUserPreferenceIntegerValueswTiffPrintPaperSize,12

swApp.SetUserPreferenceIntegerValueswTiffPrintScaleFactor,100

swApp.SetUserPreferenceDoubleValueswTiffPrintDrawingPaperHeight,DrawingPaperHeight

swApp.SetUserPreferenceDoubleValueswTiffPrintDrawingPaperWidth,DrawingPaperWidth

count_htTIFName=1

count_htTIFName=count_htTIFName+1

Wend

Part.SaveAs4htTIFName,swSaveAsCurrentVersion,swSaveAsOptions_S