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