Ansicht fester Maßstäbe

Gespeichert von AndreMenzel am
im Forum ArcView 3.x classic
Liebe Kollegen,
ich suche nach einer Möglichkeit, in AV 3.3 über eine Schaltfläche mir feste Maßstäbe anzeigen zu lassen (z.B. 1:1000, 1:5000, 1:10000). Kennt jemand hierfür ein Tool (avx oder script)?
Über ein Nachricht würde ich mich freuen, Vielen Dank, André

Gespeichert von uwelangehh am Mo., 01.11.2004 - 16:50

Permalink
Hallo Andre,

hier hilft vielleicht der folgende Avenue-Dreizeiler fuer einen Button im View-Fenster:

myView = av.GetActiveDoc
myScale = 1000
myView.GetDisplay.ZoomToScale(myScale)

oder ganz kurz:

av.GetActiveDoc.GetDisplay.ZoomToScale(1000)

Gruss

Uwe

Gespeichert von Gast am Mo., 01.11.2004 - 21:23

Permalink
Hallo Andre,

und Entschuldigung an Uwe, das ich mich einmische!

Da offensichtlich mehrere Massstäbe wahlweise eingestellt werden sollen, wäre es da nicht sinnvoll, den Massstab vorher zu erfragen?

Ich habe Uwe´s Script mal modifiziert, vielleicht hilft´s ja weiter!

myView = av.GetActiveDoc
myScale = msgbox.input("Bitte den Massstab eingeben!", "Eingabe","")
myView.GetDisplay.ZoomToScale(myScale.asnumber)

Gruß

Uli

Gespeichert von uwelangehh am Di., 02.11.2004 - 08:45

Permalink
Hi Uli,

da gibts nix zu entschuldigen oder so. Deine Modifikation ist natuerlich nicht nur sinnvoll sondern fuer den praktischen Alltag notwendig.

Um noch einen draufzusetzen koennte man auch eine Kombobox verwenden:

intMassstab = Msgbox.ChoiceAsString({1000, 5000, 10000, 50000, 100000},
"Bitte wählen Sie einen Maßstab:",
"Maßstab")

Gruss und schoenen Tag

Uwe

Gespeichert von AndreMenzel am Di., 02.11.2004 - 09:11

Permalink
Hallo liebe Kollegen,
ich bin wieder postiv überrascht, wie schnell ich eine Antwort bekommen haben. Euch beiden vielen Dank. Die Idee mit der Kombobox finde ich sehr anwenderfreundlich. Eine Frage habe ich aber noch: muss ich für die Kombobox beide Scipts verwenden?
Grüße aus Hannover
André

Gespeichert von uwelangehh am Di., 02.11.2004 - 10:53

Permalink
Hallo Andre,

hier das eine Skript in Gaenze:

myView = av.GetActiveDoc
intMassstab = Msgbox.ChoiceAsString({1000, 5000, 10000, 50000, 100000}, "Bitte wählen Sie einen Maßstab:", "Maßstab")
myView.GetDisplay.ZoomToScale(intMassstab.asnumber)


Gruss

Uwe