マップやフィーチャの範囲はEnvelopeオブジェクトで取得することができますが,これをPolylineやPolygonに変換したいときに使う方法。SetRectangleにEnvelopeをセットすればオブジェクトが生成されます。簡単なんだけど,忘れがちなメソッド。
1 2 3 4 5 6 7 | Dim pEnvelope As IEnvelope Set pEnvelope = New Envelope Dim pSegmentCollection Ss ISegmentCollection 'Set pSegmentCollection = New Polyline Set pSegmentCollection = New Polygon Set pSegmentCollection.SetRectangle = pEnvelope |