<DllImport("F:\ArcIMS\Corpscon6\corpscon_v6.dll", EntryPoint:="GetXOut", SetLastError:=True, _ CharSet:=CharSet.Unicode, ExactSpelling:=True, _ CallingConvention:=CallingConvention.StdCall)> _ Public Shared Function getoutx() As Double ' Leave function empty - DllImport attribute forces calls ' to Corpsconconfig to be forwarded to MoveFileW in KERNEL32.DLL. End Function <DllImport("F:\ArcIMS\Corpscon6\corpscon_v6.dll", EntryPoint:="GetYOut", SetLastError:=True, _ CharSet:=CharSet.Unicode, ExactSpelling:=True, _ CallingConvention:=CallingConvention.StdCall)> _ Public Shared Function getouty() As Double ' Leave function empty - DllImport attribute forces calls ' to Corpsconconfig to be forwarded to MoveFileW in KERNEL32.DLL. End Function
Private Sub convertDegreestoFeet(ByVal inx As Double, ByVal iny As Double, ByRef outx As Double, ByRef outy As Double) Dim RetVal As Integer RetVal = setinsystem(1) RetVal = setindatum(1983) RetVal = setoutstystem(2) RetVal = setoutdatum(1983) RetVal = setoutzone(1900) RetVal = setoutunits(1) RetVal = Corpscon_initialize() RetVal = setiny(iny) RetVal = setinx(inx) Dim script As String RetVal = Corpscon_convert() Dim outdbl As Double outdbl = getoutx() script = "<script language=JavaScript>window.alert('" & outdbl & "'); </script>" 'ClientScript.RegisterStartupScript(Me.GetType, "tab3", script) outx = outdbl outdbl = getouty() script = "<script language=JavaScript>window.alert('" & outdbl & "'); </script>" 'ClientScript.RegisterStartupScript(Me.GetType, "tab4", script) outy = outdbl End Sub
// Create a spatial reference object from mobile service SpatialReference spatialReference = mobileService.SpatialReference; // specify input X and Y coordinates double x = 6220900; double y = 2300141; // Transform coordinate from map's coordinate system to WGS84. Coordinate coordinate = spatialReference.ToWgs84(x, y);
SpatialReferenceConverter src = new SpatialReferenceConverter( SpatialReference.CreateWgs84SpatialReference(), SpatialReference.Create(2264)); Coordinate xy = src.FromSpatialReference1ToSpatialReference2(new Coordinate(lng, lat));
Les membres connectés peuvent publier, suivre les mises à jour, et plus encore. Nouveau ici ? Inscrivez-vous gratuitement.
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.