[CAD-MAP-20]:Autolisp untuk Menampilkan Tabel Peta Bidang di Autocadmap dan Microsoft Excel

Reference : [CAD-MAP-19]: Membuat tabel Microsoft Access dari Hasil Topology Analysis di AutoCAD Map (Lanjutan-2: Menjalankan Autolisp)
Platform : AutocadMap
Download : download
     

Pada tulisan [CAD-MAP-19]: Membuat tabel Microsoft Access dari Hasil Topology Analysis di AutoCAD Map (Lanjutan-2: Menjalankan Autolisp) tabel hasil topology analisis disimpan dalam bentuk database microsoft access. Pada tulisan kali ini akan diuraikan bagaimana cara melakukan topology analisis dengan menggunakan autolisp dan menampilkan hasilnya dalam bentuk block attribute dan spreadsheet excel.

Fungsi isi block attribute diambil dari fungsi yang dibuat oleh Lee Mac sedangkan untuk proses penulisan ke Microsoft Excel diambil dari http://cadtips.cadalyst.com/export/export-text-a-drawing-excel-spreadsheet.

Contoh aplikasi penggunaan fungsi overlay ini adalah membuat table peta bidang pada pekerjaan PTSL yaitu membuat tabel yang berisi informasi kolom / field nomer urut bidang, nomer identifikasi bidang dan luas tanah.

Secara garis besar, tahapan untuk melakukan proses pembuatan tabel bidang tanah:

  1. Persiapan dan Pengecekan Standard Layer.
  2. Melakukan Proses Overlay Topology.
  3. Membuat Tabel Daftar Tanah

1. Persiapan dan Pengecekan Standard Layer.

1.a. Copy file program autolisp dan block ke folder Support File Search Path.

Copy files dibawah ini ke salah satu folder Support File Search Path:

image

Sedangkan cara menegetahui file support path, ketik pada command: options

kemudian pilih File>>Support File Search Patah :

image

1.b. Load/Panggil program autolisp.

  • Ketik pada command:appload
  • pilih file: tab_nib.lsp
  • click Load

Agar program selalu dipanggil atau di-uploaded saat program autocadmap dijalankan, tambahakan program tab_nib.lsp di [Startup Suite]

1.c. Cek insertion point text dan standard layer

Syarat proses overlay untuk pembuatan table adalah:

No Keterangan Tindakan
1. Topology bidang sudah terbuilt sempurna atau topology dengan centroid NIB sudah bebas dari kesalahan Lakukan re-build topology sebelum proses dilakukan
2. Harus ada hanya satu NUB (Nomor Urut Bidang) dan Satu Nama di dalam gambar bidang tanah Geser insertion point text NUB dan Nama ke dalam bidang tanah, jika ditemukan insertion point NUB dan Nama ada di luar bidang tanah
3 Nama harus tertulis dalam satu baris Jika nama tertulis dalam lebih dari satu baris, maka penulisan nama tersebut harus digabung menjadi satu.
4 Layer untuk text nub: tn_nub
Layer untuk text nama: tn_nama
untuk merubah layer ke tn_nub, ketik di command:z_lu
untuk merubah ke layer tn_nama, ketik di command:z_ln

2. Melakukan Proses Overlay Topology.

Proses overlay dijalankan setelah syarat-syarat pada langkah 1.c sudah terpenuhi.

Ketik pada command:z_xdata

sehingga keluar notifikasi:

Overlay successfully created.

Hasil proses overlay ini akan terbentuk object titik pada layer [nub_nib] di tiap-tiap insertion point text NUB dan text Nama. Jika object titik tidak terlihat, ketik di command:pdmode, kemudian masukkan value=3.

Command: pdmode
Enter new value for PDMODE <3>:

image

Titik merah adalah, titik hasil topology overlay yang berisi informasi NIB, NUB, Nama dan Luas.

Untuk melihat data hasil overlay, ketik di command:adeeditdata

kemudian pilih salah satu titik di dekat nub, misal nub 18, maka akan ditampilkan informasi sebagai berikut:

image

Pada tabel di atas sudah terbentuk tabel korelasi atau link antara NIB dan NUB.

kemudian pilih juga titik di dekat text nama, maka akan ditampilkan informasi sebagai berikut:

image

Pada tabel di atas sudah terbentuk korelasi atau link antara NIB dan Nama Pemilik.

Gabungan antara NIB,NUB dan luas akan dibuat pada tahap berikutnya.

3. Membuat Tabel Daftar Tanah.

Ketik di command:Z_TABELPBT

Kemudian pilih lokasi tabel di autocadmap.

Hasil tabel di autocad dan excel:

image

==selamat mencoba===

16 thoughts on “[CAD-MAP-20]:Autolisp untuk Menampilkan Tabel Peta Bidang di Autocadmap dan Microsoft Excel

      1. sudah dilakukan sperti tahaapan di atas tetapi kenapa punya saya tidak muncul tabelnya ya

    1. Assalamualaikum, wr.wb
      Alhamdulillah autolisp sudah saya coba dan berhasil. Hal ini sangat membantu saya menyelesaikan pekerjaan di kantor. Kebetulan saya bekerja di BPN.
      Mau tanya juga, apakah ada autolisp untuk menyusun dan merapikan teks dalam bidang ya min? Soalnya saya sering mendapat data autocad dengan atribut seperti nub, nib dll tidak rapi dalam bidangan, sehingga harus merapikan teks itu secara manual satu -satu. Mohon pencerahannya. Terimakasih

  1. mau tanya pak.
    di autocad, object seperti garis, polyline atau arsiran ada atribut seperti di arcgis tidak? yang bisa kita edit. misal, pada suatu polyline, atrributnya : penggunaan tanah : sawah, kepemilikan : besama, dll
    thx

  2. Terima kasih pak, sungguh sangat membantu.. πŸ™‚ Seandainya tabel excel nya mau ditambahin kolom koordinat center X,Y bagaimana pak LISP nya? terimakasih sebelumnya pak.

    1. pelajari dulu autolispnya…saya lagi belum ada waktu buat coding lagi. kalo tanpa lisp, silakan cari di help tentang data extraction

  3. Siap pak, soalnya yg bikin menariknya itu di autolispnya pak πŸ™‚ filenya gk makan space dibanding objectARX .net… yang bikin bingung ekstraksi data dari Properties(center) sedangkan data yang lain dari Object Data.. πŸ™‚ klo pakai .net bisa sih pak, tp ngodingnya kebanyakan, jadinya memakan space HD dibandingkan .lsp πŸ™‚ (galau antara appload dan netload) :).. terima kasih pak buat waktunya.. sukses..

  4. klo pakai fungsi di bawah ini apa bisa urut ya pak dengan data lainnya?
    (setq ent_elemtpm(ssname ss_elemtpm(setq s (1- s))))
    (setq ctr_coord(cdr(assoc 10(entget ent_elemtpm))))
    ctr_coord = koordinat NIB.. πŸ™‚

  5. sudah saya coba, step terakhir gagal, pas saya ketik command Z_TABELPBT muncul bad argument type: stringp nilAutoCAD variable setting rejected: “cmddia” nil (saya pakai autocad map 2012)

Leave a comment