'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