## X3DObject.ShapeAnimatedClusters

### Description

Returns a collection of Cluster objects for each cluster containing shape animation.

### C# Syntax

    ClusterCollection X3DObject.ShapeAnimatedClusters();

### Scripting Syntax

    oReturn = X3DObject.ShapeAnimatedClusters();

### Return Value

ClusterCollection

### Examples

#### VBScript Example

    NewScene , false
    set obj = Application.ActiveProject.ActiveScene.Root.AddGeometry( "Grid","MeshSurface" )
    SetSelFilter "Point"
    SaveShapeKey obj.Name & ".pnt[1,2,10,11,19,20,28,29]", , , 1.000
    SetValue "PlayControl.Current", 30.000
    SaveShapeKey obj.Name & ".pnt[41,42,50,51,59,60,68,69]", , , 30.000
    set clscoll = obj.ShapeAnimatedClusters
    for each cls in clscoll
            Application.LogMessage TypeName(cls) & ":" & cls.Name
    next