YouTube | Facebook | Twitter  Feed

ジオメトリのチェック

2016/9/1 (木)

Public Sub CheckGeometryError()
    Dim pFeatureSimplify2 As IFeatureSimplify2
    Set pFeatureSimplify2 = pFeature
     
    Dim pGeometry As IGeometry
    Set pGeometry = pFeature.Shape
         
    Dim enumReason As esriNonSimpleReasonEnum
     
    If pFeatureSimplify2.IsSimpleGeometry(pGeometry, esriNonSimpleRingOrientation) Then
        Debug.Print "esriNonSimpleRingOrientation"
    End If
     
    If pFeatureSimplify2.IsSimpleGeometry(pGeometry, esriNonSimpleSegmentOrientation) Then
        Debug.Print "esriNonSimpleSegmentOrientation"
    End If
     
    If pFeatureSimplify2.IsSimpleGeometry(pGeometry, esriNonSimpleShortSegments) Then
        Debug.Print "esriNonSimpleShortSegments"
    End If
     
    If pFeatureSimplify2.IsSimpleGeometry(pGeometry, esriNonSimpleSelfIntersections) Then
        Debug.Print "esriNonSimpleSelfIntersections"
    End If
     
    If pFeatureSimplify2.IsSimpleGeometry(pGeometry, esriNonSimpleUnclosedRing) Then
        Debug.Print "esriNonSimpleUnclosedRing"
    End If
     
    If pFeatureSimplify2.IsSimpleGeometry(pGeometry, esriNonSimpleEmptyPart) Then
        Debug.Print "esriNonSimpleEmptyPart"
    End If
     
    If pFeatureSimplify2.IsSimpleGeometry(pGeometry, esriNonSimpleMismatchedAttributes) Then
        Debug.Print "esriNonSimpleMismatchedAttributes"
    End If
     
    If pFeatureSimplify2.IsSimpleGeometry(pGeometry, esriNonSimpleDiscontinuousParts) Then
        Debug.Print "esriNonSimpleDiscontinuousParts"
    End If
     
    If pFeatureSimplify2.IsSimpleGeometry(pGeometry, esriNonSimpleEmptyZValues) Then
        Debug.Print "esriNonSimpleEmptyZValues"
    End If
     
    If pFeatureSimplify2.IsSimpleGeometry(pGeometry, esriNonSimpleDuplicateVertex) Then
        Debug.Print "esriNonSimpleDuplicateVertex"
    End If
 
End Sub

関連記事

  • この記事を書いた人

羽田 康祐

好きな地図投影法 はパース・クィンカンシャル図法とマクブライド・トーマス平極四次曲線図法。広島市出身。GIS上級技術者、Esri認定インストラクター、測量士補、潜水士、元PADIダイブマスター、四アマ。GIS を使った自己紹介はこちら。ESRIジャパン(株)所属、発言は個人の見解です。

-プログラミング, ArcGIS
-,

© 2021 WINGFIELD since1981