'

' This example enumerates the deformers of an envelope with the 

' EnveloperWeight property.

'

set oRoot = Application.ActiveProject.ActiveScene.Root

set oSphere = oRoot.AddGeometry( "Sphere", "MeshSurface")

set oChainRoot = oRoot.Add3DChain

oSphere.ApplyEnvelope oChainRoot, siBranch 

'get the envelope weight property installed 

set oEnvelopWeight = oSphere.ActivePrimitive.Geometry.Clusters(0).Properties(0)

for each d in oEnvelopWeight.Deformers

	LogMessage d.Name

next