首页
后端开发
VB
ArcGIS VBA实现点序列连接成线的代码

ArcGIS VBA实现点序列连接成线的代码

17 次浏览 0 条评论
pdf
pdf

通过ArcGIS的VBA编程，可以实现将一系列顺序点连接成线的功能。以下代码简洁明了，供参考使用：```vba

Sub ConnectPointsToLine()

Dim pMap As IMap

Dim pActiveView As IActiveView

Dim pGraphicsContainer As IGraphicsContainer

Dim pNewPolyline As IPolyline

Dim pPointCollection As IPointCollection

Dim pPoint As IPoint

Dim pElement As IElement

Set pMap = ThisDocument.FocusMap
Set pActiveView = pMap
Set pGraphicsContainer = pMap
Set pNewPolyline = New Polyline
Set pPointCollection = pNewPolyline

' 添加点到集合
Set pPoint = New Point
pPoint.PutCoords 1, 1
pPointCollection.AddPoint pPoint

Set pPoint = New Point
pPoint.PutCoords 2, 2
pPointCollection.AddPoint pPoint

Set pPoint = New Point
pPoint.PutCoords 3, 3
pPointCollection.AddPoint pPoint

' 创建元素并添加到地图
Set pElement = New LineElement
Set pElement.Geometry = pNewPolyline
pGraphicsContainer.AddElement pElement, 0
pActiveView.Refresh

End Sub

pdf 文件大小：84.94KB