我正在尝试将我的自定义绘图例程迁移到VBA，并且我对以下代码有问题，我不知道如何设置纸张大小。请提供任何指导...
- Public Sub FULL_SIZE()
- ThisDrawing.ActiveLayout.RefreshPlotDeviceInfo
- Dim Layouts As AcadLayouts, Layout As AcadLayout
-
-
- Set Layouts = ThisDrawing.Layouts
- ThisDrawing.Regen acAllViewports
- With ThisDrawing.ActiveLayout
- .RefreshPlotDeviceInfo
- .GetPlotStyleTableNames
- .StyleSheet = "SFA1055.ctb"
- .ConfigName = "\\CENTRAL\HP DesignJet 500 42 by HP"
- .PlotRotation = ac0degrees
- .CenterPlot = True
- .PaperUnits = acInches
- .ScaleLineweights = False
- '.GetLocaleMediaName = "Oversize: Arch D (Landscape)" >
- .StandardScale = ac1_1
- End With
-
- End Sub
编辑：将您的代码包装在[code]标签中
本帖以下内容被隐藏保护；需要你回复后，才能看到！ 游客，如果您要查看本帖隐藏内容请 回复 | 
置顶卡
