Hello,
i have the problem to change the Style of a view, but with the following code nothing happens:
Anybody an idea
Many thanks
Sebastian
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