このコマンドに適用されている各Envelopeオブジェクトを含むEnvelopeCollectionを戻します。
set oRoot = Application.ActiveProject.ActiveScene.Root set oSkeleton = oRoot.AddModel set oSkin = oRoot.AddGeometry( "Sphere", "MeshSurface") set oChainRoot = oSkeleton.Add3DChain ' apply envelope to geometry branch using oSkin.ApplyEnvelope oSkeleton, siBranch, siBranch set oEnvelope = oSkin.Envelopes(0) logmessage typename(oEnvelope) |