Add Derived Configurations Example (VBA)
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.
'
' NOTE: IConfigurationManager::AddConfiguration returns
' a
null if the new configuration already exists.
'----------------------------------------------
Sub main()
Dim
swApp As
SldWorks.SldWorks
Dim
swModel As
SldWorks.ModelDoc2
Dim
vConfigNameArr As
Variant
Dim
vConfigName As
Variant
Dim
swActiveConf As
SldWorks.Configuration
Dim
swConf As
SldWorks.Configuration
Dim
swConfMgr As
SldWorks.ConfigurationManager
Dim
swDerivConf As
SldWorks.Configuration
Dim
bRet As
Boolean
Set
swApp = Application.SldWorks
Set
swModel = swApp.ActiveDoc
Set
swConfMgr = swModel.ConfigurationManager
Set
swConfig = swConfMgr.ActiveConfiguration
vConfigNameArr
= swModel.GetConfigurationNames
For
Each vConfigName In vConfigNameArr
Set
swConf = swModel.GetConfigurationByName(vConfigName)
'
Do not assert; will be NULL if (derived) configuration already exists
Set
swDerivConf = swConfMgr.AddConfiguration(
_
swConf.Name
+ " Derived", _
"Derived
comment", _
"Derived
alternate name", _
1,
_
swConf.Name,
_
"Derived
description")
Next
End Sub
'----------------------------------------------