topic Re: Invalid Input when using SetCurrentStyleSheet in .NET Forum

Invalid Input when using SetCurrentStyleSheet

Anonymous — Tue, 11 Jan 2011 23:02:04 GMT

Hi,

I'm trying to get plotting to work.

I'm using the Model Space example and just adding the row

"acPlSetVdr.SetCurrentStyleSheet(acPlSet, "acad.ctb")"

I always end up with Invalid Input at that row.. I have tried to add the whole path to acad.ctb but it did not change anything..

Does anyone have any idea why this wont work?

Regards

Rikard

Re: Invalid Input when using SetCurrentStyleSheet

Anonymous — Fri, 14 Jan 2011 16:05:37 GMT

I found the solution myself.. It had something to do with the order in the code..

/Rikard

Re: Invalid Input when using SetCurrentStyleSheet

andy62 — Thu, 02 Oct 2014 09:04:38 GMT

@Anonymous wrote:

I found the solution myself.. It had something to do with the order in the code..

/Rikard

Hi Rikard

I keep getting the error eInvalidInput, with the command SetCurrentStyleSheet
Can you please explain your solution?
thanks
andrea

Re: Invalid Input when using SetCurrentStyleSheet

rikard.nilsson — Thu, 02 Oct 2014 13:15:17 GMT

Hi,

This was a long time ago.. I can't really figure out what I did.

But here is a code written in VB.NET that I know works..

Maybe that will help you to solve your problem if there is anyting when it comes to the order of rows...

/Rikard

'*****************************************

Dim layMgr As LayoutManager = LayoutManager.Current
Dim loObjId As ObjectId = layMgr.GetLayoutId(layMgr.CurrentLayout)
Dim lo As Layout = DirectCast(tr.GetObject(loObjId, OpenMode.ForRead), Layout)
Dim ps As New PlotSettings(lo.ModelType)
ps.CopyFrom(lo)
Dim pi As New PlotInfo()
pi.Layout = loObjId
Dim psv As PlotSettingsValidator = Autodesk.AutoCAD.DatabaseServices.PlotSettingsValidator.Current

MediaName = getInternalName(DeviceName, MediaName)

psv.SetPlotConfigurationName(ps, DeviceName, MediaName)
psv.RefreshLists(ps)
psv.SetPlotType(ps, Autodesk.AutoCAD.DatabaseServices.PlotType.Extents)
psv.SetUseStandardScale(ps, True)
psv.SetStdScaleType(ps, StdScaleType.ScaleToFit)

If ClickedPlotSize <> CurrentSheetSize Then
Dim msg As String
Dim title As String
Dim style As MsgBoxStyle
Dim response As MsgBoxResult
msg = "Do you want to use a CTB-file with thinner lines?" ' Define message.
style = MsgBoxStyle.YesNo
title = "Test" ' Define title.
' Display message.
response = MsgBox(msg, style, title)
If response = MsgBoxResult.Yes Then ' User chose Yes.
PlotStyleTable = GetVauleFromArray("CtbThinnerLinesName")
End If

End If

psv.SetCurrentStyleSheet(ps, PlotStyleTable)
psv.SetPlotRotation(ps, Plotrotation)

psv.SetPlotCentered(ps, True)

Re: Invalid Input when using SetCurrentStyleSheet

andy62 — Thu, 02 Oct 2014 14:04:01 GMT

@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

Thank you very much Rikard!

But, I found a Jacco's solution "RefreshLists", just now

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

andy