#1 Wed 27 November 2002 16:45
- Bob Bobby13
- Invité
Mapbasic code pour presse papiers et copier-coller
Bonjour,
je recherche la ligne de code permettant de dupliquer une fenetre carte (bouton de la barre d'outils general dupliquer une fenetre carte - drag and drop) dans une autre application (word,access...).
En outre, je recherche les lignes de code permettant :
de copier des objets (fenetre carte par exple) dans le presse papiers et,
de recuperer des objets du presse papiers.
merci de votre aide.
#2 Wed 27 November 2002 16:45
- Jacques Paris
- Invité
Re: Mapbasic code pour presse papiers et copier-coller
Windowinfo(,WIN_INFO_CLONEWINOW)
(code numerique 15)
retourne une variable caracteres avec toutes les instructions voulues pour cloner la fenetre, meme les couches thematiques.
Je ne connais pas les equivalents des commandes du type +C cheres à Windows et au presse-papier. Il n'y a aucune contrepartie de celles-ci dans la fenetre MapBasic, ce qui est une mauvaise indication. S'il s'agit de rester dans MapBasic, on passe generalement par des select suivis d'insert
Jacques Paris
#3 Fri 29 November 2002 09:50
- Olivier Dumas
- Invité
Re: Mapbasic code pour presse papiers et copier-coller
De: Olivier
Voici une procedure d'une de mes applis qui copie le(s) objet(s) selectionne(s) dans certaines couches vers une couche donnee. S'il y a plrs objets ils sont automatiquement assembles et on enchaine sur la boite de dialogue qui gere les attributs :
Sub Creat_EI_selection
dim nblig,NumCouche,numlig as smallint,
tabsel,EICourant as string,
Numplan as integer
NumPlan=FrontWindow()
tabsel=SelectionInfo(SEL_INFO_TABLENAME)
if tabsel PARCELLE and tabsel BATI and tabsel PARC_DGI
then
if tabsel=
then
Note Pas de selection en cours
else
Note La selection courante ne concerne pas une parcelle ou un batiment
end if
else
nblig=SelectionInfo(SEL_INFO_NROWS)
numcouche=RechNumCCTable ( EIGeo ,NumPlan)
print Copie de la selection ...
run menu command 203
set map layer numcouche editable on
run menu command 204
if nblig > 1
then
print Assemblage des objets ...
Objects combine
end if
EICourant=EnsImm
Call MasqSaisie ( Ensemble Immobilier ,EICourant)
numlig=TableInfo(EIGeo,TAB_INFO_NROWS)
update EIGeo set CodeEI=EICourant where RowID=numlig
end if
End sub
