v1.0
選択の編集プロパティ
シーン階層の指定のエレメントの前後のエレメントのリストを戻します。
oReturn = EnumElements( InputObj, [EnumChildren], [Capabilities] ); |
| パラメータ | タイプ | 詳細 |
|---|---|---|
| InputObj | 文字列 | 列挙するオブジェクト。 |
| EnumChildren | ブール | 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
|