AutoLisp : Mereset Objek ke ByLayer

Ini adalah program AutoLISP sederhana yang mengubah properti semua objek ke ByLayer.
Yang diubah adalah:

1. Color
2. Line weight
3. Line type

Silahkan copy kode dibawah ke notepad, save dengan extension .LSP.
Lalu load ke AutoCAD dan jalankan dengan perintah RST.


(defun c:rst (/ sel1) (setq sel1 (ssget "x")) (command "CHPROP" sel1 "" "COLOR" "BYLAYER" "LWEIGHT" "BYLAYER" "LTYPE" "BYLAYER" "")
Atau klik gambar di Bawah ini untuk download file .LSP :