关于从模型空间和图纸空间打印 （VBA/ActiveX）

绘制活动模型空间布局的范围

此示例首先检查以确保活动空间是模型空间。然后，该示例建立多个绘图设置。最后，使用该方法发送绘图。PlotToDevice

Sub Ch9_PrintModelSpace()
    ' Verify that the active space is model space
    If ThisDrawing.ActiveSpace = acPaperSpace Then
        ThisDrawing.MSpace = True
        ThisDrawing.ActiveSpace = acModelSpace
    End If

    ' Set the extents and scale of the plot area
    ThisDrawing.ModelSpace.Layout.PlotType = acExtents
    ThisDrawing.ModelSpace.Layout. _
 StandardScale = acScaleToFit

    ' Set the number of copies to one
    ThisDrawing.Plot.NumberOfCopies = 1

    ' Initiate the plot
    ThisDrawing.Plot.PlotToDevice
End Sub

可以使用属性指定设备名称。可以通过指定 PC3 文件在方法中重写此设备。ConfigNamePlotToDevice

从图纸空间打印

您可以打印图纸空间布局。您可以打印活动布局（如上一节所示），也可以按名称指定要打印的布局。