21 May, 2013

AutoLISP program: Reset property ke ByLayer

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!

Sponsor

Tulisan terkait

Cari artikel lain

Custom Search
About Edwin Prakoso

Application engineer yang tersertifikasi sebagai Revit Architecture 2010 certified professional dan AutoCAD 2013 certified professional.
Aktif di komunitas CAD internasional, seperti menjadi AutoCAD expert of the week di AutoCAD Exchange, menulis di Augi World dan juga di blog berbahasa Inggris CAD Notes.
Bagi teman-teman yang suka ngeblog, juga bisa mengunjungi blognya di Tentang Ngeblog.