CreatePrim "Cube", "MeshSurface"

set oSelList = GetValue("SelectionList")

set oItem = oSelList(0)

set oGeometry = oItem.obj

oNumberOf2DComponent = oGeometry.Nb2D

LogMessage "Geometry_V1[ " & oItem & " ] has : " & oNumberOf2DComponent & " polygons"