Software AutoCad sangat membantu dalam pekerjaan, khususnya Penggambaran. Dan dengan AutoCad kita akan begitu mudah dalam melaksanakan pekerjaan Penggambaran, karena di dalam AutoCad terdapat banyak Perintah-perintah (Commands) yang kita butuhkan, sehingga dalam Pelaksanaanya pun untuk mengetik satu perintah masih banyak lagi Kata-kata Perintah atau disebut juga dengan “Keywords” yang harus diketik sesuai kebutuhan kita.
Contoh ; Untuk membuat garis kita ketik “PL / PLINE” (Polyline”), ketika kita klik Titik Garis Pertama maka akan Muncul kata perintah :“Specify next point or [Arc/Halfwidth/Length/Undo/Width]”. Sehingga kita harus memilih lagi Perintah apa yang kita perlukan. Apakah garis selanjutnay kita bikin ARC, atau panjangnya kita bikin berapa, lebar garisnya berapa.
Begitu juga dengan bikin Teks masih banyak pilihan kata yang harus dipilih. Ketika kita ketik Perintah “TEXT” enter maka akan muncul :“Specify start point of text or [Justify/Style]:”.
dan setelah kita pilih kata-kata tersebut maka akan muncul : ”Enter an option [Align/Fit/Center/Middle/Right/TL/TC/TR/ML/MC/MR/BL/BC/BR]:”
dan setelah itu masih banyak lagi yang harus kita ketik untuk menentukan teks yang kita inginkan ; Tinggi teksnya akan dibikin berapa , Rotasinya berapa , dan Stringnya apa…
Untuk menangani masalah tersebut, AutoCad memberi jalan untuk memudahkannya. Karena di dalam AutoCad tersembunyi Bahasa pemrograman yang namanya “AUTOLISP”. Yaitu Tulisan-tulisan dengan bahasa pemrograman / Scripts yang berfungsi untuk menjalankan Perintah dalam AutoCad.
Dan kita bisa membuatnya sendiri AUTOLISP tsb dengan mengetik bahasa Pemrogramannya di NOTEPAD. Sesudah itu untuk mengaktifkan atau menjalankannya di Autocad kita harus mengetik “AP” / “APPLOAD” (Applications Load). Fungsinya untuk memanggil atau memasukan AUTOLISP yang kita bikin di Notepad tadi supaya bisa digunakan.
Proses APPLOAD tsb cukup sekali dilakukan selama AutoCad Aktif ( belum Keluar Window / Close / Exit ), Artinya setiap kita buka File baru harus APPLOAD terlebih dahulu. Kecuali kalau kita ingin supaya AUTOLISP bisa Aktif dan berjalan terus untuk digunakan, Maka kita harus mengetik satu baris kalimat bahasa Pemogramannya di “ACAD” yang terdapat di Autocad. ACAD tsb jenisnya sama yaitu Tulisan bahasa pemrograman yang terdapat di Notepad. Contohnya : Versi AutoCad-nya 2008. maka kita cari dulu file ACADnya di :
“C:\Program Files\AutoCad 2008\Support\Acad2008.lisp”.
Setelah File tsb dibuka, lihatlah Tulisan kalimat kedua dari paling bawah. Disana terdapat Tulisan “ ;; Silent load. ” , Sebelum Tulisan Kalimat ;; Silent load. Tsb, kita Tulis Scriptsnya. Contoh ; File AUTOLISP-nya disimpan di “c:\Program\MyLisp.lsp”.maka Tulislah : (load “c:\Program\MyLisp.lsp”). Atau supaya lebih bagus dan informative lagi, dibawahnya kita tulis lagi Kalimat : (princ “= = = Program MyLisp Sukses = = = ”).
Keuntungan dengan menggunakan AUTOLISP salah satunya bisa mempersingkat waktu Pekerjaan. Karena dari begitu banyak dan luasnya Perintah di AutoCad, Kita bisa menyusunnya di AUTOLISP, dan Sistem kerjanya pun bisa disesuaikan dengan Kebutuhan kita atau Jenis Pekerjaan yang kita pegang.
- LANGKAH PERTAMA YANG HARUS DIPELAJARI
Sebelum mempelajari bahasa Pemrograman dengan AUTOLISP, kenali dan Fahami dulu Fungsi Kata dan Kode – Kode berikut dibawah ini;
Defun : Fungsinya untuk nama Perintah/Command yang akan kita buat. Biasanya ditulis dengan singkat atau inisial dari Command tsb.
Contoh Kalimat Perintah utk membuat Garis :
(defun c:grs()
Setq : Perjanjian / deklarasi dari suatu kata yang mempunyai sifat / karakter, fungsi dan tujuan.
Contoh untuk membuat kotak dengan ukuran panjang = 10m , Lebar = 5 m , dengan nama layer “Kotak”
(setq pjg = 10) (setq lbl 5) (setq lay “Kotak”)
- KODE KODE DALAM AUTOLISP
Kode Untuk “TEXT”
0 : Nama Objek (“Text”)
1 : String
7 : Jenis Teks (contoh : Arial, Romans, Romanc, Dll)
8 : Nama Layer
10 : Titik Alignment Pertama
11 : Titik Alignment Kedua
40 : Tinggi Huruf
50 : Rotasi Teks
51 : Sudut Miring
62 : Warna
Kode Untuk “LINE”
0 : Nama Objek (“Line”)
8 : Nama Layer
10 : Titik Pertama
11 : Titik Kedua / Akhir
39 : Ketebalan Garis
62 : Warna
Kode Untuk “POLYLINE”
0 : Nama Objek (“lwpolyline”)
8 : Nama Layer
10 : Titik Koordinat X,Y dari salah satu Vertex
39 : Ketebalan Garis
40 : Lebar garis Awal
41 : lebar garis Akhir
62 : Warna
90 : Jumlah Vertex
Kode Untuk “CIRCLE”
0 : Nama Objek (“Circle”)
8 : Nama Layer
10 : Titik di Tengah Lingkaran
39 : Ketebalan Lingkaran
40 : Radius Lingkaran
62 : Warna
Kode Untuk “POINT”
0 : Nama Objek (“Point”)
8 : Nama Layer
10 : Lokasi Titik
39 : Ketebalan
62 : Warna
- CONTOH - CONTOH PEMOGRAMAN AUTOLISP
- Untuk Fungsi Select Object (Tunggal / sekali)
(setq e (entsel “\nPilih Objek !”))
- Untuk Fungsi Select Objects (Banyak / Beberapa , bisa beberapa kali,
dan bisa juga semua / All)
(setq ss (ssget))
- Untuk mencari Objek Teks, dengan contoh Teks yang bertuliskan
nama “Saya”
Select dengan Cara Memilih :
(setq ss (ssget ‘((0 . “text”)(1 . “Saya”))))
Select dengan Cara Langsung / All :
(setq ss (ssget “x” ‘((0 . “text”)(1 . “Saya”))))
- Untuk mencari Objek Garis yang layernya dengan nama “mylayer”
(setq ss (ssget ‘((0 . “line”)(8 . “mylayer”))))
Atau dengan cara langsung :
(setq ss (ssget “x” ‘((0 . “line”)(8 . “mylayer”))))
- Untuk Menentukan Posisi Titik
(setq ttk (getpoint “\nKlik Posisi Teks”))
Kalimat-kalimat tsb diatas hanya sebagian dari bahasa Pemrograman AUTOLISP.
Dan Kalimat tsb belum bisa untuk di APPLOAD.,kecuali kalau untuk mencobanya scripts tsb bisa diCopy terus di Paste ke Commandline yang terdapat di AutoCad.
Berikut ini adalah Contoh-contoh Bahasa Pemrograman AutoLisp yang lengkap:
- Untuk mengetahui Layer dari Objek
(defun c:layobj()
(setq el (entsel “\nKlik Objek !”))
(setq lay (cdr (assoc 8 (entget (car el)))))
(Alert “Layernya Adalah : “ lay)
)
- Untuk merubah warna Objek menjadi warna Merah
(defun c:merah()
(setq ss (ssget))
(command “change””single”ss”p””c””red”””)
)
No comments:
Post a Comment