set oRoot = Application.ActiveProject.ActiveScene.Root

set oObject = oRoot.AddGeometry( "Cube", "MeshSurface" )

set oGeometry = oObject.obj

set oGeometry2D = oGeometry.Geometry2D

logmessage "Object type = " & oGeometry2D.Type