3D multipatch examples
MultiPatchExamples\RingExamples.vb
' Copyright 2012 ESRI
' 
' All rights reserved under the copyright laws of the United States
' and applicable international laws, treaties, and conventions.
' 
' You may freely redistribute and use this sample code, with or
' without modification, provided you include the original copyright
' notice and use restrictions.
' 
' See the use restrictions.
' 

Imports Microsoft.VisualBasic
Imports ESRI.ArcGIS.Geometry
Imports System


Public Class RingExamples
    Private Shared _missing As Object = Type.Missing

    Private Sub New()
    End Sub
    Public Shared Function GetExample1() As IGeometry
        'Ring: Upright Rectangle

        Dim multiPatchGeometryCollection As IGeometryCollection = New MultiPatchClass()

        Dim ringPointCollection As IPointCollection = New RingClass()

        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(-7.5, 0, 0), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(-7.5, 0, 7.5), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(7.5, 0, 7.5), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(7.5, 0, 0), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(-7.5, 0, 0), _missing, _missing)

        multiPatchGeometryCollection.AddGeometry(TryCast(ringPointCollection, IGeometry), _missing, _missing)

        Return TryCast(multiPatchGeometryCollection, IGeometry)
    End Function

    Public Shared Function GetExample2() As IGeometry
        'Ring: Octagon Lying In XY Plane

        Dim multiPatchGeometryCollection As IGeometryCollection = New MultiPatchClass()

        Dim ringPointCollection As IPointCollection = New RingClass()

        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(-7.5, 7.5, 0), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(0, 8.5, 0), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(7.5, 7.5, 0), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(8.5, 0, 0), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(7.5, -7.5, 0), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(0, -8.5, 0), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(-7.5, -7.5, 0), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(-8.5, 0, 0), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(-7.5, 7.5, 0), _missing, _missing)

        multiPatchGeometryCollection.AddGeometry(TryCast(ringPointCollection, IGeometry), _missing, _missing)

        Return TryCast(multiPatchGeometryCollection, IGeometry)
    End Function

    Public Shared Function GetExample3() As IGeometry
        'Ring: Octagon With Non-Coplanar Points

        Dim multiPatchGeometryCollection As IGeometryCollection = New MultiPatchClass()

        Dim ringPointCollection As IPointCollection = New RingClass()

        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(-7.5, 7.5, 5), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(0, 8.5, 0), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(7.5, 7.5, 5), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(8.5, 0, 0), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(7.5, -7.5, 5), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(0, -8.5, 0), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(-7.5, -7.5, 5), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(-8.5, 0, 0), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(-7.5, 7.5, 5), _missing, _missing)

        multiPatchGeometryCollection.AddGeometry(TryCast(ringPointCollection, IGeometry), _missing, _missing)

        Return TryCast(multiPatchGeometryCollection, IGeometry)
    End Function

    Public Shared Function GetExample4() As IGeometry
        'Ring: Maze Lying On XY Plane

        Dim multiPatchGeometryCollection As IGeometryCollection = New MultiPatchClass()

        Dim ringPointCollection As IPointCollection = New RingClass()

        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(-10, 10, 0), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(10, 10, 0), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(10, -10, 0), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(-10, -10, 0), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(-10, 6, 0), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(6, 6, 0), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(6, -6, 0), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(-6, -6, 0), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(-6, 2, 0), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(-6, 2, 0), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(0, 2, 0), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(0, 0, 0), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(-4, 0, 0), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(-4, -4, 0), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(4, -4, 0), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(4, 4, 0), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(-8, 4, 0), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(-8, -8, 0), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(8, -8, 0), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(8, 8, 0), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(-10, 8, 0), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(-10, 10, 0), _missing, _missing)

        multiPatchGeometryCollection.AddGeometry(TryCast(ringPointCollection, IGeometry), _missing, _missing)

        Return TryCast(multiPatchGeometryCollection, IGeometry)
    End Function

    Public Shared Function GetExample5() As IGeometry
        'Ring: Maze With Non-Coplanar Points

        Dim multiPatchGeometryCollection As IGeometryCollection = New MultiPatchClass()

        Dim ringPointCollection As IPointCollection = New RingClass()

        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(-10, 10, 0), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(10, 10, 5), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(10, -10, -5), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(-10, -10, 0), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(-10, 6, 5), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(6, 6, -5), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(6, -6, 0), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(-6, -6, 5), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(-6, 2, -5), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(-6, 2, 0), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(0, 2, 5), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(0, 0, -5), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(-4, 0, 0), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(-4, -4, 5), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(4, -4, -5), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(4, 4, 0), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(-8, 4, 5), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(-8, -8, -5), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(8, -8, 0), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(8, 8, 5), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(-10, 8, -5), _missing, _missing)
        ringPointCollection.AddPoint(GeometryUtilities.ConstructPoint3D(-10, 10, 0), _missing, _missing)

        multiPatchGeometryCollection.AddGeometry(TryCast(ringPointCollection, IGeometry), _missing, _missing)

        Return TryCast(multiPatchGeometryCollection, IGeometry)
    End Function
End Class