Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations cowski on being selected by the Eng-Tips community for having the most helpful posts in the forums last week. Way to Go!

Change Style of View

  • Thread starter Thread starter Redox
  • Start date Start date
R

Redox

Guest
Hello,

i have the problem to change the Style of a view, but with the following code nothing happens:

Code:
    Public Sub setViewStyleNoHidden(ByRef drawing As IpfcDrawing)

        Dim view2Ds As IpfcView2Ds
        Dim view2D As IpfcView2D
        Dim viewDisplay As IpfcViewDisplay

        Try

            Exit Sub

            view2Ds = drawing.List2DViews
            For i As Integer = 0 To view2Ds.Count - 1
                view2D = view2Ds.Item(i)

                viewDisplay = view2D.Display

                If view2D.Display.Style = EpfcDisplayStyle.EpfcDISPSTYLE_SHADED Or view2D.Display.Style = EpfcDisplayStyle.EpfcDISPSTYLE_SHADED_WITH_EDGES Then
                    view2D.Display.Style = EpfcDisplayStyle.EpfcDISPSTYLE_NO_HIDDEN
                    view2D.Regenerate()
                End If

            Next
        Catch ex As Exception
            frmError.NewError(ex, MethodInfo.GetCurrentMethod().DeclaringType.Name)
        Finally
        End Try

    End Sub

Anybody an idea

Many thanks
Sebastian
 
sry double post
 

Part and Inventory Search

Sponsor

Back
Top