Solid Edge Assembly Type Library > StructuralFrame Object : AssociateLegacyFrameToCrossSection Method |
Visual Basic |
---|
Public Sub AssociateLegacyFrameToCrossSection() |
Imports System.IO Imports System.Runtime.InteropServices Module Example <STAThread()> _ Sub Main() Dim objApplication As SolidEdgeFramework.Application = Nothing Dim objAssemblyDocument As SolidEdgeAssembly.AssemblyDocument = Nothing Dim objStructuralFrames As SolidEdgeAssembly.StructuralFrames = Nothing Dim objStructuralFrame As SolidEdgeAssembly.StructuralFrame = Nothing Try OleMessageFilter.Register() objApplication = Marshal.GetActiveObject("SolidEdge.Application") objAssemblyDocument = objApplication.ActiveDocument objStructuralFrames = objAssemblyDocument.StructuralFrames ' Loop through all of the structural frames. For Each objStructuralFrame In objStructuralFrames ' Make the legacy frame associative to cross section part files. objStructuralFrame.AssociateLegacyFrameToCrossSection() Next Catch ex As Exception Console.WriteLine(ex.Message) Finally OleMessageFilter.Revoke() End Try End Sub End Module