//面转化为线
//闫磊 Email:[email protected],[email protected] 2004.12.03编写
function PolygonToPolyLine(pPoly: IPolygon): IPolyLine;
var
i, count : Integer;
pSegs, pAddSegs : ISegmentCollection;
pGeosPoly, pGeoms : IGeoMetryCollection;
pClone, pClone2 : IClone;
pGeom