Menampilkan teks koordinat Point

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)
)

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

Perintah-perintah Layer (lsp)

Berikut ini merupakan beberapa perintah untuk layer. Berikut program autolispnya :

;Command untuk mematikan (off) layer pada object yang dipilih/select.
;Masukan command/perintah OL untuk menjalankan program ini.
(defun c:ol ()
   (setvar "cmdecho" 0)
   (setq se (entsel "\nSelect Layer: "))
   (setq c (cdr (assoc 8 (entget (car se)))))
   (command "-layer" "off" c "")
   (if (/= se nil)
   (while (< 0 1)
     (setq se (entsel "\nSelect Layer: "))
     (setq c (cdr (assoc 8 (entget (car se)))))
     (command "-layer" "off" c "")
   ))
)

;command untuk menampilkan/menghidupkan semua layer.
;Masukan command/perintah LP untuk menjalankan program ini.
(defun c:lp ()
   (command "-layer" "on" "*" "" "")
)

;command untuk freeze layer pada object yang dipilih/select.
;Masukan command/perintah LF untuk menjalankan program ini.
(defun c:lf ()
   (setvar "cmdecho" 0)
   (setq se (entsel "\nSelect Layer: "))
   (setq c (cdr (assoc 8 (entget (car se)))))
   (command "-layer" "freeze" c "")
   (if (/= se nil)
   (while (< 0 1)
     (setq se (entsel "\nSelect Layer: "))
     (setq c (cdr (assoc 8 (entget (car se)))))
     (command "-layer" "freeze" c "")
   ))
)

;command untuk menampilkan/thaw semua layer yang di-freeze.
;Masukan command/perintah LT untuk menjalankan program ini.
(defun c:lt ()
   (setvar "cmdecho" 0)
   (command "-layer" "thaw" "*" ""))
 
;command untuk menampilkan object pada layer yang dipilih/select dan mematikan (off) layer yang lainnya.
;Masukan command/perintah LO untuk menjalankan program ini.
(defun C:lo () (setq ent(entget (car (entsel))))
               (setq a (cdr (assoc 8 ent)))
               (command "layer" "s" a "off" "*" """")
)


;command untuk mengembalikan color layer pada object yang dipilih/select ke color aslinya (bylayer).
;Masukan command/perintah CGC untuk menjalankan program ini.
(defun C:cgc ()
   (setvar "cmdecho" 0)
   (setq a (ssget))
   (COMMAND "change" a "" "p" "c" "bylayer" "" "")
)

;command untuk mengganti color object ke color no. 8
;Masukan command/perintah C8 untuk menjalankan program ini.
(defun C:c8 ()
   (setvar "cmdecho" 0)
   (setq a (ssget))
   (command "change" a "" "p" "c" "8" "" "")
)

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 beberapa perintah yang terdapat pada program autolisp tersebut, diantaranya : OL, LP, LF, LT, LO, CGC & C8.

Silahkan dicoba.. :D