## EnumElements

### Introduced

v1.0

### Description

Returns the list of elements above or below a given element in the scene hierarchy.

### Scripting Syntax

    oReturn = EnumElements( InputObj, [EnumChildren], [Capabilities] );

### Return Value

XSICollection

### Parameters

Parameter | Type | Description
--- | --- | ---
InputObj | String | The object to enumerate.
EnumChildren | Boolean | True to enumerate the children, FALSE to enumerate the parents. Default Value: TRUE
Capabilities | Integer | Internal use only.

### Examples

#### VBScript Example

    LogMessage "Enumerating children......................", 8
    RecursiveEnum "Camera_Interest.kine.local", TRUE, TRUE
    LogMessage "Enumerating first parent..................", 8
    RecursiveEnum "Camera_Interest.kine.local.posx", FALSE, TRUE
    LogMessage "Enumerating all parents...................", 8
    RecursiveEnum "Camera_Interest.kine.local.posx", FALSE, FALSE
    sub RecursiveEnum( in_Comp, in_Type, in_FirstParentOnly )
            dim list, msg, elem
            set list = EnumElements( in_Comp, in_Type )
            if TypeName(list) <> "Nothing" then
                    if in_Type then
                            msg = "Children of " & in_Comp & Chr(10)
                    else
                            msg = "Parents of " & in_Comp & Chr(10)
                    end if
                    for each elem in list
                            msg = msg & elem & Chr(10)
                            RecursiveEnum elem, in_Type, in_FirstParentOnly
                            if (not in_Type) and (in_FirstParentOnly) then
                                    exit for
                            end if
                    next
                    LogMessage msg
            end if
    end sub

### See Also

GetValue SIMatchSubComponent