Mengubah warna objek sesuai kode warna

 Ada saatnya ketika menggambar dengan CAD (Autocad, Bricscad atau yang sejenisnya) ada perintah-perintah yang sering kita ulang-ulang prosesny, misalnya merubah warna objeck/entiti, mengganti isi text dengan nomer berurutan dalam nomor urut daftar gambar, menggambar titik lampu dengan jarak tertentu, dan sebagainya. Pernah terpikir ngga kalau langkah-langkah dalam penggambaran tersebut bisa dibuat lebih ringkas atau kerennya di "otomatiskan".

sebagai contoh saat ingin mengubah warna suatu objek, umumnya langkah-langkahnya adalah sebagai berikut :

1. Memilih objek yang akan diganti warrnanya.

2. Kemudian ke bagian control color di toolbar Entity Propertis dan memilih warna yang diinginkan.

 

pada saat memilih warna, jika warnanya adalah warna standar maka kita tinggal memilihnya, namun kalau warnanya bukan warna yang standar kita akan klik "select color".

Tentu saja kita bisa menggunakan perintah "Match Properties" untuk meng"copy" warna dari objek yang sudah ada terlebih dahulu. Tapi Autocad/ Bricscad bisa melakukan tugas ini lebih ringkas, salah satunnya dengan program bantu Autolisp. Cara ini sebenarnya mudah jika kita sudah tahu perintah dasar untuk mengubah warna tersebut tanpa menggunakan toolbar, yaitu dengan mengetikan perintahnya di "command prompt". Berikut langkah-langkahnya.

1. ketik .chprop tekan spasi/enter, muncul perintah : Select entities to change: (pilih objek yang akan diubah warnanya).

2. Property to change:  Color/LAyer/LType/ltScale/LWeight/Thickness: (ketik C)

3. New color <varies>: (ketik nomer warna yang diingkinkan, 8 misalnya)

4. Enter 2 kali untuk mengakhiri perintah.

Nah dengan autolisp kita bisa meringkasnya sebagai berikut.

1. ketik perintah yang diinginkan misal c8, tekan spasi/enter. pilih objek yang akan diubah warnanya.

2. Enter/spasi 1 kali.

Berikut penulisan lispnya :

(defun c:C8() (command ".chprop" (ssget) "" "C" "8" "" )(PRINC))

penjelasan singkatnya (panjangnya silahkan googling aja ya atau boleh saja ditanyakan jika belum paham) sebagai berikut:

c:c8 -> c8 adalah perintah cad baru kita sesuai keinginan, disini dibuat c8 agar lebih mudah diingat kalau warna yang diinginkan adalah warna 8 dan dibuat sependek mungkin. dan tentu saja pilih nama perintah yang sebelumnya belum ada biar tidak menimpanya.

"8" ->angka 8 adalah warna yang kita inginkan.

jadi kalau ingin membuat objek warna merah perintahnya seperti berikut :

(defun c:C1() (command ".chprop" (ssget) "" "C" "1" "" )(PRINC))




membuat objek warna kuning  :

(defun c:C2() (command ".chprop" (ssget) "" "C" "2" "" )(PRINC))

membuat objek warna hijau  :

(defun c:C3() (command ".chprop" (ssget) "" "C" "3" "" )(PRINC))




dan setrusnya....