現在の SubComponent と親子関係を持つX3DObjectを戻します。
set oObject = Application.ActiveSceneRoot.AddGeometry("Cube","MeshSurface","MyCube")
set oCluster = oObject.ActivePrimitive.Geometry.AddCluster(siVertexCluster,"MyCluster",Array(3,4,5))
set oSubComponent = oCluster.CreateSubComponent
set oClusterParent = oSubComponent.Parent3DObject
|