set oObject = Application.ActiveSceneRoot.AddGeometry("Cube","MeshSurface","MyCube")
myVertexArray = Array(2,3,34,56)
FindInvalidSubComponentIndex siVertexCluster, myVertexArray, oObject
Sub FindInvalidSubComponentIndex( in_ClusterType, in_IndexArray, in_Object)
Dim l_invalidIndexArray, l_validArray, l_subComponent, l_bNotFound
set l_subComponent = oObject.ActivePrimitive.Geometry.CreateSubComponent(in_ClusterType, in_IndexArray)
l_validArray = l_subComponent.ElementArray
for i = lbound(in_IndexArray) to ubound(in_IndexArray)
l_bNotFound = TRUE
for j = lbound(l_validArray) to ubound(l_validArray)
if in_IndexArray(i) = l_validArray(j) then
l_bNotFound = FALSE
Exit For
end if
next
if l_bNotFound then
Application.LogMessage in_IndexArray(i)
end if
next
End Sub
|