Imports System.IO
Imports System.Runtime.InteropServices

Module Example
    <STAThread()> _
    Sub Main()
        Dim objApplication As SolidEdgeFramework.Application = Nothing
        Dim objPartDocument As SolidEdgePart.PartDocument = Nothing
        Dim objStudyOwner As SolidEdgePart.StudyOwner = Nothing
        Dim objStudy As SolidEdgePart.Study = Nothing
        Dim objConnectorOwner As SolidEdgePart.ConnectorOwner = Nothing
        Dim objConnector As SolidEdgePart.FEAConnector = Nothing
        Dim eConnectorType As SolidEdgePart.FEAConnectorTypeEnum_Auto
        Dim dConnectorValue As Double = 100
        Dim dSearchDistValue As Double = 0.000091
        Dim dMinSearchDistValue As Double = 0.01
        Dim dPenaltyValue As Double = 0.0
        Dim dConnectorPosX As Double = 1.0
        Dim dConnectorPosY As Double = 1.0
        Dim dConnectorPosZ As Double = 1.0
        Dim ColorConnectorSymbol As UInt32 = 16769024
        Dim dSpacingFactor As Double = 0.145
        Dim dSizeFactor As Double = 0.155
        Dim dwConnectorProps As UInt32 = 0
        Dim dConnectorSymSpacing As Double = 0.0
        Dim dConnectorSymSize As Double = 0.0
        Dim ePenetrationType As SolidEdgePart.FEAInitialPenetrationTypeEnum_Auto
        Dim objMasterFaceArray(1) As SolidEdgeGeometry.Face
        Dim objSlaveFaceArray(1) As SolidEdgeGeometry.Face

        Try
            OleMessageFilter.Register()

            ' Connect to Solid Edge
            objApplication = Marshal.GetActiveObject("SolidEdge.Application")
            objPartDocument = objApplication.ActiveDocument

            objStudyOwner = objPartDocument.StudyOwner
            objStudy = objStudyOwner.Item(1)
            objStudy.GetConnectorOwner(objConnectorOwner)
            objConnector = objConnectorOwner.Item(1)

            eConnectorType = SolidEdgePart.FEAConnectorTypeEnum_Auto.eConnectorTypeGlue_Auto
            ePenetrationType = SolidEdgePart.FEAInitialPenetrationTypeEnum_Auto.eCalculatedType_Auto

            ' Populate objMasterFaceArray & objSlaveFaceArray

            objConnectorOwner.EditConnector(objMasterFaceArray, _
                                            objSlaveFaceArray, _
                                            eConnectorType, _
                                            dConnectorValue, _
                                            dSearchDistValue, _
                                            dMinSearchDistValue, _
                                            dPenaltyValue, _
                                            dConnectorPosX, _
                                            dConnectorPosY, _
                                            dConnectorPosZ, _
                                            ColorConnectorSymbol, _
                                            dSpacingFactor, _
                                            dSizeFactor, _
                                            dwConnectorProps, _
                                            dConnectorSymSpacing, _
                                            dConnectorSymSize, _
                                            ePenetrationType, _
                                            objConnector)
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        Finally
            OleMessageFilter.Revoke()
        End Try
    End Sub
End Module