private double toRad(double val)
{
	return val * (Math.PI / 180);
}
        
public void LatLongToEastNorth(double latitude, double longitude)
{
       //This will not work unless you have your lats and longs in decimal degrees.
       latitude = toRad(latitude);
       longitude = toRad(longitude);

       double a = 6377563.396, b = 6356256.910; // Airy 1830 major & minor semi-axes
       //double a = 6378137.0, b = 6356752.314245; WGS84 major & minor semi-axes

       double F0 = 0.9996012717; // NatGrid scale factor on central meridian
       double lat0 = toRad(49);
       double lon0 = toRad(-2); // NatGrid true origin
       double N0 = -100000, E0 = 400000; // northing & easting of true origin, metres
       double e2 = 1 - (b * b) / (a * a); // eccentricity squared
       double n = (a - b) / (a + b), n2 = n * n, n3 = n * n * n;

       double cosLat = Math.Cos(latitude), sinLat = Math.Sin(latitude);
       double nu = a * F0 / Math.Sqrt(1 - e2 * sinLat * sinLat) ; // transverse radius of curvature
       double rho = a * F0 * (1 - e2) / Math.Pow(1 - e2 * sinLat * sinLat, 1.5); // meridional radius of curvature
   
       double eta2 = nu / rho - 1;

       double Ma = (1 + n + (5 / 4) * n2 + (5 / 4) * n3) * (latitude - lat0);
       double Mb = (3 * n + 3 * n * n + (21/8)*n3) * Math.Sin(latitude - lat0) * Math.Cos(latitude + lat0);
       double Mc = ((15/8)*n2 + (15/8)*n3) * Math.Sin(2 * (latitude - lat0)) * Math.Cos(2 * (latitude + lat0));
       double Md = (35 / 24) * n3 * Math.Sin(3 * (latitude - lat0)) * Math.Cos(3 * (latitude + lat0));
       double M = b * F0 * (Ma - Mb + Mc - Md); // meridional arc

       double cos3lat = cosLat * cosLat * cosLat;
       double cos5lat = cos3lat * cosLat * cosLat;
       double tan2lat = Math.Tan(latitude) * Math.Tan(latitude);
       double tan4lat = tan2lat * tan2lat;

       double I = M + N0;
       double II = (nu / 2) * sinLat * cosLat;
       double III = (nu / 24) * sinLat * cos3lat * (5 - tan2lat + 9 * eta2);
       double IIIA = (nu / 720) * sinLat * cos5lat * (61 - 58 * tan2lat + tan4lat);
       double IV = nu * cosLat;
       double V = (nu / 6) * cos3lat * (nu / rho - tan2lat);
       double VI = (nu / 120) * cos5lat * (5 - 18 * tan2lat + tan4lat + 14 * eta2 - 58 * tan2lat * eta2);

       double dLon = longitude - lon0;
       double dLon2 = dLon * dLon, dLon3 = dLon2 * dLon, dLon4 = dLon3 * dLon, dLon5 = dLon4 * dLon, dLon6 = dLon5 * dLon;

       double N = I + II * dLon2 + III * dLon4 + IIIA * dLon6; //This is the northing
       double E = E0 + IV * dLon + V * dLon3 + VI * dLon5; //This is the easting  
}

IIMSServiceDescription imsServiceDescription = new IMSServiceNameClass();
imsServiceDescription.URL = @"you server here";                 
imsServiceDescription.Name = "catalog";

IIMSAxlRequest axlRequest = (IIMSAxlRequest)imsServiceDescription;
String result = axlRequest.SendAxlRequest("<GETCLIENTSERVICES/>", false, null, false, true);

IXmlPropertySet2 xmlProps = new XmlPropertySetClass();
xmlProps.SetXml(result);
object val = new object();
xmlProps.GetAttribute("RESPONSE/SERVICES/SERVICE", "NAME", out val);

object[] vals = (object[]) val;

for (int i = 0; i &lt; vals.Length; i++)
{
     Debug.WriteLine(vals[i].ToString());
}

