Cómo programar con ArcObjects y no morir en el intento - 3ª Parte

A partir de la versión 9 de ArcGIS Desktop, se incluye un nuevo entorno de geoprocesamiento, que incluye un objeto de alto nivel, llamado Geoprocessor, que permite automatización ActiveX. ¿Qué significa esto?. Pues que podemos utilizar TODA la funcionalidad proporcionada por ArcToolBox desde un lenguaje de script compatible con ActiveX. El más completo y potente es Python (http://www.python.org), que además es open source y multiplataforma. Python es un lenguaje interpretado orientado a objetos, lo cual nos dará mucha flexibilidad a la hora de programar macros complejas o incluso programas completos, orientados a la resolución de tareas repetitivas y procesos SIG.

Además, al no ser necesario abrir las aplicaciones de ArcGIS Desktop, el rendimiento de nuestras macros es muy superior.

Veamos un ejemplo.


Este ejemplo importa archivos .e00 de ArcInfo workstation a formato cobertura. Para ello busca todos los ficheros .e00 en un directorio (primer parámetro) y guarda el resultado en otro directorio (segundo parámetro).

Como se puede apreciar, es un lenguaje de tipado dinámico, por lo que no es necesario decirle a cada variable de qué tipo es, simplemente las declaramos. La declaración del objeto Geoprocessor siempre se hace de la misma forma (en la línea GP = win32com.client.Dispatch("esriGeoprocessing.GPDispatch.1"). En python además es muy importante el sangrado de código, para ello conviene utilizar alguno de los editores que existen para este lenguaje. IDLE, incluido con Python, puede ser suficiente para empezar, aunque conviene utilizar PythonWin si estamos en plataforma Windows, dadas sus características más completas.

Este tipo de archivos pueden ejecutarse directamente desde una consola, sin necesidad de abrir ArcGIS Desktop.

Cómo programar con ArcObjects y no morir en el intento - 2ª Parte

Algunos compañeros me preguntaban si escribiendo este tutorial de ArcObjects había muerto en el intento como sugiere el título. Ja, ja, ja, no, en realidad es por otros motivos por los que he estado alejado del blog, pero ahora tengo intención de retomarlo.

Así que continúo la entrega, en esta ocasión hablando de la opción más sencilla y que utilizan casi todos los que empiezan a trabajar con ArcObjects. Me refiero a las macros VBA en ArcGIS.

La primera pregunta es ¿por dónde empezar?. Un buen punto de partida puede ser la ayuda, los foros de internet (en http://edn.esri.com), ArcScripts (http://arcscripts.esri.com), etc. El siguiente ejemplo está extraído directamente de la ayuda de ArcGIS.

Para hacer funcionar una macro, simplemente abrimos el editor de Macros de Visual Basic para Aplicaciones (atajo de teclado: Alt+F11) y pegamos el código. Para escoger la macro que queremos ejecutar, podemos acceder al diálogo de macros con el atajo de teclado Alt+F8.

Este ejemplo añade, en una vista layout, elementos auxiliares de mapa como la leyenda o el simbolo de norte. Mas detalles en los comentarios del código.

Public Sub AddMapSurrounds()

Dim pMxDoc As IMxDocument
Dim pActiveView As IActiveView
Dim pEnv As IEnvelope
Dim pID As New UID
Dim pMapSurround As IMapSurround
Dim pMarkerNorthArrow As IMarkerNorthArrow
Dim pCharacterMarkerSymbol As ICharacterMarkerSymbol

Set pMxDoc = Application.Document
Set pActiveView = pMxDoc.PageLayout
Set pEnv = New Envelope

'Añade símbolo de norte
pEnv.PutCoords 0.2, 0.2, 1, 1
pID.Value = "esriCore.MarkerNorthArrow"
Set pMapSurround = CreateSurround(pID, pEnv, "North Arrow", pMxDoc.FocusMap, pMxDoc.PageLayout)

'Cambia el símbolo de norte por defecto
Set pMarkerNorthArrow = pMapSurround 'QI
Set pCharacterMarkerSymbol = pMarkerNorthArrow.MarkerSymbol 'clona el símbolo
pCharacterMarkerSymbol.CharacterIndex = 200 'cambia el símbolo
pMarkerNorthArrow.MarkerSymbol = pCharacterMarkerSymbol

'Añade una leyenda
pEnv.PutCoords 7.5, 0.2, 8.5, 4
pID.Value = "esriCore.Legend"
Set pMapSurround = CreateSurround(pID, pEnv, "Legend", pMxDoc.FocusMap, pMxDoc.PageLayout)

'Refresca el display gráfico
pActiveView.PartialRefresh esriViewGraphics, Nothing, Nothing
End Sub


Private Function CreateSurround(pID As UID, pEnv As IEnvelope, strName As String, _
pMap As IMap, pPageLayout As IPageLayout) As IMapSurround

Dim pGraphicsContainer As IGraphicsContainer
Dim pActiveView As IActiveView
Dim pMapSurroundFrame As IMapSurroundFrame
Dim pMapSurround As IMapSurround
Dim pMapFrame As IMapFrame
Dim pElement As IElement

Set pGraphicsContainer = pPageLayout
Set pMapFrame = pGraphicsContainer.FindFrame(pMap)
Set pMapSurroundFrame = pMapFrame.CreateSurroundFrame(pID, Nothing)
pMapSurroundFrame.MapSurround.Name = strName

'Asignar la geometría a un MapSurroundFrame
'para darle una localización,
'activarlo y añadirlo al PageLayout

Set pElement = pMapSurroundFrame
Set pActiveView = pPageLayout
pElement.Geometry = pEnv
pElement.Activate pActiveView.ScreenDisplay
pGraphicsContainer.AddElement pElement, 0

Set CreateSurround = pMapSurroundFrame.MapSurround
End Function


En general, podemos extraer muchos ejemplos ya hechos y adaptarlos a nuestras necesidades. La principal ventaja es que esta forma de programar con ArcObjects es relativamente sencilla. También es su principal inconveniente, pues se puede acabar haciendo programación "copy&paste" sin saber muy bien qué estamos haciendo. Una recomendación que se suele dar es no olvidar lo que está pasando por debajo, documentarse bien y echarle un vistazo al "Exploring ArcObjects", libro muy útil si se va a programar en serio con esta tecnología.

El ámbito de aplicación de este tipo de macros está restringido al uso de aplicaciones cliente de ArcGIS Desktop (ArcMap, ArcCatalog, etc.). En la siguiente entrega daremos un paso más para ver cómo se pueden hacer macros para tareas repetitivas que no dependan necesariamente de estas aplicaciones de usuario final.