EnvelopeCollection

導入

v1.5

詳細

Envelope オブジェクトのコレクションです。

メソッド

Filter Find GetAsText  
       

プロパティ

Countオペレータ Itemオペレータ    
       

VBScript の例

'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

関連項目

SceneItem.Envelopes