Link Display States to Configurations Example(VB.NET)
This example shows how to link and unlink display states to and from configurations.
' ---------------------------------------------
' Preconditions:
' 1. Open:
' install_dir\samples\tutorial\pdmworks\speaker.sldasm
' 2. Click the ConfigurationManager tab on the Manager Pane.
' 3. Open the Immediate window.
'
' Postconditions:
' 1. Follow the instructions in the macro at
' each Stop statement.
' 2. Assembly document closes without saving
' any changes.
'-----------------------------------------------
Imports
SolidWorks.Interop.sldworks
Imports
SolidWorks.Interop.swconst
Imports
System.Runtime.InteropServices
Imports
System.Diagnostics
Imports
System
Partial
Class
SolidWorksMacro
Public
Sub Main()
Dim
swModel As
ModelDoc2
Dim
swConfigMgr As
ConfigurationManager
Dim
assemblyName As
String
swModel = swApp.ActiveDoc
Debug.Print("")
Stop
'
1. Examine the ConfigurationManager tab to verify:
' a.
"Link Display States to Configurations" check box
'
is selected.
' b.
Two display states are linked to the active
'
configuration.
'
2. Click the Continue button in the IDE.
swConfigMgr = swModel.ConfigurationManager
swConfigMgr.LinkDisplayStatesToConfigurations =
False
Debug.Print("Are
display states linked to configurations? "
& swConfigMgr.LinkDisplayStatesToConfigurations)
If
Not
swConfigMgr.LinkDisplayStatesToConfigurations
Then
Debug.Print("All
display states are available to the active configuration.")
End
If
Stop
'
1. Examine the ConfigurationManager tab again to verify:
' a.
"Link Display States to Configurations" check box
'
is not selected.
' b.
All display states are available to the active configuration.
'
2. Click the Continue button.
swConfigMgr.LinkDisplayStatesToConfigurations
= True
Debug.Print("Are
display states linked configurations? " &
swConfigMgr.LinkDisplayStatesToConfigurations)
If
swConfigMgr.LinkDisplayStatesToConfigurations
Then
Debug.Print("All
display states are not available to the active configuration.")
End
If
Stop
'
1. Examine the ConfigurationManager tab again to verify:
' a.
"Link Display States to Configurations" check box
'
is selected.
' b.
Only two display states are linked to the active configuration.
'
2. Click the Continue button.
assemblyName = swModel.GetTitle
swApp.QuitDoc(assemblyName)
End
Sub
'''
<summary>
'''
The SldWorks swApp variable is pre-assigned for you.
'''
</summary>
Public
swApp As
SldWorks
End
Class