Hallo, ich habe ein bisschen Code, der alle Ansichten wieder in "hohe Qualität" bringt.
Wenn es hilft.
'met les vues en haute qualité
Dim swView As SldWorks.View
Dim bRet As Boolean
Set swApp = Application.SldWorks
Set swDraw = swApp.ActiveDoc
Set swSheet = swDraw.GetCurrentSheet
Set swView = swDraw.GetFirstView
While Not swView Is Nothing
If swSheet.GetName <> swView.Name Then
' Does not work on drawing sheet, which IDrawingDoc::GetFirstView returns
bRet = swView.SetDisplayMode3(False, swView.GetDisplayMode2, False, True): Debug.Assert bRet
End If
Set swView = swView.GetNextView
Wend