文件名称：批量打印CAD图纸.dvb
文件大小：80KB
文件格式：DVB
更新时间：2022-06-15 11:35:49
VBA 批量打印 源码 CAD
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