オブジェクトのジオメトリタイプをStringとして戻します。
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 |