AE 缓冲区代码
AE 缓冲区代码
Byyumao 发表于 2007-7-17 20:52:00
Dim pPoint1 As IPoint
Dim pPoint2 As IPoint
Dim pEnv As IEnvelope
pPoint1 = New Point
pPoint2 = New Point
pMap = AxMapControl1.Map
pActiveView = pMap
pEnv = New Envelope
pEnv = pActiveView.Extent.Envelope
pPoint1.PutCoords(635359.486, 3089969.118)'第一幅图的右上角点
pPoint2.PutCoords(635359.486, 3089599.435)'第一幅图的右下角点
'用第一幅图的右上角与右下角点生成一条直线,然后生成缓冲区
Dim pPolyline As IGeometryCollection
pPolyline = New Polyline
Dim pPath As ISegmentCollection
pPath = New ESRI.ArcGIS.Geometry.Path
Dim pLine As ILine
pLine = New Line
pLine.PutCoords(pPoint1, pPoint2)
pPath.AddSegment(pLine)
pPolyline.AddGeometry(pPath)
'以下代码是将缓冲区用颜色填充
Dim pFillSym As ISimpleFillSymbol
pFillSym = New SimpleFillSymbol
Dim pColor As IRgbColor
pColor = New RgbColor
pColor.Red = 0
pColor.Green = 255
pColor.Blue = 0
pFillSym.Color = pColor
'pFillSym.Outline = 2
pFillSym.Style = esriSimpleFillStyle.esriSFSSolid
pScrD = pActiveView.ScreenDisplay
'对线作缓冲区
Dim pGeometry As IGeometry
pGeometry = pPolyline
Dim length As Double
Dim pTopo As ITopologicalOperator
pTopo = pGeometry