Command ini untuk menampilkan teks koordinat dari sebuah point. Cara menggunakan perintah ini sangat sederhana yaitu dengan cara memasukkan point yang akan ditampilkan koordinatnya dan memasukkan titik/point untuk lokasi penempatan teks-nya. Berikut program autolispnya :
(defun c:nn (/ pnt gx gy gz pntt)
(setvar "cmdecho" 0)
(setq pnt (getpoint "\nInsert Point: "))
(setq gx (car pnt))
(setq gy (cadr pnt))
(setq gz (caddr pnt))
(setq pntt (getpoint "\nPick point for text: "))
(command "dim" "leader" pnt pntt "" (strcat "X :" " "(rtos gx 2 3) ", Y :" " "(rtos gy 2 3) ", Z :" " "(rtos gz 2 3)) "exit")
(princ)
)
(setvar "cmdecho" 0)
(setq pnt (getpoint "\nInsert Point: "))
(setq gx (car pnt))
(setq gy (cadr pnt))
(setq gz (caddr pnt))
(setq pntt (getpoint "\nPick point for text: "))
(command "dim" "leader" pnt pntt "" (strcat "X :" " "(rtos gx 2 3) ", Y :" " "(rtos gy 2 3) ", Z :" " "(rtos gz 2 3)) "exit")
(princ)
)
Cara menggunakan program ini :
1. Copy dan paste program tsb ke dalam notepad
2. lalu save file tsb dengan extension .lsp
3. dari dalam program Autocad anda ketikan command / perintah APPLOAD
4. Pilih file lsp anda yg tadi kemudian klik tombol "load"
5. Setelah itu tutup dialog box dengan meng-klik tombol "close"
6. Pada command bar anda bisa masukan perintah nn
Silahkan dicoba.. :D
bagus bgt udah saya coba.. tapi satu-satu yah utk menampilkannya... kalau semisal ada ratusan point di topografi, bagaimana cara utk menampilkan point secara langsung (tdk satu persatu)... terima kasih.
BalasHapusSdh saya buat untuk menampilkan koordinat banyak point sekaligus..
Hapusnanti saya coba kembangin lg biar semua point bisa ditampilakn koordinatnya dengan sekali pilih..
BalasHapusatau mas seto bisa liat di website lain lsp untuk menampilkan koordinat sekaligus.. banyak, di google aja mas.. :D