Returns the number (Long) of 1D Geometries of this object
' this example illustrates how to get the number of edges
' in the cube polygon mesh.
CreatePrim "Cube", "MeshSurface"
set oSelList = GetValue("SelectionList")
set oItem = oSelList(0)
set oGeometry = oItem.obj
oNumberOf1DGeometries = oGeometry.Nb1D
LogMessage "Geometry_V1[ " & oItem& " ] has : " & oNumberOf1DGeometries & " edges"
|