' 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