Returns the X3DObject that is parenting the current SubComponent.
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
|