Jeff,
I take over this issue and I tested the code Gary and you mentioned above, the result is POLYGON((-93.4420849566762 45.3331642259208,-93.8204295819603 45.0665697648231,-93.6394821524719 44.6779839276563,-92.827960347519 44.6194697602057,-92.5208980429358 44.8492849385599,-92.7292617496211 45.2675974991315,-93.4420849566762 45.3331642259208)) , I think it’s decimal degree unit. Below is my test code:
Dim wkt = “POLYGON((-10401925.316039 5674124.7595165,-10444042.44707 5632007.6284856,-10423899.471359 5570968.3081509,-10333561.277264 5561812.4101007,-10299379.257876 5597825.6090981,-10322574.199604 5663748.0750595,-10401925.316039 5674124.7595165))”
Dim proj4 As New Proj4Projection
Dim MyBaseShape As ThinkGeo.MapSuite.Core.BaseShape = BaseShape.CreateShapeFromWellKnownData(wkt)
proj4.InternalProjectionParametersString = Proj4Projection.GetDecimalDegreesParametersString
proj4.ExternalProjectionParametersString = Proj4Projection.GetGoogleMapParametersString
proj4.Open() 'NEEDED TO ADD THIS LINE TO CALL THE NEXT
Dim result As BaseShape = proj4.ConvertToInternalProjection(MyBaseShape)
MessageBox.Show(result.GetWellKnownText())
Thanks,
James