关于打印机配置
高手能帮忙看看吗,我想出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
这就是图纸空间的好处 已经解决了,原来是这句话出了问题
ThisDrawing.ModelSpace.Layout.StandardScale = 0.5
应该这样:
ThisDrawing.ModelSpace.Layout.SetCustomScale 1, 0.5
页:
[1]