【文件属性】:
文件名称:批量打印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