GetListOfSavedSettings Method

Description

Gets list of available saved settings.

Syntax

Visual Basic
Public Sub GetListOfSavedSettings( _ ByRef NumSavedSettings As Long, _ ByRef ListOfSavedSettings() As String _ )

Parameters

NumSavedSettings: Number of saved settings.
ListOfSavedSettings: Array of saved settings as string.

Remarks

A saved settings from "GetListOfSavedSettings" can be used as input the PartsLists Add() and AddEx() APIs. The new parts list will have the properties defined in the chosen saved settings.
As well as for existing PartsList we can use "SavedSettings" API to apply settings to that PartsList.

Example

Example (VB.NET)

Imports System.IO
Imports System.Runtime.InteropServices
Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim objApp As SolidEdgeFramework.Application = Nothing
        Dim objDoc As SolidEdgeDraft.DraftDocument = Nothing
        Dim objSheets As SolidEdgeDraft.Sheets = Nothing
        Dim objSheet As SolidEdgeDraft.Sheet = Nothing
        Dim objDrawingViews As SolidEdgeDraft.DrawingViews = Nothing
        Dim objDrawingView As SolidEdgeDraft.DrawingView = Nothing
        Dim objPartsLists As SolidEdgeDraft.PartsLists = Nothing
        Dim objPartsList As SolidEdgeDraft.PartsList = Nothing
        Dim objModelLinks As SolidEdgeDraft.ModelLinks = Nothing
        Dim objModelLink As SolidEdgeDraft.ModelLink = Nothing
        Dim objFolder As DirectoryInfo
        Dim objFileInfo As FileInfo
        Dim count As Integer
        Dim ListOfSavedSettings(10) As String

        Try
            objApp = Marshal.GetActiveObject("SolidEdge.Application")

            objDoc = objApp.Documents.Add("SolidEdge.DraftDocument")
            objFolder = GetTrainingFolder()
            objFileInfo = New FileInfo(Path.Combine(objFolder.FullName, "carrier.asm"))

            objModelLinks = objDoc.ModelLinks
            objModelLink = objModelLinks.Add(objFileInfo.FullName)
            objSheets = objDoc.Sheets
            objSheet = objDoc.Sheets.Item(1)
            objDrawingViews = objSheet.DrawingViews
            objDrawingView = objDrawingViews.AddAssemblyView(objModelLink, SolidEdgeDraft.ViewOrientationConstants.igBackView, 1.0, 0.25, 0.25, SolidEdgeDraft.AssemblyDrawingViewTypeConstants.seAssemblySimplifiedView)
            objPartsLists = objDoc.PartsLists

            objPartsList = objPartsLists.AddEx(objDrawingView, 0, "ANSI", 1, 1)
            objPartsList.GetListOfSavedSettings(count, ListOfSavedSettings)
            objPartsList.SavedSettings = ListOfSavedSettings(1)
            
            objSheet.Activate()
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

    End Sub
    Function GetTrainingFolder() As DirectoryInfo
        Dim objInstallData As SEInstallDataLib.SEInstallData = Nothing
        Dim objInstallFolder As DirectoryInfo = Nothing
        Dim objTrainingFolder As DirectoryInfo = Nothing

        Try
            objInstallData = New SEInstallDataLib.SEInstallData
            objInstallFolder = New DirectoryInfo(objInstallData.GetInstalledPath())
            objTrainingFolder = New DirectoryInfo(Path.Combine(objInstallFolder.Parent.FullName, "Training"))
        Catch
        Finally
            If Not (objInstallData Is Nothing) Then
                Marshal.FinalReleaseComObject(objInstallData)
                objInstallData = Nothing
            End If
        End Try

        Return objTrainingFolder
    End Function

End Class