オブジェクトのジオメトリタイプをStringとして戻します。
set oRoot = Application.ActiveProject.ActiveScene.Root set oObject = oRoot.AddGeometry( "Cube", "MeshSurface" ) set oGeometry = oObject.obj set oGeometry0D = oGeometry.Geometry0D logmessage "Object type = " & oGeometry0D.Type |