Latest Contributions by JohnNelson3

public static double Calc(double Lat1, double Long1, double Lat2, double Long2)         {               /*                   The Haversine formula according to Dr. Math.                   http://mathforum.org/library/drmath/view/51879.html                                   dlon = lon2 - lon1                   dlat = lat2 - lat1                   a = (sin(dlat/2))^2 + cos(lat1) * cos(lat2) * (sin(dlon/2))^2                   c = 2 * atan2(sqrt(a), sqrt(1-a))                   d = R * c                                   Where                       * dlon is the change in longitude                       * dlat is the change in latitude                       * c is the great circle distance in Radians.                       * R is the radius of a spherical Earth.                       * The locations of the two points in                           spherical coordinates (longitude and                           latitude) are lon1,lat1 and lon2, lat2.               */               double dDistance = Double.MinValue;               double dLat1InRad = Lat1 * (Math.PI / 180.0);               double dLong1InRad = Long1 * (Math.PI / 180.0);               double dLat2InRad = Lat2 * (Math.PI / 180.0);               double dLong2InRad = Long2 * (Math.PI / 180.0);               double dLongitude = dLong2InRad - dLong1InRad;               double dLatitude = dLat2InRad - dLat1InRad;               // Intermediate result a.               double a = Math.Pow(Math.Sin(dLatitude / 2.0), 2.0) +                          Math.Cos(dLat1InRad) * Math.Cos(dLat2InRad) *                          Math.Pow(Math.Sin(dLongitude / 2.0), 2.0);               // Intermediate result c (great circle distance in Radians).               double c = 2.0 * Math.Asin(Math.Sqrt(a));               // Distance.               // const Double kEarthRadiusMiles = 3956.0;               const Double kEarthRadiusKms = 6376.5;               dDistance = kEarthRadiusKms * c;               return dDistance;           } ... View more

Neil Thank you for the code sample, the ESRI C# code wasn't very helpful (http://help.arcgis.com/en/sdk/10.0/arcobjects_net/componenthelp/index.html#//0014000001tt000000).  I include my C# code. class GxFilterPersonalGDB : IGxObjectFilter     {         IGxObjectFilter basicFilter;         IGxObjectFilter geoFilter;         public GxFilterPersonalGDB()         {             //For Displaying Basic Types             basicFilter = new GxFilterBasicTypes();             //For Displaying Personal Geodatabases             geoFilter = new GxFilterPersonalGeodatabases();         }                public bool CanChooseObject(IGxObject gxObject,ref esriDoubleClickResult result)         {             try             {                 if (!(geoFilter.CanDisplayObject(gxObject)))                 {                     return false;                 }                 IGxDatabase2 gxDatabase = gxObject as IGxDatabase2;                 return gxDatabase.Workspace.PathName.EndsWith(".mdb", StringComparison.CurrentCultureIgnoreCase);             }             catch             {                 return false;             }         }         public bool CanSaveObject(IGxObject gxObject, string newObjectName, ref bool objectAlreadyExists)         {             try             {                 if (!(geoFilter.CanDisplayObject(gxObject)))                 {                     return false;                 }                 IGxDatabase2 gxDatabase = gxObject as IGxDatabase2;                 return gxDatabase.Workspace.PathName.EndsWith(".mdb", StringComparison.CurrentCultureIgnoreCase);             }             catch             {                 return false;             }         }         public bool CanDisplayObject(IGxObject gxObject)         {             try             {                 //Display Basic Types                 if (basicFilter.CanDisplayObject(gxObject))                 {                     return true;                 }                 else if (!(geoFilter.CanDisplayObject(gxObject)))                 {                     return false;                 }                 //Filter out File Geodatabases                 IGxDatabase2 gxDatabase = gxObject as IGxDatabase2;                 return gxDatabase.Workspace.PathName.EndsWith(".mdb", StringComparison.CurrentCultureIgnoreCase);             }             catch             {                 return false;             }         }         public string Name         {             get             {                 return "Personal Geodatabase";             }         }         public string Description         {             get             {                 return "Personal Geodatabase";             }         }     } ... View more

Dim pMxDoc As IMxDocument         Dim pFLayer As IFeatureLayer         Dim pData As IDataStatistics         Dim pCursor As ICursor         Try             pMxDoc = My.ArcMap.Document             pFLayer = pMxDoc.FocusMap.Layer(0) 'change the index according to the layer of interest             pCursor = pFLayer.Search(Nothing, False)             'Create the new table that the selected records will populate.             pData = New DataStatistics             pData.Field = "typeAndNum" 'change to match FC attribute with multiple records             pData.Cursor = pCursor 'this is the same cursor created above             Dim pEnumVar As IEnumerator             pEnumVar = CType(pData.UniqueValues, IEnumerator)             pEnumVar.Reset()             pEnumVar.MoveNext()             Dim pFeatureSelection As IFeatureSelection             pFeatureSelection = pFLayer 'QI             Dim pActiveView As IActiveView             pActiveView = pMxDoc.ActiveView             Dim d As DateTime             Do Until IsNothing(pEnumVar.Current)                 Dim pQF As IQueryFilter                 pQF = New QueryFilter                 pQF.WhereClause = "typeAndNum = '" & pEnumVar.Current & "'" 'change to match FC attribute with multiple records                 Dim pFc As ICursor                 Dim pTable As ITable                 pTable = pFLayer                 pFc = pTable.Search(pQF, False)                 Dim pDataStats1 As IDataStatistics                 pDataStats1 = New DataStatistics                 pDataStats1.Field = "dt_stamp" 'FC attribute you want the most recent value of                 pDataStats1.Cursor = pFc                 Dim pDataStatResults1 As IStatisticsResults                 pDataStatResults1 = pDataStats1.Statistics                 'Create the query filter                 Dim pQueryFilter As IQueryFilter                 pQueryFilter = New QueryFilter                 pQueryFilter.WhereClause = "typeAndNum = '" & pEnumVar.Current & "' AND dt_stamp = date '" & Date.FromOADate(pDataStatResults1.Maximum).Date & "'"                 pActiveView.PartialRefresh(esriViewDrawPhase.esriViewGeoSelection, Nothing, Nothing) 'Flag original selection                 pFeatureSelection.SelectFeatures(pQueryFilter, esriSelectionResultEnum.esriSelectionResultAdd, False) 'Perform the selection                 pActiveView.PartialRefresh(esriViewDrawPhase.esriViewGeoSelection, Nothing, Nothing) 'Flag the new selection                 pEnumVar.MoveNext()             Loop         Catch         End Try ... View more

Try IsNothing http://msdn.microsoft.com/en-us/library/kaf4ssya(vs.71).aspx ... View more

I write my messages to stdout in python and read those within the application.  Doesn't answer your question but another approach. http://webhelp.esri.com/arcgisdesktop/9.3/index.cfm?TopicName=Writing_messages_in_script_tools Python sys.stdout.write("false"") or print "false" sys.stdout.write(arcpy.GetMessages()) In My C# Program string result; Process pProcess = new Process(); result = pProcess.StandardOutput.ReadToEnd(); ... View more

http://resources.esri.com/help/9.3/ArcGISengine/ArcObjects/esriGeometry/Share_a_line_segment.htm http://help.arcgis.com/en/sdk/10.0/arcobjects_net/componenthelp/index.html#/esriGeometryDimension_Constants/002m00000017000000/ ... View more

I could never get the Append Tool with the NO_TEST option to work so I called a Python script. Test Failed                 try             {                 ESRI.ArcGIS.Geoprocessor.Geoprocessor gp = new ESRI.ArcGIS.Geoprocessor.Geoprocessor();                 ESRI.ArcGIS.ConversionTools.MapToKML mk = new ESRI.ArcGIS.ConversionTools.MapToKML();                 mk.in_map_document = @"U:\kmltest.mxd";                 mk.data_frame = "Layers";                 mk.map_output_scale = 24000;                 mk.out_kmz_file = @"U:\junk5.kml";                 /*mk.is_composite = "NO_COMPOSITE";                 mk.is_vector_to_raster = "VECTOR_TO_VECTOR";                 mk.extent_to_export ="";                 mk.image_size = 2048;                 mk.dpi_of_client = 192;*/                 gp.Execute(mk, null);             }             catch             {                 MessageBox.Show("Failed");             }             this.Close(); Python Fix appendStatus = RunPythonScript.ExecuteCommand("cmd", "/c " + @"C:\python26\ArcGIS10.0\python.exe " + @"U:\loc\GIS\PROJECTS\CustomTools\PythonScripts\append.py" + " " + input + "," + output);     class RunPythonScript     {         public static Boolean ExecuteCommand(string command, string arug)         {             Boolean appendComplete = true;             try             {                                string result;                 Process pProcess = new Process();                 pProcess.StartInfo.UseShellExecute = false;                 pProcess.StartInfo.Arguments = arug;                 pProcess.StartInfo.CreateNoWindow = true;                 pProcess.StartInfo.RedirectStandardOutput = true;                 pProcess.StartInfo.RedirectStandardError = true;                 pProcess.StartInfo.FileName= command;                                pProcess.Start();                 result = pProcess.StandardOutput.ReadToEnd();                 if (result.Substring(0, 4) == "true")                 {                     appendComplete = true;                 }                 else                 {                     appendComplete = false;                 }             }             catch             {                 appendComplete = false;             }                         return appendComplete;         }     } ... View more

C# Flash Code http://help.arcgis.com/en/sdk/10.0/arcobjects_net/componenthelp/index.html#//004900000075000000 ComboBox ListBox Where Clause example calling Flash Geometry private void btnZoom_Click(object sender, EventArgs e) { try { string strWhere; Boolean boStatus = ckbQuery.Checked; IMxDocument IMxDoc = (IMxDocument)ArcMap.Application.Document; ILayer iLayer1; //HARD CODED //Build where Clause if (rdName.Checked) { strWhere = "Allot_NAME = '" + listName.SelectedItem.ToString() + "' AND " + "ADM_OFC_CD = '" + cmbOffice.Text + "'"; } else { strWhere = "ST_ALLOT = 'ID" + listNumber.SelectedItem.ToString() + "'"; } //Hard Coded if (iLayer != null) { iLayer1 = cUtils.ExistsFeatureReturnLayer((IMap)IMxDoc.FocusMap, iLayer); if (iLayer1 != null) { cUtils.SelectFeatureQuery(iLayer1, strWhere, boStatus); } else { cUtils.AddLayerToActiveView(IMxDoc.ActiveView, iLayer); IMxDoc.ActiveView.Refresh(); cUtils.SelectFeatureQuery(iLayer, strWhere, boStatus); } } } catch { } } public void SelectFeatureQuery(ILayer iLayer, string sQuery, Boolean bDef) { IFeatureLayer iFeatureLayer = iLayer as IFeatureLayer; IFeatureLayerDefinition iFLD = iFeatureLayer as IFeatureLayerDefinition; IFeatureSelection iFeatureSelection = iFeatureLayer as IFeatureSelection; IQueryFilter iQF = new QueryFilter(); ISelectionSet iSelSet; try { UID uUID = new UID(); uUID.Value = "esriArcMapUI.ClearSelectionCommand"; ArcMap.Application.Document.CommandBars.Find(uUID).Execute(); if (bDef) { iFLD.DefinitionExpression = sQuery; } else { iFLD.DefinitionExpression = ""; } iQF.WhereClause = sQuery; iFeatureSelection.SelectFeatures(iQF, esriSelectionResultEnum.esriSelectionResultNew, false); iFeatureSelection.SelectionChanged(); iSelSet = iFeatureSelection.SelectionSet; if (iFeatureSelection.SelectionSet.Count == 0) { MessageBox.Show("Feature Not Found!", "Query Results"); } else { uUID.Value = "esriArcMapUI.ZoomToSelectedCommand"; ArcMap.Application.Document.CommandBars.Find(uUID).Execute(); //example passing flash parameters delete Application.DoEvents(); FeatureClassUtils fc = new FeatureClassUtils(); IFeature feature = iFeatureLayer.FeatureClass.GetFeature(iSelSet.IDs.Next()); IGeometry ig = feature.Shape; IRgbColor iColor = new RgbColor(); iColor.RGB = 233; IMxDocument iMxDoc = ArcMap.Document; fc.FlashGeometry(ig, iColor, iMxDoc.ActiveView.ScreenDisplay, 1000); } } catch { } } ... View more

Code I use            private void ZoomSel(double X, double Y)            {                try                {                    IMap iMap = iMxDoc.FocusMap;                    IActiveView iAV = iMxDoc.ActiveView;                    IPoint iPoint = new ESRI.ArcGIS.Geometry.Point();                    IEnvelope Env = iAV.FullExtent;                    iPoint.PutCoords(X,Y);                    Env.CenterAt(iPoint);                    iAV.Extent = (IEnvelope)Env;                    iMap.MapScale = 2000;                    iAV.Refresh();                }                catch                {                    MessageBox.Show("Unable to Zoom to Selected Location", "Zoom Error");                }            } ... View more

http://ryanfarley.com/blog/archive/2004/03/23/465.aspx http://help.arcgis.com/en/sdk/10.0/arcobjects_net/componenthelp/index.html#//00480000013m000000 ... View more