SpatialReferenceConverter src = new SpatialReferenceConverter( SpatialReference.CreateWgs84SpatialReference(), SpatialReference.Create(2264)); Coordinate xy = src.FromSpatialReference1ToSpatialReference2(new Coordinate(lng, lat));
// 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);
<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
Membros conectados podem postar, seguir atualizações e mais. Novo aqui? Registre uma conta gratuita.
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.