AddDerivedConfig Method

Description

Create configuration from multiple config and zones.

Syntax

Visual Basic
Public Function AddDerivedConfig( _ ByVal nConfig As Integer, _ ByVal nZones As Integer, _ ByVal nQueries As Integer, _ ByRef ppsaConfigList As Variant, _ ByRef ppsaZoneList As Variant, _ ByRef ppsaQueryList As Variant, _ ByVal bstrNewConfigName As String _ ) As Configuration

Visual Basic

Public Function AddDerivedConfig( _
   ByVal nConfig As Integer, _
   ByVal nZones As Integer, _
   ByVal nQueries As Integer, _
   ByRef ppsaConfigList As Variant, _
   ByRef ppsaZoneList As Variant, _
   ByRef ppsaQueryList As Variant, _
   ByVal bstrNewConfigName As String _
) As Configuration

Parameters

nConfig: Number of Config
nZones: Number of zones
nQueries: Number of queries (Not Implemented)
ppsaConfigList: Actual confing list
ppsaZoneList: Actual Zone List
ppsaQueryList: Actual Query List
bstrNewConfigName: Name of the config for create

Example

Example (VB.NET)

Imports System.IO
Imports System.Runtime.InteropServices

Module Example
    <STAThread()> _
    Sub Main()
        Dim objApplication As SolidEdgeFramework.Application = Nothing
        Dim objAssemblyDocument As SolidEdgeAssembly.AssemblyDocument = Nothing
        Dim objConfigurations As SolidEdgeAssembly.Configurations = Nothing
        Dim objConfiguration As SolidEdgeAssembly.Configuration = Nothing
        Dim sConfigName As String
        Dim aConfigList(1) As Object
        Dim objMissing As Object

        Try
            OleMessageFilter.Register()

            ' Start Solid Edge
            objApplication = Marshal.GetActiveObject("SolidEdge.Application")
            objAssemblyDocument = objApplication.ActiveDocument
            objConfigurations = objAssemblyDocument.Configurations

            sConfigName = "NewConfig"
            objMissing = System.Reflection.Missing.Value

            aConfigList(0) = "1"
            aConfigList(1) = "2"

            ' Create new derived configuration.
            objConfiguration = objConfigurations.AddDerivedConfig(aConfigList.Length, 0, 0, aConfigList, objMissing, objMissing, sConfigName)

            ' Apply new configuration.
            objConfiguration.Apply()
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        Finally
            OleMessageFilter.Revoke()
        End Try
    End Sub
End Module