Sampel Script avenue berikut ini berfungsi untuk membuat view inset yang terupdate secara otomatis sesuai zooming yang digunakan oleh user. Cara menggunakannya, kompilasikan script berikut, lalu kaitkan dengan fungsi “update” pada tool ZoomIn dan ZoomOut bisa juga pada button ZoomIn dan ZoomOut. Pemahaman dasar tentang script Avenue bisa diperoleh pada Tutorial ArcView 3.x, dan posting yang lain tentang Avenue Pendahuluan, Avenue Dialog Designer 1 dan Avenue Dialog Designer 2.
vie = av.getactivedoc
skala = vie.returnscale
nam = vie.getname
d = vie.GetDisplay
r = d.ReturnVisExtent
r2 = vie.returnextent
theView = av.finddoc(“Inset”)
if (theView = nil) then
newView = View.MakeWithGUI(“View”)
newView.GetWin.Open
newview.setname(“Inset”)
theView = newView
end
theView.GetDisplay.SetExtent(r2.Scale(1.1))
lis = theview.GetGraphics.findallbyclass(graphicshape)
if ((lis = nil) or (lis.count = 0)) then
kotak = GraphicShape.Make (r)
asimb = Symbol.Make (#SYMBOL_FILL)
asimb.setolcolor(color.getred)
afil = rasterfill.make
afil.setstyle(#RASTERFILL_STYLE_EMPTY)
afil.setolcolor(color.getred)
kotak.setsymbol(asimb)
kotak.setsymbol(afil)
theView.getgraphics.add(kotak)
else
kotak = lis.get(0)
kotak.setbounds(r)
asimb = Symbol.Make (#SYMBOL_FILL)
asimb.setolcolor(color.getred)
afil = rasterfill.make
afil.setstyle(#RASTERFILL_STYLE_EMPTY)
afil.setolcolor(color.getred)
kotak.setsymbol(asimb)
kotak.setsymbol(afil)
end
theview.invalidate
av.finddoc(nam).getwin.activate
theView = av.GetActiveDoc
SELF.SetEnabled((theView.GetGraphics.Count > 0) or (theView.GetThemes.Count > 0))
av.TileWindows
Posting sampel script avenue ini ditulis oleh Satrio Arditama, alumni Geografi UI angkatan 1999, saat ini bekerja di Departemen Pekerjaan Umum. Secara berkala Satrio akan memberikan sampel script avenue dan contoh aplikasi WebGIS. Untuk menghubungi penulis silahkan kirim email ke iarditama@gmail.com
Related posts:
- Sample Script Avenue : Aplikasi GIS untuk Pertanian Tutorial ArcView 3.x avenue script belum pernah saya berikan secara gamblang di blog ini....
- Avenue – Pendahuluan Saya mencoba membagi hal yang saya tahu tentang Avenue, Script yang terdapat dalam ArcView 3....
- Avenue – Dialog Designer – Menu Dropdown List Saudara Mario kembali bertanya tentang avenue-dialog designer (Lihat posting sebelumnya http://inigis.info/blog/avenue-dialog-designer/). Kurang lebih pertanyaannya...
- Membuat Sendiri Aplikasi GIS dengan Program Open Source Untuk kebutuhan tertentu, seorang user yang belum mengenal GIS dan tidak ingin tahu bagaimana...
- Avenue-Dialog Designer Saya mencoba membantu saudara Mario Chandra atas pertanyaannya di milis RS-GISForum beberapa hari yang lalu....