Just to give you an idea of envionments here and software used:

• 2 PCs on the same domain, a dev PC and another PC acting as a server (used this just for testing but would be much the same process on Windows Server X).
• Both PCs running Windows XP SP3.
• Eclipse 3.3.2 (Europa).
• Client side subversion Subclipse from Tigris.org and at the time of writing v1.6.17.  This is compatible with old and new versions of Eclipse (except Helios I think).  It will work with Europa, Callisto, Ganymede and Galileo.
• Server side (also includes a client too but don’t worry about this) is from CollabNet – Subversion Server and Client v1.6.16 - click the download button – you may have to create an account with them, but it’s all free.

Client Install

1. In Eclipse go to Find and Install

2. Edit remote site like so:

You need to paste in the link URL:    http://subclipse.tigris.org/update_1.6.x

3. Select Subclipse as sites to update from and click Finish.

4.  If you are using Europa version of Eclipse you may also have to install Mylyn 3.0 before you can install Subclipse.

Server Install

This is just a PC with an IP address of 10.9.65.154.

1.  Download the Collabnet software as described above and double click the exe file to install.  You will see a screen like below – press Next.

2.  Skip past the View Latest Readme screen and Choose Components like below and press Next:

3. For svnserve Configuration I tend to change the Repository Path to something shorter like C:\svn, press Next:

4. For Apache Configuration, again change the Repository path to the shorter C:\svn, press Next.

5. At the Choose Install Location for the Subversion Server, install at the default location, press Next:

6.  The next screen is for Automatic Updates Configuration where you can choose to Enable update notifications for this Collabnet product and enter details if you are behind a proxy server:

7. The install will complete and finish with the following screen.  Click finish on the last screen:

8. Start the CollabNet Subversion svnserve service in Services:

9.  Then configure Collabnet Subversion Apache to run as Administrator to the local machine by right clicking, selecting Properties on the service.  Choose the radio button This account and edit the dialog like below, press OK, the start the service:

Create your first repository

1.  Open a command window and create your first repository by typing 

svnadmin create "C:\svn\repository"

