' Create the Skeleton
Dim oRoot, aRootPos, aEffPos1, aEffPos2, oChain1, oChain2
Set oRoot = Application.ActiveProject.ActiveScene.Root
aRootPos = Array(0.254, 3.998, 0.045)
aEffPos1 = Array(-0.01, -0.056, -2.972)
aEffPos2 = Array(0.183, -3.999, 0.115)
Set oChain1 = oRoot.Add2DChain( aRootPos, aEffPos1, , siViewTop )
Set oChain2 = oChain1.AddBone( aEffPos2 )
' Create the Envelope
Dim oSphere, oGeometry
Set oSphere = oRoot.AddGeometry( "Sphere", "MeshSurface")
Set oGeometry = oSphere.ActivePrimitive.Geometry
' Apply the Envelope to the Skeleton
Dim oEnvelope, oDeformers, i
Set oEnvelope = oSphere.ApplyEnvelope( oChain1, siBranch, siBranch )
' Retrieve names of the Skeleton's deformers
Set oDeformers = oEnvelope.Deformers
For i = 0 to oDeformers.Count - 1
        LogMessage "Deformer #" & i + 1 & ": " & oDeformers.Item(i)
Next