Add Method

Description

Adds an occurrence of the referenced object.

Syntax

Visual Basic
Public Function Add( _ ByVal Name As String, _ ByVal Parent As String _ ) As FillStyle

Parameters

Name: Specifies the name for the new style.
Parent: Specifies the name of an existing style on which the new style is to be based.

Example

Example (VB.NET)

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
        Dim objDoc As SolidEdgeDraft.DraftDocument
        
        Dim objFillStyles As SolidEdgeFramework.FillStyles
        Dim objFillStyle As SolidEdgeFramework.FillStyle
        
        
        Try

            objApp = Marshal.GetActiveObject("SolidEdge.Application")
            objDoc = objApp.ActiveDocument
            
            'Get the FillStyles object
            objFillStyles = objDoc.FillStyles
            'Add new FillStyle to the collection
            objFillStyle = objFillStyles.Add("FillStyle1", "Normal")

            ' USER DISPLAY
            ' Release objects
            objApp = Nothing
            objDoc = Nothing
            objFillStyles = Nothing
            objFillStyle = Nothing
   
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub
End Class