Wiki du Master Géographies Numériques

Cette page est en lecture seule. Vous pouvez afficher le texte source, mais ne pourrez pas le modifier. Contactez votre administrateur si vous pensez qu'il s'agit d'une erreur.
====== Macro-commandes Mapinfo ======


MapBasic est le langage de programmation pour personnaliser une application MapInfo, étendre ses fonctionnalités cartographiques, automatiser des traitements répétitifs et chronophages ou intégrer Mapinfo dans d'autres applicatifs. (cf [[fonctions:automatisation:langages:mapinfo]] peut servir à créer des commandes et des barres d'outils personnelles qui automatisent certaines tâches, certaines procédures récurrentes de Mapinfo à l'image des macro-commandes d'Excel).

 
Néanmoins ces macro-commandes doivent être créées de préférences dans l'environnement de développement du même nom. Cet environnement MapBasic comprend un éditeur de texte pour la programmation, un compilateur pour créer une application exécutable, un éditeur de liens pour créer une application complexe en la décomposant en différents modules "objet", et une aide en ligne.
\\ 
\\ 
  * **Exemple d'un petit programme en langage MapBasic.** LOL

Ce programme exécute deux fonctions dans MapInfo avec la fonction "q1" affichant dans une boîte de dialogue, le message "Bonjour le monde" et la fonction "q2" affichant dans une boîte de dialogue, le nombre et les noms des fenêtres ouvertes, et, pour les fenêtres carte (type 1), le nombre de couches.
\\ 
\\ 
q1 ⇒ {{:fonctions:automatisation:macrocommande:imgmapinfo8.png|}} et q2 ⇒ {{:fonctions:automatisation:macrocommande:imgmapinfo9.png|}}

\\ 
\\ 

----
\\ 
\\ 
l'extrait du code MapBasic est celui-ci :  LOL
\\ 

<code vb>
include "mapbasic.def"
declare sub q1()
declare sub q2()
declare sub main()

sub q1()
	note "Bonjour le monde"
end sub

sub q2()
	dim i as integer
	dim n as integer
	dim num as string

	n=numwindows()
	num = n & " fenêtres ouvertes"

for i=1 to n 

	dim mess2 as string	
	dim nom as string
	dim couche as string
	dim T as integer

	nom = WindowInfo (i,WIN_INFO_NAME) 

	T = WindowInfo (i,WIN_INFO_TYPE) 
if T = 1 then 
	couche = mapperinfo(windowid(i),MAPPER_INFO_LAYERS)+1 & " couche(s)"  
else
	couche =""
end if

	mess2= mess2 & nom & " (type:"& T & ") " & couche & chr$(10)

next

	note num & chr$(10) & mess2

end sub

sub main()
 	call q1
	call q2
	
end sub

</code>





----
  *[[:logiciels:mapinfo]]

----
Mise à jour : par EL du groupe "[[:MapInfo 2012|MapInfo 2012]]", en février 2012 sur MapInfo 11, également valable sur MapInfo 12.0 (vérification effectuée par Dorota Dlugosz et Pierre-Baptiste Faure).