このオブジェクトのGeometry1Dを戻します。
' 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
|