Add Method

Description

Adds a section view to the collection.

Syntax

Visual Basic
Public Function Add( _ ByVal nNumProfiles As Long, _ ByRef pProfiles() As Unknown, _ ByVal szCaption As String, _ ByVal dExtent As Double, _ ByVal eExtentSide As SectionViewExtentSide, _ ByVal eProfileSide As SectionViewProfileSide, _ ByVal bCutHardwareParts As Long _ ) As Object

Visual Basic

Public Function Add( _
   ByVal nNumProfiles As Long, _
   ByRef pProfiles() As Unknown, _
   ByVal szCaption As String, _
   ByVal dExtent As Double, _
   ByVal eExtentSide As SectionViewExtentSide, _
   ByVal eProfileSide As SectionViewProfileSide, _
   ByVal bCutHardwareParts As Long _
) As Object

Parameters

nNumProfiles

Number of profiles.

pProfiles

Array of profiles.

szCaption

Caption for view.

dExtent

eExtentSide

Value	Description
igFiniteSymmetricExtent	Finite symmetric extent side.
igInfiniteLeftExtent	Infinite left extent side.
igInfiniteRightExtent	Infinite right extent side.
igLeftExtent	Left extent side.
igRightExtent	Right extent side.
igThroughAllExtent	Through all extent side.

eProfileSide

Value	Description
igInsideProfileSide	Inside profile side.
igLeftProfileSide	Left profile side.
igOutsideProfileSide	Outside profile side.
igRightProfileSide	Right profile side.

bCutHardwareParts

Example

Example (VB.NET)

Private Sub btnSection_Click(sender As System.Object, e As System.EventArgs) Handles btnPMIModelSection.Click
        Dim objApplication As SolidEdgeFramework.Application = Nothing
        Dim asmDoc As SolidEdgeAssembly.AssemblyDocument = Nothing
        Dim layout As SolidEdgeAssembly.Layout = Nothing
        Dim profileArray(0 To 0) As SolidEdgePart.Profile

        Try
            'Create/get the application with specific settings PMIModelView 
            objApplication = Marshal.GetActiveObject("SolidEdge.Application")
            asmDoc = objApplication.ActiveDocument
            layout = asmDoc.Layouts.Add(asmDoc.AsmRefPlanes.Item(3))
            profileArray(0) = layout.Profile

            Call profileArray(0).Lines2d.AddBy2Points(0, -1, 0, 1)

            Dim sectionViews As SolidEdgeFramework.SectionViews = asmDoc.SectionViews
            Dim sectionView As SolidEdgeFramework.SectionView = sectionViews.Add(1, profileArray, "test", 0.05, SolidEdgeFramework.SectionViewExtentSide.igLeftExtent, SolidEdgeFramework.SectionViewProfileSide.igRightProfileSide, False)

            Call sectionView.Show(False)
            Call sectionView.Show(True)

            Dim caption As String = sectionView.Caption

            sectionView.Caption = "Caption"

            Call sectionView.Delete()
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub