Latest Contributions by KeaganAllan

Hi, I am not sure if this is the correct location for this query, but here it is. I am trying to export data from the data view in ArcMap to a georeferenced JPG or Tiff. I can do it manually, however I would like to automate the process to export based upon a polygon layer. I have been able to get the code working, however, the coordinates of the exported raster (Tiff) have not been preserved. Could someone please point me in a direction of some documentation of how best to do this? Please find my code below: I know its a little rough, its a work in progress I have found some examples online have have spliced things together as I see it could work. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click         Dim pEFeat As IEnumFeature         Dim papp As IApplication         Dim pmxdoc As IMxDocument         Dim pmap As IMap         Dim pFLayer As IFeatureLayer         Dim pFClass As IFeatureClass         papp = My.ArcMap.Application         pmxdoc = papp.Document         pmap = pmxdoc.FocusMap         pFLayer = pmxdoc.SelectedItem         pFClass = pFLayer.FeatureClass         Dim pFCursor As IFeatureCursor         pFCursor = pFLayer.Search(Nothing, False)         Dim pFeature As IFeature         pFeature = pFCursor.NextFeature         Do While Not pFeature Is Nothing                        '******************************             Dim MapSheet As String             Dim BatchField As String             Dim pfd As IFeatureLayerDefinition             Dim pActiveView As IActiveView             Dim pExporter As IExporter             Dim pEnv As IEnvelope             Dim exportFrame As tagRECT             Dim pWorldFile As IWorldFileSettings             Dim hdc As Long             Dim pqfilter As IQueryFilter             pfd = pmxdoc.SelectedLayer             BatchField = "TAG"             MapSheet = pFeature.Value(pFeature.Fields.FindField("TAG")) 'pFLayer.value(pFLayer.fields.findfield("MAPSHEET"))             pfd.DefinitionExpression = BatchField & " = '" & MapSheet & "'"             pFClass = pFLayer.FeatureClass             pqfilter = New QueryFilter             pqfilter.WhereClause = BatchField & " = '" & MapSheet & "'"             ' pFCursor = pFClass.Search(pqfilter, False)             pmxdoc.ActiveView.Extent = pFeature.Shape.Envelope             pmxdoc.FocusMap.MapScale = 30000             pmxdoc.ActiveView.Refresh()             'Export the view             pActiveView = pmxdoc.ActiveView             pExporter = New TiffExporter             pEnv = New Envelope                        Dim BEnv As IEnvelope             BEnv = pmxdoc.ActiveView.Extent             'Setup the exporter             exportFrame = pActiveView.ExportFrame             'pEnv.PutCoords(exportFrame.left, exportFrame.top, exportFrame.right, exportFrame.bottom) <--- Here the coords read 0 , 0 , 940 , 940 (not correct)             pEnv.PutCoords(BEnv.XMin, BEnv.YMin, BEnv.XMax, BEnv.YMax) ' If I use this, I get a "NOT ENOUGH MEMORY ERROR" but the coordinates are correct             Dim outloc As String = "C:\temp\"             Dim out_prefix As String = "MapNumber"             Dim dpi1 As Integer             dpi1 = 800             With pExporter                 .PixelBounds = pEnv                 .ExportFileName = outloc & "\" & MapSheet & out_prefix & ".tif"                 .Resolution = dpi1             End With             'Recalc the export frame to handle the increased number of pixels             pEnv = pExporter.PixelBounds             pWorldFile = pExporter             pWorldFile.MapExtent = pEnv             pWorldFile.OutputWorldFile = True             hdc = pExporter.StartExporting             pActiveView.Output(hdc, dpi1, exportFrame, Nothing, Nothing)             pExporter.FinishExporting()             pFeature = pFCursor.NextFeature ' pFCursor.NextFeature         Loop     End Sub Regards, K ... View more

Hi, I am still relatively novice at VB.NET, and am in the process of trying to automate a system here whereby I set a scheduled task to run a process within an MXD. From what I have researched, it seems a console application is the way forward. Using VS Express 2010 I have started trialing a number of small Geoprocessing Tools, however I am falling down on Step 1. I am trying to select all features within a shapefile called "lay" in a MXD called "Test". I keep getting a HResult_EFAIL on the selection. Please see an excerpt of the script below: Sub Main()         ESRI.ArcGIS.RuntimeManager.Bind(ESRI.ArcGIS.ProductCode.Desktop)         'ESRI License Initializer generated code.         m_AOLicenseInitializer.InitializeApplication(New esriLicenseProductCode() {esriLicenseProductCode.esriLicenseProductCodeBasic}, _         New esriLicenseExtensionCode() {})         'ESRI License Initializer generated code.         Dim docName As String = "C:\Temp\Test.mxd"         Dim mapDoc As IMapDocument = New MapDocument         If mapDoc.IsPresent(docName) Then             mapDoc.Open(docName)         End If         Dim IActive As IActiveView         IActive = mapDoc.ActiveView         Dim map As IMap = mapDoc.ActiveView.FocusMap         Dim pmxdoc As IMxDocument         pmxdoc = m_pApp         Dim pSelect As IFeatureSelection         Dim player As IFeatureLayer         Dim pFC As IFeatureClass         Dim i As Integer         Do Until i = map.LayerCount - 1                         If map.Layer(i).Name = "lay" Then                 player = map.Layer(i)                 Exit Do             Else             End If             i = i + 1         Loop         MsgBox(player.Name)         Dim pPlayer As IFeatureLayer                pSelect = player         ' pmxdoc = mapDoc.ActiveView.FocusMap.Layer(0)         pSelect.SelectFeatures(Nothing, esriSelectionResultEnum.esriSelectionResultNew, False) ' <---------- HERE I found this online and have been modifying or trying to modify it to get it to work and have not succeeded once. Is there anything obvious in the code above that is wrong? I am pretty confident this would work in a normal Add-In Button, but the console seems to be different? Thanks K <EDIT>: If I could swear and curse on this forum I would. I have been fighting with this for days...only now has it occurred to me that I am developing this tool on a PC with an Advanced License for a PC with a Basic License.... My fault, I should have used: {esriLicenseProductCode.esriLicenseProductCodeAdvanced} .... Oh well. Thanks for reading. ... View more

Good day, I was hoping someone might be able to assist in explaining how the tracker works in the collector and how to set up lists (preset data) for collection from the Collector App? Basically I have read how to add the tracking service to a published map online and have done so. I cannot however seem to get the tracker to show / move as a field worker is collecting data within the field. I simply see the points that are being collected. Could someone please post a link / describe how this is meant to work? Secondly I have seen in the videos posted on the ArcGIS Online blogs of people collecting data based upon predefined options and symbols. How is this accomplished? Many thanks and kind regards, K ... View more