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