Curve Rule

[kr7530]

In the below code edges are selected by the user clicking on each individual edge. Can I add something to the code that would allow the user to have access to the "Curve Rule" pull down? Users are asking for the option to use tangent curve and connected curve.

Thanks,
Kevin

Function select_edges(ByRef obj() As NXObject)

Dim ui As UI = ui.GetUI()
Dim message As String = "Select a circular object"
Dim title As String = "Selection"
Dim selectionMask_array(0) As Selection.MaskTriple

selectionMask_array(0).Type = UFConstants.UF_solid_type
selectionMask_array(0).Subtype = UFConstants.UF_solid_edge_subtype
selectionMask_array(0).SolidBodySubtype = UFConstants.UF_UI_SEL_FEATURE_ANY_EDGE



Dim resp As Selection.Response = _
ui.SelectionManager.SelectObjects(message, title, _
Selection.SelectionScope.AnyInAssembly, _
Selection.SelectionAction.ClearAndEnableSpecific, _
False, False, selectionMask_array, obj)

If resp = Selection.Response.ObjectSelected Or _
resp = Selection.Response.ObjectSelectedByName Or _
resp = Selection.Response.Ok Then
return Selection.Response.Ok
Else
return Selection.Response.Cancel
End If

End Function