Imports System.Runtime.InteropServices
Module Module1
<STAThread()> _
Sub Main()
Dim objApplication As SolidEdgeFramework.Application = Nothing
Dim objAslyDocument As SolidEdgeAssembly.AssemblyDocument = Nothing
Dim Pipes As SolidEdgeAssembly.Pipes
Dim Pipe As SolidEdgeAssembly.Pipe
Dim CutLengths(10) As Double
Dim PipeSegments(10) As Object
Dim PipeFittings(10) As Object
Dim PipeGeometrySegments(0) As Object
Dim lNum As Integer
Dim lFittingType(10) As SolidEdgeAssembly.PipeFittingTypeConstants
Try
' Connect to Solid Edge
objApplication = Marshal.GetActiveObject("SolidEdge.Application")
objAslyDocument = objApplication.ActiveDocument
Catch ex As Exception
Console.WriteLine(ex.Message)
Finally
Pipes = objAslyDocument.Pipes
Pipe = Pipes.Item(1)
'each of these PipeSegments are Assembly Occurrence objects.
Call Pipe.GetPipeSegments(lNum, PipeSegments)
'each of these PipeFittings are Assembly Occurrence objects.
Call Pipe.GetPipeFittings(lNum, PipeFittings, lFittingType)
'each of the PipeGeometrySegments are either Assembly LineSegments or Assembly ‘ArcSegments
Call Pipe.GetPipeLengths(lNum, PipeSegments, PipeGeometrySegments, CutLengths)
End Try
End Sub
End Module