How to count the parameters below GeoSet

[Sidtha]

Hi,

I need to count the parameters below the GeoSet using vba
In geoset we have multiple UDF's from UDF's need to count how many parameters are there inside each UDF.
For the reference please see below pictures.

 

[LWolf]

Use:
dim oParamsInFeature : set oParamsInFeature = oPart.Parameters.Sublist(myObject, false)

regards,
LWolf

 

[Sidtha]

Hi LWolf,

Thank your for help, below is my code to extract all the parameters, but i am unable to get extactly how many parameters in each UDF.
pelase help me to get it

Dim oCurrentTreeNodePart
Dim MBod
Set oCurrentTreeNodePart = oCurrentTreeNode.ReferenceProduct.Parent.Part
'Debug.Print oCurrentTreeNodePart.Name
Set mBody = oCurrentTreeNodePart.MainBody
'Debug.Print mBody.Name
Set objParameters = oCurrentTreeNodePart.Parameters
' Loop on parameters to retrieve them
For j = 1 To objParameters.Count
Set objParameter = objParameters.Item(j)
strParmName = objParameter.Name
'Debug.Print strParmName
Application.StatusBar = strParmName

strParmValue = objParameter.ValueAsString
'Debug.Print strParmValue
'Debug.Print strParmName & " = " & strParmValue

Next