topic Creating a predefined geographic coordinate system issue in ArcObjects SDK Questions

Creating a predefined geographic coordinate system issue

AndrewHayden1 — Sat, 11 Dec 2021 09:08:44 GMT

I'm working with the VB Example of creating a predefined geographic coordinate system in VS 2008 Express and I encounter the error:

'esriSRGeoCSType' is not accessible in this context because it is 'Friend'.

I'm wondering the cause of the error and how I might go about resolving it.

Any thoughts?

    Private Sub CreateGeographicReferenceSystem()
        ' Set up the SpatialReferenceEnvironment.
        ' SpatialReferenceEnvironment is a singleton object and needs to use the Activator class.

        Dim t As Type = Type.GetTypeFromProgID("esriGeometry.SpatialReferenceEnvironment")
        Dim obj As System.Object = Activator.CreateInstance(t)
        Dim srFact As ESRI.ArcGIS.Geometry.ISpatialReferenceFactory = obj

        ' Use the enumeration to create an instance of the predefined object.

        Dim geographicCS As IGeographicCoordinateSystem = srFact.CreateGeographicCoordinateSystem(esriSRGeoCSType.esriSRGeoCS_NAD1983)
    End Sub

Re: Creating a predefined geographic coordinate system issue

NeilClemmons — Thu, 29 Sep 2011 13:59:00 GMT

If you don't have an Imports statement at the top of the code module for the correct library you'll have to fully qualify it just like you've done here:

Dim srFact As ESRI.ArcGIS.Geometry.ISpatialReferenceFactory = obj

Re: Creating a predefined geographic coordinate system issue

AndrewHayden1 — Sat, 11 Dec 2021 09:08:46 GMT

Thanks Neil, but I still don't understand.

I've got a reference to ESRI.ArcGIS.Geometry and have an imports statement for it. My module looks like this:

Imports ESRI.ArcGIS.Geometry

Module Module1

    Private Sub CreateGeographicReferenceSystem()
        ' Set up the SpatialReferenceEnvironment.
        ' SpatialReferenceEnvironment is a singleton object and needs to use the Activator class.

        Dim t As Type = Type.GetTypeFromProgID("esriGeometry.SpatialReferenceEnvironment")
        Dim obj As System.Object = Activator.CreateInstance(t)
        Dim srFact As ESRI.ArcGIS.Geometry.ISpatialReferenceFactory = obj

        ' Use the enumeration to create an instance of the predefined object.

        Dim geographicCS As IGeographicCoordinateSystem = srFact.CreateGeographicCoordinateSystem(esriSRGeoCSType.esriSRGeoCS_NAD1983)
    End Sub

End Module

Re: Creating a predefined geographic coordinate system issue

AndrewHayden1 — Thu, 29 Sep 2011 15:42:35 GMT

Okay, I see replacing

this:

Dim geographicCS As IGeographicCoordinateSystem = srFact.CreateGeographicCoordinateSystem(esriSRGeoCSType.esriSRGeoCS_NAD1983)

with this:

Dim geographicCS As IGeographicCoordinateSystem = srFact.CreateGeographicCoordinateSystem(ESRI.ArcGIS.Geometry.esriSRGeoCSType.esriSRGeoCS_NAD1983)

does the trick. Thought, if I have the imports statement, I'm not entirely clear why.