2.  Navigate to that newly created directory and edit file svnserve.conf in conf folder.  Remove hash sign (#) with no leading spaces to the following:

anon-access = read
auth-access = write
password-db = passwd

Save the file and close.

3.  Open and edit file passwd.  Again, delete hash sign and add some users of your own if you like (<username> = <password>):

harry = harryssecret
sally = sallyssecret
simonearnshaw = wibble

4.  You can get really fancy and elaborate with users, groups and security.  I’ll leave that up to you, this configuration will just get you started.

5.  As subversion server operates on TCP port 3690 – you need to add this as an exception to the firewall.

Checking in your first project to Subversion from Eclipse

1. Go back to your dev PC, essentially the client.  Open Eclipse and make sure you are in SVN Repository Perspective.

2.  Now add a new SVN Repository to the view.  This relates to the command we issued on the server to create our first repository.  The protocol is svn://, and is followed by the servname or IP address.

3.  Go to your Java EE or Java persepective and right click one of your projects.  Select Team -> Share Project -> SVN -> Next.

4.  The next screen is Share Project with SVN Repository.  As we have already made a repository then we can select Use existing repository location:

5.   Leave the default, Use project name a folder name:

6.  At this point you should add comments – the comment “Initial import” is inserted as default, this is OK for our purpose so just press Finish.

7.  At this point you will be asked for your security credentials that you set up earlier in the Server section.

And that’s it you’re finished.  I hope you found this informative and useful. 

Make sure add a reference in your project to System.Deployment as well as the including the using statement.  You need this in order to access some specific libraries in this assembley.

In your initialisation of your form you should check to see that the version running has been deployed by Click Once.  This means that debug versions of this won’t work but live deployed versions will – if you don’t do this you will get an exception.

See code below:

           if (System.Deployment.Application.ApplicationDeployment.IsNetworkDeployed)
            {
                    this.Text = String.Format("My Foo Program {0}",
                    System.Deployment.Application.ApplicationDeployment.CurrentDeployment.CurrentVersion);
            }

Now and again you may find yourself developing an application outside of ArcMap i.e. essentially an ArcEngine app.

I was developing an application that accessed an mxd via the IMapDocument interface and tried to persist a change in the map scale in the Layout View.  Every time I changed the scale and saved the mxd – however the original scale would not change and the programmatic new scale was ignored!

This was very frustrating indeed, I was sure that there must be a way to persist this change as it’s not exactly NASA missile launch code – I’m just trying to change a scale damn it!

Highlight of the scale control in the layoutview of ArcMap

Solution

Anyway, it so happens that there is a fix, but it’s kind of unusual and not exactly intuitive or obvious to the developer coming at this problem cold.

Firstly we have to make use of some win32 API calls and most importantly to call IActiveView.Activate and pass our call to GetDesktopWindow().  This does the trick and is absolutely essential if you want to get this kind of change persisted.  Take a look at the code below to see how it’s done:

  
[DllImport("User32.dll")]
public static extern int GetDesktopWindow();

private void ChangeMyScale()
{
    IMapDocument MapDoc;
    mapDoc = new MapDocumentClass();
    mapDoc.Open(@"C:\Foo\Bar.mxd",null);
    IPageLayout pageLayout = mapDoc.PageLayout;
    IActiveView activeView = (IActiveView)pageLayout;
    activeView = (IActiveView) mapDoc.PageLayout;
    activeView.Activate(GetDesktopWindow()); //Key line!!
    mapDoc.ActiveView.FocusMap.MapScale = 10000; //Now we can change the scale!!
    activeView.Refresh();

    MessageBox.Show(@"We have an mxd called:" + mapDoc.DocumentFilename +
    "\nExtent: 1 to " + mapDoc.ActiveView.FocusMap.MapScale);

    mapDoc.Save(true, false)
    mapDoc.Close();
}

Other things to bear in mind, code such as:

MapDoc.SetActiveView((IActiveView)pageLayout)

only sets the view for the application as PageLayout, in order to get control of the specified window you have to use the Activate method:

<pre>activeView.Activate(GetDesktopWindow())

When working with the IActiveView interface on a MapDocument object, you should always first call IActiveView::Activate() in order to properly initialize the display of the PageLayout or Map object.

The MxDocument, MapServer objects, MapControl and PageLayoutControl all initialise display objects automatically after opening an MXD, but MapDocument DOES NOT DO THIS, so you should call Activate() before working with any other members of IActiveView.

So to summarise, if your application has a user interface, you should call Activate() with the hWnd of the application’s client area.  If your application runs in the background and has no windows, you retrieve a valid hWnd from the GDI GetDesktopWindow() function, part of the Win32 API.

Conclusion

I am hopeful that ESRI will change this so that you don’t have to, what I view totally unnecessary calls to the Windows API etc.  Maybe it will be fixed properly in version 10 or some other update to that, but I wouldn’t hold your breath!

Anyway I hope it’s useful to you and stops you burning lots of valuable dev time!

Public Sub AddGraphicToMap(ByVal map As IMap, ByVal geometry As IGeometry)

 Dim graphicsContainer As IGraphicsContainer
 Set graphicsContainer = map

 Dim element As IElement
 Set element = Nothing

 Dim rgbColor As IRgbColor
 Set rgbColor = New rgbColor
 With rgbColor
 .Red = 111
 .Green = 111
 .Blue = 111
 .UseWindowsDithering = True
 End With

 Dim simpleFillSymbol As ISimpleFillSymbol
 Set simpleFillSymbol = New simpleFillSymbol

 simpleFillSymbol.Color = rgbColor
 simpleFillSymbol.Style = esriSFSForwardDiagonal

 Dim fillShapeElement As IFillShapeElement
 Set fillShapeElement = New PolygonElement

 fillShapeElement.Symbol = simpleFillSymbol
 Set element = fillShapeElement

 If Not (element Is Nothing) Then
 element.geometry = geometry
 graphicsContainer.AddElement element, 0
 End If

End Sub

Public Function GetLayerByFeatureClass(vMap As Variant, sFeatureClassName As String, Optional bMessages As Boolean = True) As ILayer
     Dim pApplication As IApplication
     Dim pMxDocument As IMxDocument
     Dim pCompositeLayer As ICompositeLayer
     Dim pMap As IMap
     Dim l As Long
     Dim m As Long

     On Error GoTo ErrorHandler

     ' Get map reference from vMap parameter.
     If TypeOf vMap Is IMxApplication Then
          Set pApplication = vMap
          Set pMxDocument = pApplication.Document
          Set pMap = pMxDocument.FocusMap
     ElseIf TypeOf vMap Is IMxDocument Then
          Set pMxDocument = vMap
          Set pMap = pMxDocument.FocusMap
     ElseIf TypeOf vMap Is IMap Then
          Set pMap = vMap
     Else
          If bMessages Then MsgBox "vMap parameter does not implement an interface supported by this function.", vbOKOnly, "GetLayerByFeatureClass()"

          Exit Function
     End If

     ' Process each layer in the map.
     For l = 0 To pMap.LayerCount - 1
          Set GetLayerByFeatureClass = LayerByFeatureClass(pMap.Layer(l), sFeatureClassName, bMessages)
          If Not GetLayerByFeatureClass Is Nothing Then Exit Function
     Next l

     ' Give layer not found message.
     If bMessages Then MsgBox "The layer '" & sFeatureClassName & "' could not be found in the map.", vbOKOnly, "GetLayerByFeatureClass()"
Exit Function
ErrorHandler:
     If bMessages Then ErrorMessage "modAOUtilities:GetLayerByFeatureClass()"
End Function

' Written by: Neil Clemmons
' Date Created: 12/26/2002
' Date Modified:
' Description:  Helper function for GetLayerByFeatureClass().  Uses recursion to find layers that may be inside nested
'               group layers.  If this function returns a value other than Nothing, the layer has been found and
'               the search will stop.  Otherwise, the search will continue until all layers have been processed.
Private Function LayerByFeatureClass(pLayer As ILayer, sName As String, bMessages As Boolean) As ILayer
     Dim pDataset As IDataset
     Dim pReturnLayer As ILayer
     Dim pFeatureLayer As IFeatureLayer
     Dim pCompositeLayer As ICompositeLayer
     Dim l As Long

     On Error GoTo ErrorHandler

     ' If layer is a feature layer, get it's underlying dataset.
     If TypeOf pLayer Is IFeatureLayer Then
          Set pFeatureLayer = pLayer
          Set pDataset = pFeatureLayer.FeatureClass

          ' Set return layer and exit if this layer is the layer being sought.
          If UCase$(pDataset.Name) = UCase$(sName) Then
               Set LayerByFeatureClass = pLayer
               Exit Function
          End If
     End If

     ' Exit if layer is not a group layer.  Not setting return value will cause search to continue.
     If Not TypeOf pLayer Is IGroupLayer Then Exit Function

     ' Process each layer in the group layer.
     Set pCompositeLayer = pLayer
     For l = 0 To pCompositeLayer.Count - 1
          ' Use recursion to traverse nested group layers.
          Set pReturnLayer = LayerByFeatureClass(pCompositeLayer.Layer(l), sName, bMessages)

          ' If layer was found, set return value and exit.
          If Not pReturnLayer Is Nothing Then
               Set LayerByFeatureClass = pReturnLayer
               Exit Function
          End If
     Next l
Exit Function
ErrorHandler:
     If bMessages Then ErrorMessage "modAOUtilitiesLayerByName()"
End Function

Anyway this problem is apparently known to ESRI and it is apparently fixed in verison 10 (it was tested by ESRI support in a beta 10 version).  So I guess we will have to wait until thats out and a few service packs have been released until we can feel confident with rolling out version 10.

On that note I’ll talk about this issue in about another year to 18 months (I would have thought!)