Annonce
#1 Mon 16 July 2001 00:56
- Fred P
- Invité
Avenue : bouton echelle
Bonjour,
Je voudrais savoir si quelqu'un pourrait me renseigner
sur la facon de proceder pour creer un bouton echelle
au 1/5000eme sur une selection.
Je suis parti du script systeme Zoom to select dans
lequel j'ai modifie le Scale (1.1)mais la modif ne
fonctionne que sur un agrandissement de vue. Le
probleme qui apparait : lorsque je change la dimension
de ma vue le nombre que j'ai modifie ne correspond
plus a l'echelle.
Faut-il proceder comme je l'ai fait ou existe-t-il une
methode plus efficace ?
Merci pour vos reponse.
FP
#2 Mon 16 July 2001 00:58
- Yves Hennequin
- Invité
Re: Avenue : bouton echelle
Voici je crois ton scipt (a priori) auquel il siffit d'ajouter les deux
dernieres lignes :
av.GetProject.SetModified(true)
theView = av.GetActiveDoc
r = Rect.MakeEmpty
for each t in theView.GetActiveThemes
if (t.CanSelect) then
r = r.UnionWith(t.GetSelectedExtent)
end
end
if (r.IsEmpty) then
return nil
elseif ( r.ReturnSize = (0@0) ) then
theView.GetDisplay.PanTo(r.ReturnOrigin)
else
theView.GetDisplay.SetExtent(r.Scale(1.1))
end
theView = av.GetActiveDoc
theView.GetDisplay.ZoomToScale(5000)
Une fois le zoom fait sur la selection, arcview fait un zoom au 1/5000.
Yves HENNEQUIN
