' this example illustrates how to access the automation object for the 
' edges of the cube polygon mesh.
CreatePrim "Cube", "MeshSurface"
set oSelList = GetValue("SelectionList")
set oItem = oSelList(0)
set oGeometry = oItem.obj
set o1DGeometry = oGeometry.Geometry1D