示例：由点的集合构成Path，由Path生成Polyline(可以包含多个片断的线段集)

示例：由点的集合构成Path，由Path生成Polyline

Dim fromPoint As IPoint , toPoint As Ipoint
Dim pPathA As IPath, pPathB As IPath
Dim pPolyline As ISegmentCollection
'Use the ISegmentCollection Interface on Polyline
Set fromPoint = New Point
Set toPoint = New Point
fromPoint.X = 20
fromPoint.Y = 30
toPoint.X = 450
toPoint.Y = 55
Set pPathA = New Path
'Path inherits the ICurve interface
pPathA.FromPoint = fromPoint
pPathB.ToPoint = toPoint
fromPoint.X = 450
fromPoint.Y = 55
toPoint.X = 456
toPoint.Y = 330
Set pPathB = New Path
pPathB.FromPoint = fromPoint
pPathB.ToPoint = toPoint

转载于:https://www.cnblogs.com/lauer0246/archive/2008/03/08/1096273.html