用vba打印cad图形？

nxy_918

各位大虾/:已经知道打印的范围，和打印比例，并确定用使用的打印机，如何把当前的图形用程序自动打印出来？

mccad

2. Sub Ch9_PrintModelSpace()    ' 验证活动空间是模型空间
3.         If ThisDrawing.ActiveSpace = acPaperSpace Then        ThisDrawing.MSpace = True        ThisDrawing.ActiveSpace = acModelSpace        End If        ' 设置打印区域的范围和比例        ThisDrawing.ModelSpace.Layout.PlotType = acExtents    ThisDrawing.ModelSpace.Layout. _                          StandardScale = acScaleToFit    ' 将打印份数设置为 1    ThisDrawing.Plot.NumberOfCopies = 1    ' 初始化打印        ThisDrawing.Plot.PlotToDeviceEnd Sub

Sub Ch9_PrintModelSpace()    ' 验证活动空间是模型空间         If ThisDrawing.ActiveSpace = acPaperSpace Then        ThisDrawing.MSpace = True        ThisDrawing.ActiveSpace = acModelSpace        End If        ' 设置打印区域的范围和比例        ThisDrawing.ModelSpace.Layout.PlotType = acExtents    ThisDrawing.ModelSpace.Layout. _                          StandardScale = acScaleToFit    ' 将打印份数设置为 1    ThisDrawing.Plot.NumberOfCopies = 1    ' 初始化打印        ThisDrawing.Plot.PlotToDeviceEnd Sub

nxy_918

明总：打印范围可否用程序传送打印范围的坐标数组（如：左下角坐标和右上角坐标），而不用人工干预

mccad

用：
ThisDrawing.ModelSpace.Layout.PlotType = acWindow
ThisDrawing.ModelSpace.Layout.SetWindowToPlot LowerLeft, UpperRight