Continue to Site

Welcome to MCAD Central

Join our MCAD Central community forums, the largest resource for MCAD (Mechanical Computer-Aided Design) professionals, including files, forums, jobs, articles, calendar, and more.

Change Style of View

Redox

New member
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
 

Sponsor

Articles From 3DCAD World

Back
Top