set oRoot = Application.ActiveProject.ActiveScene.Root

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

set oGeometry = oObject.obj

set oGeometry1D = oGeometry.Geometry1D

logmessage "Object type = " & oGeometry1D.Type