'VBScript

set oRoot = Application.ActiveProject.ActiveScene.Root

set oGrid = oRoot.AddGeometry("Grid","MeshSurface")

set oCluster = oGrid.ActivePrimitive.Geometry.AddCluster(siVertexCluster, "VextexClusterOnGrid", array(4,5,6))

set oEnvelopes = oCluster.Envelopes

LogMessage "Number of envelopes on cluster : " & oEnvelopes.Count

set oChainRoot = oRoot.Add3DChain

set oEnvelope = oCluster.ApplyEnvelope( oChainRoot, siBranch )

LogMessage "typename(envelope) : " & typename(oEnvelope)

LogMessage "After applying envelope... "

set oEnvelopes2 = oCluster.Envelopes

LogMessage "Number of envelopes on cluster : " & oEnvelopes2.Count