Latest Contributions by DuncanHornby

Alex, Below is some VBA code that I think achieves what you are asking. Interestingly it does not seem to adjust the setting in the dataframe > Properties > General > Units(display) drop down. Duncan Public Sub test()     Dim pMXDoc As IMxDocument     Set pMXDoc = ThisDocument         Dim pLatLonFormat As ILatLonFormat2     Set pLatLonFormat = New LatLonFormat     With pLatLonFormat         .ShowDirections = True         .ShowZeroMinutes = True         .ShowZeroSeconds = True     End With         Dim pReportUnitFormat2 As IReportUnitFormat2     Set pReportUnitFormat2 = pMXDoc     pReportUnitFormat2.CoordinateReadoutUnits = esriDecimalDegrees     Set pReportUnitFormat2.CoordinateReadoutLatLonFormat = pLatLonFormat End Sub ... View more

Bruce, I've found the whole AXF root personally a bit flakey and have in the past lost data with it corrupting itself and refusing to check data back in. One silver lining is that ArcPad studio can now export the contents to a shapefile. So if your checking in is bombing out for what ever reason you can potentially recover the data from the AXF file by exporting it to a Shapefile. This will presumably negate any useful checking in/out you did.  To export to shapefile open the AXF database in ArcStudio, expand the FeatureLayers and right click on the Layer and choose export... I think this has been a very useful and life saving addition to ArcStudio. Duncan ... View more

I've just been working on a project developing a custom data capture project on a Trimble YUMA.  My only problem with it was the 32Gb solid state Hard drive was not enough space, after Windows 7 and all the other software (Arcpad etc.) I was left with "only" 20Gb of space. I needed to supply the field surveyor with a huge amount of raster imagery for much of the Scottish coastline.  The solution was to put that all on a 400GB USB drive and the surveyor has to bite the bullet and deal with the faff of manually deleting and copying folders when they moved to their next survey block. ... View more

Open Arctoolbox window, right click on the root ArcToolbox and select environments... Duncan ... View more

Hi Steve, I've looked at your code and there appears to be some nutty situation where you are looping through every 5th vertex of each polygon and repeating the loop. I think this is where your code is going amiss. So I've cleaned up the code for you and have reposted it. You also create objects then never use them... I've removed them too! You placed code that only needs to called once inside the loop so these have been moved out.  As I don't have your data I was unable to test this code. Duncan ... View more

All, I had been thinking of a work around all weekend to this problem so I came into the office with a way of resolving this problem, fired up help and was just doing some casual searching when I spotted AddItemsFromTable. So during design time we have a property of the ComboBox called listtable but during runtime it's called AddItemsFromTable. So my apologies to all for asking this question as I'm not used to objects having different names for the same property... Code is below. Duncan Sub PopulateCombobox ' Get file path of APM file then use this to create a path to dBase file Dim fp fp = MAP.FilePath Dim i i = instrrev(fp,"\") fp = left(fp,i) & "SpeciesList.dbf" ' Get control and refresh Dim p Set p = ThisEvent.Object Dim c Set c = p.Controls Dim sc Set sc = c.Item("cmbxSpecies") sc.Clear sc.AddItemsFromTable fp,"Species","Species" End Sub ... View more

Justin, As I understand it a Feature is nothing more than a row in a table where one of the fields just happens to hold a geometry rather than all fields being non-spatial data. So I don't see why you can't have a row (feature) where all values are set to NULL, this should still be a valid row in your table (featureclass). Anybody out there do correct me if I am wrong? So you dataset is a "simple" shapefile and when you issue a delete is sets everything to NULL but does does not remove the row from the table? Maybe you could post up your code for us to see? Duncan ... View more

Mele, I've never used it but have a go at using the Interface IDatasetEdit? Duncan ... View more

You could try to run the MXD through MXD Doctor? I suggest you back up the file before you do that just in case it blitzes it. It's a tool under the Desktop Tools group if you are using version 10. Duncan ... View more

Justin, I'm surprised the pFeature.Delete did not work which suggests to me the source of your problem is something else, what format is your data store as? If it's ArcSDE then maybe some weird locking is going on?  I would try you code on a small sample of say a shapefile? Duncan ... View more

The lack of an index in the Help is driving me nuts, I cannot understand their reasoning behind removing it. Their logic assumes that you have exisiting knowledge of what ESRI names a topic/tool/processing step so you just type it in. It also assumes that we are all cuturally the same and use the same combinations of words to mean the same thing. I rarely use free text search I almost always do my searching throught the index as once I know a location I can drill down to that part of the Help I need. ... View more

May be a bit late in this discussion but I was playing around with creating in_memory workspaces in VBA (ArcGIS 9.3). Here is my code. Public Sub InMemoryExample() ' Description: Sample code showing how an in memory table can be created ' Create Workspacefactory Dim pWorkSpaceFactory As IWorkspaceFactory2 Set pWorkSpaceFactory = New InMemoryWorkspaceFactory ' Create Workspace Dim pWorkspaceName As IWorkspaceName2 Set pWorkspaceName = pWorkSpaceFactory.Create("", "MyInMemoryWorkspace", Nothing, 0) ' Get a handle on Name Dim pName As IName Set pName = pWorkspaceName ' Get a handle on FeatureWorkspace Dim pFeatureWorkspace As IFeatureWorkspace Set pFeatureWorkspace = pName.Open ' Now create a fields object and add some fields to it ' Create Fields object and set the number of fields Dim pFields As IFields Set pFields = New Fields Dim pFieldsEdit As IFieldsEdit Set pFieldsEdit = pFields pFieldsEdit.FieldCount = 2 ' Create objectID field Dim pField As IField Set pField = New Field Dim pFieldEdit As IFieldEdit Set pFieldEdit = pField With pFieldEdit .Name = "OBJECTID" .Type = esriFieldTypeOID End With Set pFieldsEdit.Field(0) = pField ' Create Type field Set pField = New Field Set pFieldEdit = pField With pFieldEdit .Editable = True .Name = "VegType" .Type = esriFieldTypeString .Length = 4 .AliasName = "Vegetation Type Code" End With Set pFieldsEdit.Field(1) = pField ' Create Table Dim pTable As ITable Set pTable = pFeatureWorkspace.CreateTable("MyInMemTable", pFields, Nothing, Nothing, "") ' Create a sample row and add data Dim pRow As IRow Set pRow = pTable.CreateRow With pRow .Value(1) = "WOOD" .Store End With ' Add table to map document Dim pMXD As IMxDocument Set pMXD = ThisDocument Dim pMap As IMap Set pMap = pMXD.FocusMap Dim pStandAloneTableCollection As IStandaloneTableCollection Set pStandAloneTableCollection = pMap Dim pStandAloneTable As IStandaloneTable Set pStandAloneTable = New StandaloneTable Set pStandAloneTable.Table = pTable pStandAloneTableCollection.AddStandaloneTable pStandAloneTable pMXD.UpdateContents End Sub Duncan ... View more