Message 1 of 9
Why is Plotting in VBA so slow

Not applicable
12-06-2006
04:39 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Why is Plotting in VBA so slow. Are there any workarounds for this.
Here is the print routine that I am using. Later I am going to loop this through many drawings. Using ACAD 2007
Here is the code.
Sub Printdrawing()
ThisDrawing.ActiveLayout.ConfigName = "\\Tasdc01\HP Laserjet 8000 Series PCL"
ThisDrawing.ActiveLayout.PlotWithPlotStyles = True
ThisDrawing.ActiveLayout.StyleSheet = "TAS-Std.ctb"
ThisDrawing.ActiveLayout.GetWindowToPlot Min, Max
ThisDrawing.ActiveLayout.SetWindowToPlot Min, Max
ThisDrawing.ActiveLayout.PlotType = acWindow
ThisDrawing.ActiveLayout.SetCustomScale 1, BScale
ThisDrawing.ActiveLayout.CanonicalMediaName = "11x17"
'ThisDrawing.Plot.DisplayPlotPreview acFullPreview
ThisDrawing.Plot.PlotToDevice
End Sub
Thanks
Here is the print routine that I am using. Later I am going to loop this through many drawings. Using ACAD 2007
Here is the code.
Sub Printdrawing()
ThisDrawing.ActiveLayout.ConfigName = "\\Tasdc01\HP Laserjet 8000 Series PCL"
ThisDrawing.ActiveLayout.PlotWithPlotStyles = True
ThisDrawing.ActiveLayout.StyleSheet = "TAS-Std.ctb"
ThisDrawing.ActiveLayout.GetWindowToPlot Min, Max
ThisDrawing.ActiveLayout.SetWindowToPlot Min, Max
ThisDrawing.ActiveLayout.PlotType = acWindow
ThisDrawing.ActiveLayout.SetCustomScale 1, BScale
ThisDrawing.ActiveLayout.CanonicalMediaName = "11x17"
'ThisDrawing.Plot.DisplayPlotPreview acFullPreview
ThisDrawing.Plot.PlotToDevice
End Sub
Thanks