Sets the display mode of this drawing view.
.NET Syntax
Visual Basic (Declaration) | |
---|
Function SetDisplayMode4( _
ByVal UseParent As System.Boolean, _
ByVal Mode As System.Integer, _
ByVal Faceted As System.Boolean, _
ByVal Edges As System.Boolean, _
ByVal CThreadHighQuality As System.Boolean _
) As System.Boolean |
Visual Basic (Usage) | |
---|
Dim instance As IView
Dim UseParent As System.Boolean
Dim Mode As System.Integer
Dim Faceted As System.Boolean
Dim Edges As System.Boolean
Dim CThreadHighQuality As System.Boolean
Dim value As System.Boolean
value = instance.SetDisplayMode4(UseParent, Mode, Faceted, Edges, CThreadHighQuality) |
Parameters
- UseParent
True to use the parent's settings, false to use this drawing view's local settings (see Remarks)
- Mode
- Display mode of the drawing view as defined in swDisplayMode_e (see Remarks)
- Faceted
- True for draft quality, false for precision quality (see Remarks)
- Edges
- True if edges are displayed when this view is in shaded mode, false if not
- CThreadHighQuality
- True for precision quality cosmetic threads, false for draft quality
Return Value
True if the display mode is reset, false if not
Example
'VBA
'-------------------------------------
' Preconditions:
' 1. Open a drawing and select a drawing view.
' 2. Open the Immediate window.
'
' Postconditions:
' 1. Gets the selected view's current display mode properties.
' 2. Resets the display mode properties.
' 3. Gets the new display mode properties.
' 4. Examine the Immediate window.
'--------------------------------------
Option Explicit
Sub main()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swDraw As SldWorks.DrawingDoc
Dim swSheet As SldWorks.Sheet
Dim swView As SldWorks.View
Dim bRet As Boolean
Dim swSelectionMgr As SldWorks.SelectionMgr
Set swApp = SolidWorks.SldWorks
Set swModel = swApp.ActiveDoc
Set swDraw = swModel
Set swSheet = swDraw.GetCurrentSheet
Set swSelectionMgr = swModel.SelectionManager
Set swView = swSelectionMgr.GetSelectedObject6(1, -1)
Debug.Print "=====Current Display Mode======"
Debug.Print ""
Dim UseParentProp As Boolean
UseParentProp = swView.GetUseParentDisplayMode
Debug.Print "Using parent view's display mode? " & UseParentProp
Dim displayMode As Long
displayMode = swView.GetDisplayMode2
Debug.Print "Current display mode as defined by swDisplayMode_e: " & displayMode
Dim Faceted As Boolean
Faceted = swView.GetFacettedHlrDisplay
Debug.Print "Display faceted?: " & Faceted
Dim EdgesMode As Boolean
EdgesMode = swView.GetDisplayEdgesInShadedMode
Debug.Print "Display edges when the view is in shaded mode? " & EdgesMode
Dim cThreadQuality As Boolean
cThreadQuality = swView.GetCThreadQuality
Debug.Print "Precision quality for cosmetic threads? " & swView.GetCThreadQuality
swView.SetDisplayMode4 False, 3, True, False, True
Debug.Print "=====After Re-setting Display Mode======"
Debug.Print ""
Debug.Print "Using parent view's display mode? " & swView.GetUseParentDisplayMode
Debug.Print "Current display mode as defined by swDisplayMode_e: " & swView.GetDisplayMode2
Debug.Print "Display faceted? " & swView.GetFacettedHlrDisplay
Debug.Print "Display edges when the view is in shaded mode? " & swView.GetDisplayEdgesInShadedMode
Debug.Print "Precision quality for cosmetic threads? " & swView.GetCThreadQuality
End Sub
Example
Remarks
See Also
Availability
SOLIDWORKS 2021 FCS, Revision Number 29