'

'	This example demonstrates how to determine which edges are selected

'	in the UI by using the SubComponent object via the Selection

' 

NewScene , false

' Setup: create a polygon mesh and select some edges on it

set disc = Application.ActiveSceneRoot.AddGeometry( "Disc", "MeshSurface" )

Selection.Clear()

Selection.SetAsText( disc.Name & ".edge[113,115,117,119,121]" )

' When components are selected, the first member of the Selection

' is returned as a CollectionItem which can then be converted to a

' SubComponent object. From there, the ComponentCollection property

' converts it to the proper collection type (in this case an EdgeCollection)

set selected = Selection(0).SubComponent.ComponentCollection

for each sel in selected

	Application.LogMessage "edge[" & sel.Index & "] is selected." 

next

' Expected results:

'INFO : edge[113] is selected.

'INFO : edge[115] is selected.

'INFO : edge[117] is selected.

'INFO : edge[119] is selected.

'INFO : edge[121] is selected.

set oRoot = Application.ActiveProject.ActiveScene.Root

set oObject = oRoot.AddGeometry("Cube", "MeshSurface", "MyCube")

set oItem = CreateObject("XSI.CollectionItem")

oItem.Value = oObject.FullName & "." & siVertexCluster & "[*]"

set oSubComponent = oItem.SubComponent