SoftiamgeScript : コンポーネントをまとめて取得

subset = [1,2,3,4,5,6]

oObj = Application.Selection(0)
oPolys = oObj.ActivePrimitive.Geometry.Polygons
oSub = oPolys.SubComponent
oSub.ElementArray = subset

で、oSubのなかに　subset　をIndexにもつコンポーネントが入れられる。
まとめて入れたいときは便利