Memindah Objek/Entity ke Layer Tertentu

Seringkali dalam menggambar kita lupa menge-set layer dulu, sehingga manajemen layer menjadi berantakan.
Berikut lisp untuk memindah objek/entity ke layer tertentu. Defaultnya adalah layer "0". Untuk mengubah nama layer yang diinginkan gunakan perintah "setnm". Perintah untuk memindah layer adalah "mtl". Selamat mencoba....

(setq nm_lyr "0")

(defun c:setnm()
(setq nm_lyr (getstring "Masukkan variabel nm_lyr yang baru = ")) (princ))

(defun c:mtl        () (command ".chprop" (ssget) "" "LA" nm_lyr "" )(princ))

Mengecek Jenis Variabel

Fungsi untuk mengecek jenis atau tipe variabel menggunakan fungsi "type". Sintaknya :

 (type item)

Nilai baliknya bisa berupa : ENAME, EXRXSUBR, FILE, INT, LIST, PAGETB, PICKSET, REAL, SAFEARRAY, STR, SUBR, SYM, VARIANT, USUBR, VLA-object

Membersihkan objek tak terpakai

Untuk mengurangi ukuran file bisa dengan cara membuang objek-objek tak terlihat yang sudah tidak terpakai bisa menggunakan perintah “purge”. Sayangnya di bricscad perintah ini harus diulang beberapa kali sampai benar-benar bersih. Padahal untuk satu purge saja harus sekurang-kurangnya terdiri dari 3 langkah , ini standarnya :

Untuk mempersingkat, berikut rutin lisp yang saya buat :

(defun c:ppa() (repeat 5 (command "purge" "a" "*" "n")) (princ))

Idenya adalah melakukan “purge” sebanyak 5 kali. Tentu saja jika 5 terlalu banyak (sedikit????) tinggal diganti sesuai selera saja.....

Autolisp Site

Beberapa link yang bagus untuk download rutin autolisp :
1. www.cad.corner.ca
2.  www.lee-mac.com

3. https://www.theswamp.org/index.php?board=2.0

4.https://autolisps.blogspot.com/p/home-page.html


Kalo mau belajar lisp link ini boleh juga :
1. www.tentangcad.com/daftar-artikel/seri-tutorial-autolisp/
2. https://communities.autodesk.com/indonesia/

Break objek pada satu titik

Berikut rutin lisp untuk break objek pada satu titik.

(defun c:bf()(command "break" PAUSE "f" PAUSE "@")(princ))