set style sheet (plot style table) gives an error

[Anonymous]

Hello,

When I try to change the plotstyle table :

            If acDerden = True Then

                acPlSetVdr.SetCurrentStyleSheet(acPlSet, "Dunne lijnen.ctb")

            Else

                acPlSetVdr.SetCurrentStyleSheet(acPlSet, "HP DesignJet 500.ctb")

            End If

I get an error:

************** Exception Text **************
Autodesk.AutoCAD.Runtime.Exception: eInvalidInput
   at Autodesk.AutoCAD.DatabaseServices.PlotSettingsValidator.SetCurrentStyleSheet(PlotSettings plotSet, String styleSheetName)
   at autocad_app.vbTekening.Qplot()

But when I change the plot style table manualy (with plot, assign plotstyle to layout) then the error does not exist any

more.

[Anonymous]

The same problem by me. Anyone has a solution? Please.

[fieldguy]

Are you using acPlSet.CopyFrom("whatever layout you are plotting")?  According to Kean Walmsley (http://through-the-interface.typepad.com/through_the_interface/plotting/),  "We need a PlotSettings object based on the layout settings which we then customize".

If your ctb file names are correct and the files exist in the location specified in the acad environment (Plot Style Table Search Path) then it should work.  You can also try the plot settings in the Autocad dialog and "Apply to Layout".  Then try your code again. 

[Anonymous]

I found the solution by myself.

Before you change the currentstylesheet you must refresh the plotsettings

            acPlSetVdr.RefreshLists(acPlSet)  --> this works for me
            If acDerden = True Then
                acPlSetVdr.SetCurrentStyleSheet(acPlSet, "Dunne lijnen.ctb")
            Else
                acPlSetVdr.SetCurrentStyleSheet(acPlSet, "HP DesignJet 500.ctb")
            End If

Jacco

[Anonymous]

Thank you for your answer. I've missed this method. I've used GetPlotStyleSheet instead, it works as well.

[andy62 · Accepted solution]

---

@Anonymous wrote:

I found the solution by myself.

Before you change the currentstylesheet you must refresh the plotsettings

            acPlSetVdr.RefreshLists(acPlSet)  --> this works for me
            If acDerden = True Then
                acPlSetVdr.SetCurrentStyleSheet(acPlSet, "Dunne lijnen.ctb")
            Else
                acPlSetVdr.SetCurrentStyleSheet(acPlSet, "HP DesignJet 500.ctb")
            End If

Jacco

---

Jacco,

Thank you

it works also for me.

andy

[ken]

Jdsmit,

Thank you so much! 

My life is worth living again!

I've been struggling thru updating a routine.

Ken

[Anonymous]

This should be picked as the accepted answer. Solved the problem for me.