批量打印CAD图纸.dvb

ublic Sub PlotFunction(PrinterName As String, Styles As String, MediaName As String, Copies As Integer, AutoMedia As Boolean, AutoRotate As Boolean, AutoClose As Boolean, AutoFrame As Boolean) On Error Resume Next Dim Ent As AcadEntity Dim PlotCount As Integer Dim i As Integer, j As Integer Set objDoc = ThisDrawing.Application.ActiveDocument Set objLayout = objDoc.Layouts.Item("Model") Set objPlot = objDoc.Plot ThisDrawing.Application.ZoomExtents