⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 自相交对象的处理.txt

📁 很多线划图数据进ArcSDE库中都会有些对象转换不进去。这些对象有很大一部分是由于数据本身有自相交的情况。如果这些线划图数据只是用来做底图
💻 TXT
字号:
自相交对象的处理
编号: 000506 相关产品及版本: ArcGIS Engine Developer Kit,ArcGIS Engine Runtime,ArcGIS Server  9.1 平台: PC-Intel Windows2000 
提交时间: 2005-07-29   修改时间: 2005-07-29 提交人: 黄齐飞 
内容摘要 
很多线划图数据进ArcSDE库中都会有些对象转换不进去。这些对象有很大一部分是由于数据本身有自相交的情况。如果这些线划图数据只是用来做底图,而不需要做对象分析。则可以采用数据简单化操作后再转换入ArcSDE中。具体操作如下例子: 
过程描述 
Private Sub SimplifyPolyLine(pPolyline As esriGeometry.Polyline)
'通过QI取得线对象的拓扑操作接口
Dim pTopologicalOperator As esriGeometry.ITopologicalOperator
Set pTopologicalOperator = pPolyline
'执行简单化操作
pTopologicalOperator.Simplify
'简单化操作完了的数据可以转换入ArcSDE中了
'下面代码用来展示简单化后的线数据的每个部分
Dim pGeometryCollection As esriGeometry.IGeometryCollection
Set pGeometryCollection = pPolyline

Dim i As Long
For i = 0 To pGeometryCollection.GeometryCount - 1
Dim TempPolyline As esriGeometry.IGeometryCollection
Dim TempPath As esriGeometry.IPath

Set TempPolyline = New esriGeometry.Polyline
Set TempPath = pGeometryCollection.Geometry(i)

TempPolyline.AddGeometry TempPath
MapControl1.FlashShape TempPolyline

Set TempPath = Nothing
Set TempPolyline = Nothing
Next i

End Sub

备注:点、线、面都可以执行简单化操作。可以根据不同的业务需求来使用这些功能。 
 

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -