Add Derived Configurations Example (VB.NET)
This example shows how to add a derived configuration for each existing
configuration.
'---------------------------------------------------------------------------
' Preconditions: Part or assembly is open.
'
' Postconditions: For each configuration, a derived configuration is
' added and selected.
'
' NOTE: IConfigurationManager::AddConfiguration returns
' a null if the new configuration already exists.
'---------------------------------------------------------------------------
Imports
SolidWorks.Interop.sldworks
Imports
SolidWorks.Interop.swconst
Imports
System.Runtime.InteropServices
Imports
System
Partial
Class
SolidWorksMacro
Sub
main()
Dim
swModel As
ModelDoc2
Dim
vConfigNameArr As
Object
Dim
vConfigName As
Object
Dim
swConf As
Configuration
Dim
swConfMgr As
ConfigurationManager
Dim
swDerivConf As
Configuration
Dim
bRet As
Boolean
swModel = swApp.ActiveDoc
swConfMgr = swModel.ConfigurationManager
swConf = swConfMgr.ActiveConfiguration
vConfigNameArr = swModel.GetConfigurationNames
For
Each
vConfigName In
vConfigNameArr
swConf = swModel.GetConfigurationByName(vConfigName)
' Null if (derived)
configuration already exists
swDerivConf = swConfMgr.AddConfiguration(swConf.Name
+ " Derived",
"Derived comment",
"Derived alternate name",
1, swConf.Name, "Derived description")
bRet = swDerivConf.Select2(True,
Nothing)
Next
End
Sub
Public
swApp As
SldWorks
End
Class