- 博客(0)
- 资源 (4)
- 收藏
- 关注
批量打印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
2019-05-26
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人