不打开cad文档打印批量文件(依据编组图框)Sub不打开文档打印()DimnamAsStringnam="临时"DimdocAsAcadDocumentSetdoc=ThisDrawing.Application.Documents.Add(nam)DimmydocPathname="C:\Users\wzm1968yhm\Desktop\需要批量打印的图纸"'所有图需放在桌面上的这个文件夹中DimfsoAsObjectSetfso=CreateObject("Scripting.FileSystemObject")DimfdSetfd=fso.GetFolder(Pathname)'MsgBoxfd.Files.CountForEachthingInfd.Files'MsgBoxthing.NameIfRight(thing.Name,3)="bak"Thenthing.DeleteEndIfNextForEachthingInfd.Files'MsgBoxthing.NameSetmydoc=ThisDrawing.Application.Documents.Open(Pathname&"\"&thing.Name)mydoc.Activate'MsgBoxmydoc.NameDimmygroupAsAcadGroupsDimpMin,pMaxAsVariantDimtpMin,tpMaxAsVariantForEachfrmgrpInThisDrawing.Groupsn=frmgrp.CountIfn<>0Thenfrmgrp.Item(0).GetBoundingBoxpMin,pMaxFori=0Ton-1frmgrp.Item(i).GetBoundingBoxtpMin,tpMaxIftpMin(0)
pMax(0)ThenpMax=tpMaxEndIfIftpMax(1)>pMax(1)ThenpMax=tpMaxEndIfNextThisDrawing.ModelSpace.AddPointpMinThisDrawing.ModelSpace.AddPointpMaxSetobjDoc=ThisDrawing.Application.ActiveDocumentSetobjLayout=objDoc.Layouts.Item(Model)Dimppmin(1)AsDoubleDimppmax(1)AsDoubleppmin(0)=pMin(0)ppmin(1)=pMin(1)ppmax(0)=pMax(0)ppmax(1)=pMax(1)objDoc.RegenacAllViewportsThisDrawing.ActiveLayout.SetWindowToPlotppmin,ppmaxobjLayout.PlotType=acWindowobjLayout.ConfigName="samsungscx-4x21series"objLayout.StyleSheet="acad.ctb"objLayout.CanonicalMediaName="A4"objLayout.PaperUnits=acMillimetersobjLayout.PlotRotation=ac0degreesobjLayout.StandardScale=acScaleToFitobjLayout.UseStandardScale=TrueobjLayout.CenterPlot=TrueobjLayout.PlotWithLineweights=TrueSetobjPlot=objDoc.PlotobjPlot.NumberOfCopies=1'objLayout.PlotWithPlotStyles=TrueobjDoc.SetVariable"BACKGROUNDPLOT",0objPlot.DisplayPlotPreviewacFullPreviewobjPlot.PlotToDeviceobjLayout.ConfigNameEndIfIfn=0Thenfrmgrp.DeleteEndIfNextmydoc.CloseFalseNextEndSub
浙公网安备 33021202002483