原创力文档- 1、本文档共7页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
线状读数据
/home.php?mod=spaceuid=43777do=blogid=231297
新建线文件
在ARCCATALOG中新建SHAPFILE，选择相应选项
几何校正
加载截图到ARCGIS工程文件中
空白处右击选择Georeferencing
点击，在图上选择点，点击，更改XMAP,YMAP
重复选择三个点
注意：选点最好在坐标轴上，XY范围适当调整，X的设定一定要编辑相应文档说明
矢量化
加载新建的线状图
加载EDITOR工具栏，启动EDITOR；工具栏其余项不是灰色
选择，进行矢量化，
注意：节点密度越高越好
矢量化完成后，先保存，后停止编辑
使用VBA导出数据
VBA画面选择如下
弹出画面：
博主回复：Sub subpt()
Dim pMxDoc As IMxDocument
Set pMxDoc = ThisDocument
Dim pActView As IActiveView
Set pActView = pMxDoc.ActiveView
Dim pMap As IMap
Set pMap = pActView.FocusMap
Dim pLayer As ILayer
Set pLayer = pMap.Layer(0)
Dim pTable As ITable
Set pTable = pLayer
Dim pCur As ICursor
Dim pFilter As IQueryFilter
Set pFilter = New QueryFilter
pFilter.WhereClause =
Set pCur = pTable.Search(pFilter, False)
Dim pRow As IRow
Set pRow = pCur.NextRow
Open c:\abc.txt For Output As #1 这里的文件路径改成你自己的保存路径
While Not pRow Is Nothing
Dim pPolyline As IPolyline
Set pPolyline = pRow.Value(1)
Dim pPoints As IPointCollection
Set pPoints = pPolyline
Dim pPtNum As Long
pPtNum = pPoints.PointCount
Print #1, pRow.Value(2)
Dim idx As Long
For idx = 0 To pPtNum - 1
Print #1, pPoints.Point(idx).X, pPoints.Point(idx).Y
Next
Set pRow = pCur.NextRow
Wend
Close #1
End Sub
文档评论（0）