File Not Found Error

Hello! I'm hoping someone has an idea why I'm receiving this error
message... File Not Found.
It does not happen every time my app runs... but enough to concern me. The
strange thing is I don't believe my code should be looking for any files
whatsoever... After the error message, the program continues on and
executes the way I expected it to. So I'm not sure what this is... any
help in fixing this bug would be greatly appreciated!

Here is the code and where I receive the error message:

Public Sub PlotDrawing(layoutlist As Variant, mylayout As AcadLayout, myPLOT
As PlotCfg)
Dim oPlotConfig As AcadPlotConfiguration
Dim originalPLOTCfg As AcadPlotConfiguration
Dim oPlot As AcadPlot
On Error Resume Next
Set oPlotConfig = ThisDrawing.PlotConfigurations.Add("TempPC", False)
<<<<=== This line causes a "FILE NOT FOUND" error.... which I don't
understand at all.
With oPlotConfig
.ConfigName = mylayout.ConfigName
.StandardScale = mylayout.StandardScale
.PlotRotation = mylayout.PlotRotation
.ShowPlotStyles = mylayout.ShowPlotStyles
.ScaleLineweights = mylayout.ScaleLineweights
.PlotWithPlotStyles = mylayout.PlotWithPlotStyles
.StyleSheet = mylayout.StyleSheet
End With
With mylayout
.ConfigName = myPLOT.PlotDevice
.RefreshPlotDeviceInfo
.PaperUnits = acInches
.CanonicalMediaName = myPLOT.CanonicalMediaName
.GetWindowToPlot myPLOT.WindowStart, myPLOT.WindowEnd
.StandardScale = ac1_1
.PlotRotation = myPLOT.BorderOrientation
.ShowPlotStyles = False
.ScaleLineweights = False
.PlotWithPlotStyles = True
.StyleSheet = myPLOT.StyleSheet
End With
Set oPlot = ThisDrawing.Plot
With oPlot
.SetLayoutsToPlot (layoutlist)
.NumberOfCopies = 1
End With
retVAL = oPlot.PlotToFile(myPLOT.Path)
If retVAL Then
Debug.Print "Plot was successful!"
Else
Debug.Print "Plot FAILED!"
End If
With mylayout
.ConfigName = oPlotConfig.ConfigName
.StandardScale = oPlotConfig.StandardScale
.PlotRotation = oPlotConfig.PlotRotation
.ShowPlotStyles = oPlotConfig.ShowPlotStyles
.ScaleLineweights = oPlotConfig.ScaleLineweights
.PlotWithPlotStyles = oPlotConfig.PlotWithPlotStyles
.StyleSheet = oPlotConfig.StyleSheet
End With
oPlotConfig.Delete
End Sub

 

I think it's looking for your pc3 file "TempPC.pc3"
maybe check the support paths on the machine where you get that error?

 

I was under the impression that I'm CREATING a plot configuration here, not
looking for one. Can anyone verify this for me?

 

Its a little confusing at first, but I think Mark was referring to the pc3
file referenced by the ConfigName property, not the PlotConfiguration
object.

 

oops
:--)