EnumElements

EnumElements

導入

v1.0

詳細

シーン階層の指定のエレメントの前後のエレメントのリストを戻します。

スクリプト構文

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

戻り値

XSICollection

パラメータ

パラメータ タイプ 説明
InputObj 文字列 列挙するオブジェクト
EnumChildren Boolean TRUE の場合は子を、FALSE の場合は親を列挙します。

デフォルト値: TRUE

Capabilities Integer 内部使用。

VBScript の例

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

関連項目

GetValue SIMatchSubComponent