关于打印机配置

wudapeng

高手能帮忙看看吗，我想出1：500的图，但是出来的图好像都是自动按图纸空间缩放的，怎么回事啊？
ThisDrawing.Application.ZoomExtents
ThisDrawing.ModelSpace.Layout.PlotType = acExtents
ThisDrawing.ModelSpace.Layout.StandardScale = 0.5
ThisDrawing.ModelSpace.Layout.CenterPlot = True
ThisDrawing.Plot.NumberOfCopies = 1
ThisDrawing.Plot.QuietErrorMode = True
' ThisDrawing.Plot.PlotToDevice
ThisDrawing.Plot.DisplayPlotPreview acFullPreview

cabinsummer

这就是图纸空间的好处

wudapeng

已经解决了，原来是这句话出了问题
ThisDrawing.ModelSpace.Layout.StandardScale = 0.5
应该这样：
ThisDrawing.ModelSpace.Layout.SetCustomScale 1, 0.5