オブジェクトのインデックスの内部配列を現在の順序で戻します。
要素を昇順の数値で戻す場合は、CollectionItem.SubElements を使用します。
// get accessor Object rtn = CollectionItem.SubElements2; |
set oRoot = Application.ActiveProject.ActiveScene.Root set oObject = oRoot.AddGeometry("Cube", "MeshSurface") set oItem = CreateObject("XSI.CollectionItem") oItem.Value = oObject.FullName & "." & siVertexCluster & "[*]" logmessage "subset of components selected" oItem.SubElements = Array(0,2,6,1,4) aNewIndices = oItem.SubElements2 for i = LBound( aNewIndices, 1 ) to UBound( aNewIndices, 1 ) LogMessage "SubComponent[" & i & "] : " & aNewIndices (i) next |