AutoLISP program: Reset property ke ByLayer

typing_keyboard.jpg

Saya termasuk yang tidak suka kalau ada yang meng-override properti objek ke selain ByLayer.

Jika saya menerima gambar yang harus saya teruskan, saya usahakan mengembalikannya 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" "")

Bagi yang berminat belajar AutoLISP dari basic bersama saya (saya juga lagi belajar) bisa mengikuti tutorialnya di: http://cad-notes.com/contents/autolisp-articles/

Semoga berguna!