BIM Create pipe connection in inventor ilogic

[suresh.r.ext]

Hi 

Im posting a code here, im trying to set BIM pipe  as like reference snip . can somebody help me to solve this problem.

Sub Main
    Dim osm As AssemblyDocument = TryCast(ThisApplication.ActiveDocument, AssemblyDocument)

    If osm IsNot Nothing Then
        Dim oBIM As BIMComponent = osm.ComponentDefinition.BIMComponent
        Dim oBimConnectors As BIMConnectors = oBIM.Connectors

        ' Prompt the user to select circular edges
        Dim collGeo As ObjectCollection = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kAllCircularEntities, "Select circular edges")
        
        ' Check if the user selected any edges
        If collGeo.Count > 0 Then
            ' Assuming you have a defined oBimConnDef somewhere in your code.
            ' Correct this assumption based on your actual code.
            Dim oBimConnDefNew As BIMConnectorDefinition = oBIM.Connectors.CreatePipeConnectorDefinition(collGeo, BIMConnectorShapeEnum.kCircularShapeConnector)

            MsgBox("Connector type: " & oBimConnDefNew.ConnectorType.ToString())

            ' Adding the newly created connector definition to the BIM component's connectors.
            oBimConnectors.Add(oBimConnDefNew)
        Else
            MsgBox("No circular edges selected.")
        End If
    Else
        MsgBox("Active document is not an assembly document.")
    End If
End Sub