cad vba批量打印（cad vba批量打印）.docVIP

cad vba批量打印（cad vba批量打印） The following is according to my production of drawings border dynamic block prepared by the CAD batch procedures Dynamic block download link: Http:///share/link? Shareid=1524357130uk=1007346156? Batch printing Sub printing () On Error Resume Next Dim, ptMin, ptMax, block properties, print size As, Variant Dim object As AcadEntity Dim has printed the number, whether to print, the proportion of the preceding As Integer Dim document As AcadDocument Dim layout As AcadLayout Dim layout As AcadPlot Does Dim print As Byte? Dim print copies As String Dim block attribute As Variant Set document = ThisDrawing.Application.ActiveDocument Set layout = document.Layouts.Item (Model) Set layout = document.Plot update printers, specifications, media, and print style sheet information to reflect current system status. Layout.RefreshPlotDeviceInfo Set the drawing unit Layout.PaperUnits = acMillimeters Set whether the drawings are centered or printed Layout.CenterPlot = True use line width in graphics file when printing Layout.PlotWithLineweights = True returns the default printer configuration name or specifies the default printer Block attribute = layout.ConfigName layout.ConfigName= printer name Get the name of all the available standard media for the specified print device (all print sizes that are printed by the printer) Block attribute = layout.GetCanonicalMediaNames () get all the available print device names. Block attribute = layout.GetPlotDeviceNames () Number of prints = 0 print count For Each object In document.ModelSpace If TypeOf object Is AcadBlockReference Then If object.EffectiveName = drawing border Then obtain the drawing specification size from the block attribute, block attribute (3).Value for drawing specifications, such as A3, and get them in different ways based on the definition of the border block definition Block attribute = object .GetDynamicBlockProperties gets the dynamic block property value Judge whether the printer print size c