FAQ: 由Tin节点构建泰森多边形，出现节点丢失情况！

问题： 由Tin节点构建泰森多边形，出现节点丢失情况！下面描述如何解决。
回答：
用如下代码（代码见导致原因栏）在Tin上手工绘制多边形区域，利用该多边形区域内的Tin节点构建泰森多边形时，发现构建区域内有缺失部分。即有没有构建出泰森多边形的Tin点。 Dim pFillSymbol As ISimpleFillSymbol
Set pFillSymbol = New SimpleFillSymbol
Set pGeometry = pRubberBand.TrackNew(pActiveView.ScreenDisplay, pFillSymbol)
Dim pTinFilter As ITinFilter
Set pTinFilter = New TinTriangleFilter
pTinFilter.DataElementsOnly = True
Dim pEnumTinNode As IEnumTinNode
Set pEnumTinNode = pTinAdvanced.MakeNodeEnumerator(pPoly.Envelope, 0, pTinFilter)
Dim pTeason As IPolygon
Set pTeason = pTinNode.GetVoronoiRegion(pGeometry)
Dim pElement As IElement
Set pElement = pFillElement

pElement.Geometry = pGeometry pGraphicsContainer.AddElement pElement, 0 pActiveView.Refresh
将'Set pEnumTinNode = pTinAdvanced.MakeNodeEnumerator(pPoly.Envelope, 0, pTinFilter)改为
Set pEnumTinNode = pTinAdvanced.MakeNodeEnumerator(pPoly.Envelope, 0, Nothing)

即不用filter进行过滤即可。 改正前：
<a href="http://images.esrichina.com.cn ... gt%3B

改正后：


<a href="http://images.esrichina.com.cn ... gt%3B






创建时间：2007-12-19
最近更新：2007-12-19


【原文链接】
http://support.esrichina.com.cn/2007/1219/90.html