Seringkali kita dihadapkan pada masalah nilai koordinat dari suatu objek point yang kita dijit. Akan lebih enak kalau otomatis muncul di atributnya..tapi hal itu agak sulit dilakukan (maklum, penulis masih gaptek nih).

untuk menampilkan nilai suatu koordinat dalam suatu objek yang kita dijit agar muncul dan tersimpan dalam tabel atributnya sebenarnya cukup gampang..berikut langkah-langkahnya:

1. Buat field baru di atributnya, misal X dan Y atau Lat dan Long

2. kemudian isi kolom “name” dengan nilai X atau Lat. Isi “Type” dengan  Double kemudian field propertiesnya dengan Precesion 12 dan Scale 5. Ulangi juga untuk Y dan Long.

3. kemudian masuk ke ekstension EDITOR, Start Editing…pilih feature yang sedang kita kerjakan

4. Kemudian klik kanan objek yang kita pilih, klik kanan, open attributes…

5. Klik kanan di field X, kemudian pilih field Calculator

Kl

6. Klik advance, kemudian ketik di bawah Pre Logic VBA Script Code

Dim dblX as double
Dim pPoint as IPoint
Set pPoint = [Shape]
dblX = pPoint.X

pastikan kolom yang harus diisi dibawah X= adalah dblX

7. kemudian klik ok…ulangi langkah2 1-7, namun jangan lupa dblX diganti dblY, dblX = pPoint.X diganti menjadi dblY = pPoint.Y dan Y =   diganti dengan dblY.

8. Selamat mencoba, semoga bermanfaat