'
' 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