v1.0
シーン階層の指定のエレメントの前後のエレメントのリストを戻します。
oReturn = EnumElements( InputObj, [EnumChildren], [Capabilities] ); |
| パラメータ | タイプ | 説明 |
|---|---|---|
| InputObj | 文字列 | 列挙するオブジェクト。 |
| EnumChildren | Boolean |
TRUE の場合は子を、FALSE の場合は親を列挙します。 デフォルト値： TRUE |
| Capabilities | Integer | 内部使用。 |
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 |