Menghapus Objek Point

Untuk menghapus objek point dari peta, pertama kita pilih objek yang akan dihapus. Kita bisa menerapkan metode klik langsung pada peta. Tentu ketika melakukan klik, kita bisa memperoleh informasi long-lat (xy). (Baca: Membuat tool untuk mendapatkan koordinat lokasi). Informasi xy ini digunakan untuk parameter metode searching objek terdekat.

SearchInfoFactory.SearchNearest(peta, poin, peta.GetDisplayCoordSys())

metode SearchNearest ini dilakukan, karena belum tentu lokasi klik tepat pada posisi objek karena adanya pengaruh toleransi pixel. Berbeda halnya jika kita melakukan seleksi objek dengan klik and drag.

Kemudian kita cari feature objek di tabel atribut peta berdasarkan SearchInfoFactory. Setelah feature ditemukan, hapus menggunakan metode berikut

Table.DeleteFeature(ftr)
Table.Pack(PackType.RemoveDeletedRecords)


Contoh code menggunakan VB.net

Dim peta As Map = MapInfo.Engine.Session.Current.MapFactory.Item(0)
Dim poin As New DPoint(x, y)
Dim Conn As New MapInfo.Data.MIConnection

Dim si As MapInfo.Data.SearchInfo
si = MapInfo.Mapping.SearchInfoFactory.SearchNearest( _
     peta, poin, peta.GetDisplayCoordSys())
Conn.Open()

Dim DtTabel As MapInfo.Data.Table
DtTabel = MapInfo.Engine.Session.Current.Catalog.GetTable("TabelAlias")

Dim fl As New MapInfo.Mapping.FeatureLayer(DtTabel)
Dim irfc As MapInfo.Data.IresultSetFeatureCollection
irfc = MapInfo.Engine.Session.Current.Catalog.Search(DtTabel, si)

If irfc.Count <> 0 Then
   Dim ftrs As MapInfo.Data.IDynamicFeatureCollection
   ftrs = CType(irfc, MapInfo.Data.IDynamicFeatureCollection)
   Dim ftr As MapInfo.Data.Feature = ftrs.Item(0)
   ‘ feature dihapus
   fl.Table.DeleteFeature(ftr)
   fl.Table.Pack(PackType.RemoveDeletedRecords)
End If
Conn.Close()

About Yuniar

Penulis sekarang lebih banyak bekerja menggunakan teknologi Microsoft .NET secara umum dan TIDAK lagi menggunakan aplikasi MapXtreme.net dari MapInfo. Karena itu mohon maaf, jika pertanyaan-pertanyaan mengenai MapXtreme sudah tidak bisa saya jawab lagi.

Posted on 5 Oktober 2009, in MapXtreme and tagged , , . Bookmark the permalink. Tinggalkan komentar.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: