Guten Morgen Bobe,
ich habe mir dieses Makro mal geholt um nicht dauernd in die Anwendungsoptionen gehen zu müssen.
Public Sub Displaymode()
Select Case ThisApplication.ActiveView.Displaymode
Dim oApp As Inventor.Application
Case Inventor.DisplayModeEnum.kShadedRendering
If Not (ThisApplication.DisplayOptions.ShadedDisplayOptions.EdgeDisplayForActiveComponents) Then
ThisApplication.DisplayOptions.ShadedDisplayOptions.EdgeDisplayForActiveComponents = True
Else
ThisApplication.ActiveView.Displaymode = kHiddenEdgeRendering
End If
Case Inventor.DisplayModeEnum.kHiddenEdgeRendering
ThisApplication.ActiveView.Displaymode = kWireframeRendering
Case Inventor.DisplayModeEnum.kWireframeRendering
ThisApplication.ActiveView.Displaymode = kShadedRendering
ThisApplication.DisplayOptions.ShadedDisplayOptions.EdgeDisplayForActiveComponents = False
End Select
ThisApplication.ActiveView.Update
End Sub
------------------
Gruß Dirk
Im großen Garten der Geometrie kann sich jeder nach seinem Geschmack einen Strauß pflücken.
(David Hilbert)
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP