Reference | : | [CAD-MAP-018]: Aplikasi Topology Analysis di AutoCAD Map untuk Mengambil Nilai Text dalam Polygon (disertai dengan tahapan pembuatan Autolisp) |
Platform | : | Autocad Map |
Download File | : |
Tulisan sebelumnya di [CAD-MAP-018]: Aplikasi Topology Analysis di AutoCAD Map untuk Mengambil Nilai Text dalam Polygon (disertai dengan tahapan pembuatan Autolisp) telah diuraikan langkah-langkah untuk membuat topology analysis melalui perintah / tools yang ada di autocadmap. Pada langkah-langkah tersebut juga disertakan tahapan untuk membuat program autolispnya. Autolisp di bawah hasil salinan code autolisp yang telah di post tersebut:
(defun c:atop () (setq list_od (list "OD_NIB" "OD_BERKAS" "OD_NAMA"));list object data yang akan dibuat (setq i -1);setting index untuk ambil ;;3. Proses Overlay (setq tp_node1 "BERKAS" tp_node2 "NAMA" tp_poly "Batas_Persil") ;;overlay pertama ;;overlay kedua (setvar "cmddia" cmddia_old) |
Cara menjalankan kode di atas:
1. Copy code di atas ke notedpad kemudian simpan file dengan extensi .lsp misal diberi nama analisa_topologi.lsp.
2. Buka file autocad yang akan diproses. Karena autolisp tersebut dikembangkan dari file yang sudah ada maka jika akan menggunakan fila yang lain maka syarat-syarat berikut harus dipenenuhi dalam file tersebut harus sesuai dengan perintah / fungsi yang ada di autolisp yaitu:
Fungsi dalam Autolisp | Data yang harus ada |
(setq list_layer (list "080201" "tn_lai_berkas" "tn_lai")) |
Object text NIB harus terletak di layer: 080201 Object text BERKAS harus terletak di layer: tn_lai Object text NAMA harus terletak di layer: tn_lai_berkas |
(setq tp_node1 "BERKAS" tp_node2 "NAMA" tp_poly "Batas_Persil") |
Node Topology dari object text BERKAS bernama : BERKAS Node Topology dari object text NAMA bernama : NAMA Polygon Topology dari batas persil dengan centoid object NIB bernama Batas_Persil |
Jika nama layer dan nama topology berbeda dengan di atas, code lisp pada file analisa_topologi.lsp bisa disesuaikan dengan file yang akan diproses dengan merubah di bagian statement di atas.
3. Setelah file dibuka, pastikan bahwa topology BERKAS, NAMA dan Batas_Persil telah di-Load Topology dan juga telah ter-connect ke ODBC database.
4. Untuk memastikan bahwa topology siap diproses, setelah di load topology, lakukan re-create di masing-masing topology.
4. Load applikasi atau program autolisp dengan mengetik di command:appload
5. Pilih file analisa_topologi.lsp kemudian click [Load]. Jika ada pesan, File Loading – Security Concern, Check pilihan [Always load this application] kemudian click [Load]
6. Ketik pada command:atop
7. Pada saat autolisp dijalankan akan ditampilakn urutan perintah proses overlay.
Command: ATOP Select objects: Select objects: Select objects: Enter target layer (? for list) <080201>: 0 Enter result data table (? for list) <>: OD_BERKAS_PRSL Overlay successfully created. Enter target layer (? for list) <0>: 0 Enter result data table (? for list) <>: OD_NAMA_PRSL Overlay successfully created. |
8. Proses selanjutnya adalah Menyimpan object data OD_NAMA_PRSL, OD_BERKAS_PRSL dan ke Microsoft access seperti tahapan di [CAD-MAP-018]: Aplikasi Topology Analysis di AutoCAD Map untuk Mengambil Nilai Text dalam Polygon (disertai dengan tahapan pembuatan Autolisp) dimulai dari tahap ke E. Menyimpan Object Data ke Microsoft Access.
==========
Silakan dicoba dan terimakasih telah berkunjung di blog saya