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