## CopyShape

### Description

Copies the shape key to the specified clusters. The clusters must be of the same size and ordered similarily as the shape key.

### Scripting Syntax

    CopyShape( [Source], [Target] );

### Parameters

Parameter | Type | Description
--- | --- | ---
Source | String | Cluster key or shape action to copy
Target | String | List of targets where the cluster will be copied (3DObjects, primitives, cluster containers)

### Examples

#### VBScript Example

    '
    ' This example first creates a sphere deformed by a shape on a point cluster.
    ' Then, it creates a second sphere, and copies the shape from the first sphere
    ' to  a corresponding point cluster.
    '
    ' Create 2 spheres: source (orig) and target (dupe)
    NewScene , false
    set orig = CreatePrim( "Sphere", "MeshSurface" )
    set dupe = CreatePrim( "Sphere", "MeshSurface" )
    Translate orig, 9, 0, 0, siRelative, siView, siObj, siXYZ
    ' Create a shape key on a point cluster
    set cls1 = CreateCluster( orig & ".pnt[38-42,45-49]" )(0)
    Translate cls1, 1, 3, -3, siRelative, siView, siObj, siXYZ
    set shapeclp = SaveShapeKey( cls1,,, 1,,,, 1, siShapeLocalReferenceMode )
    set shapesrc = shapeclp.MappedItems(0).Source2
    ' Create the corresponding target point cluster
    set cls2 = CreateCluster( dupe & ".pnt[38-42,45-49]" )(0)
    ' Copy the shape to the target object, and apply the shape
    CopyShape shapesrc, cls2
    set copiedsrc = dupe.Model.Sources( dupe.Model.Sources.Count-1 )
    ApplyShapeKey copiedsrc, , , 1
    ' Results: Both spheres display the same point extrusion