エンベロープのシェイプを制御するすべてのX3DObjectオブジェクト（デフォーマ）を含むX3DObjectCollectionを戻します。
'
' 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
|