iniGIS.info

Avenue - Pendahuluan

Jul 16, 2007 ArcView 3.x

Saya mencoba membagi hal yang saya tahu tentang Avenue, Script yang terdapat dalam ArcView 3. Saya gak jago-jago amat soal ini, jadi kalau ada masukkan monggo… dan kalau ada pertanyaan, monggo kerso…
Contoh script dibawah ini akan membuat sebuah Dokumen View baru dan menampilkan sebuah Theme di dalamnya. Copy script tersebut dan paste di Dokumen Script yang baru, kemudian klik button Compile dan klik Run. Tutup Dokumen Scriptnya, maka View baru tersebut akan tampil.

Script tersebut adalah sebagai berikut :

theproject = av.GetProject ‘//Memanggil Dokumen Project di ArcView

TheView = View.Make ‘//Membuat View Baru

theView.SetUnits(#UNITS_LINEAR_METERS) ‘//Menentukan system Proyeksi dalam View yang baru

TheView.GetDisplay.setdistanceunits(#UNITS_LINEAR_KILOMETERS) ‘//Menentukan distance units dalam View yang baru

TheView.SetName(”Peta Administrasi”) ”//Memberi nama View yang baru

TheViewWin = TheView.GetWin ‘//Memanggil view yang baru dibuat

TheViewWin.Open ‘//Membuka view yang baru dibuat

theViewWin.Maximize ‘//Menampilkan View yang baru secara maximal

FileTheme = SrcName.Make(”d:\ware\admin.shp”) ‘//Menentukan Address Layer(Theme) yang ingin ditampilkan (sesuaikan dengan data Anda)

NewTheme = Theme.Make(FileTheme) ‘//Memilihnya sebagai Layer (Theme) baru sebagai pilihan

NamaTheme = NewTheme.SetName(”Layer Admin”) ”//Memberi nama Layer (Theme) pilihan

TheView.AddTheme(NewTheme) ‘//Menambahkan Layer (Theme) pilihan dalam View

NewTheme.SetVisible(true) ‘//Menampilkan Layer (Theme) pilihan dalam View (ganti dengan False untuk tidak ditampilkan)

NewTheme.SetActive(true) ‘//Mengaktifkan Layer (Theme) pilihan dalam View (ganti dengan False untuk tidak diaktifkan)

Kirim posting terbaru dari iniGIS.info ke alamat email Anda, klik icon disamping