vba plotting layouts

[erik_NL]

goodday,

 

i'm having some trouble with plotting of layouts. Al the others functions (not related functions) work but i do have some problems with plotting a layout. My most succesful code is;

        
   Dim PlotLayout As AcadLayout
   Dim PlotLayouts As AcadLayouts

   ' On Error Resume Next
   If ThisDrawing.ActiveSpace = acModelSpace Then
       ThisDrawing.ActiveSpace = acPaperSpace
       Set PlotLayouts = ThisDrawing.Layouts
       Else
       End If
       
       On Error Resume Next
       If PlotLayout.Name <> "Model" Then
               ThisDrawing.ActiveLayout = PlotLayout
               ThisDrawing.Plot.PlotToDevice
               VBA.DoEvents
       End If

the "on error resume next" was one of the last options to test. I copied code from the Help, checked some things out of the Joe Sutphin book, copied code from the plot.dvb from activedwg.com etc etc with no succes.

 

On running this code i get by the second layout (layout2) a unfinished program witch shows a a commandline input request as if something ain't finished (thats the reason for the vba.doevents)

 

 

Command: Regenerating model - caching viewports.

Command:
Command: Restoring cached viewports - Regenerating layout.

Command: Regenerating layout.
Restoring cached viewports - Regenerating layout.

 

I want to batch plot (in first plot one drawing and if succesful batchplot folders) all layouts to a TDS9600 and/or a dwg2pdf plotter.

 

tia.