Menjumlahkan Bilangan dalam Text

Materi ini semula saya tulis di kamar sebelah, agar lebih rapi dalam kategori yang saya buat tulisan saya pindah ke sini ya.

Semula punya keinginan menulis materi tentang desain MEP, tetapi setelah  jalan-jalan ke blog tetangga ternyata sudah lumayan banyak juga yang mengulasnya. Dan lagian juga materinya udah bagus-bagus, 

Pikir-pikir sambil memperdalam tentang MEP, daripada  cuma copas materi orang lain, keinginan untuk merperkenalkan program lisp yang saya punya (ada yang asli bikinan sendiri, dikasih temen, atau hasil unduhan).

Nah untuk perkenalan, saya kenalkan lisp asli buatan sendiri, bener-bener saya tulis dari nol, meskipun selang beberapa tahun kemudian saya baru tau kalau ide saya sebenarnya sudah “expired”,  tapi saya masih bangga karena program saya tetap menonjol karena separator pecahan menggunakan koma. Awal idenya sih cuma iseng buat bantu teman-teman yang ada dibagian elektrikal untuk mempercepat mereka buat diagram panel, idenya saat itu sederhana, karena saat itu teman-teman masih menggunakan kalkulator untuk menambah beban pada kolom R,S,T.  Saat itu saya berpikir masa di bricscad/ autocad tidak ada cara yang lebih simpel dan efisien.

Akhirnya setelah sempet pusing dengan sintax lisp lebih dari seminggu akhirnya jadilah program saya. Program ini saya kasih nama “JK” kependekan dari jumlah koma. Program ini untuk menjumlahkan bilangan-bilangan dalam objek “text”  dengan  separator desimal koma. Hasil penjumlahan akan muncul muncul di command prompt, kemudian kita akan diminta memilih satu objek text untuk menulis hasilnya.  

Pada setiap kolom di baris jumlah jika kita menggunakan kalkulator kebayang kan repotnya, nah dengan menggunakan lisp JK, maka akan banyak menghemat waktu. lisp ini aslinya saya buat di Bricscad, kalau ada error di Autocad silahkan diinfokan semoga bisa diperbaiki.

Download JumKoma.des untuk Bricscad

Download JumKoma.vlx untuk Autocad

Saya sertakan juga versi dengan separator desimal titik. Program ini sebenarnya tercipta karena proses pembuatan program JK diatas. Karena memang fungsi bawaan fungsi rtos mengkonversi langsung dari format penulisan desimal dengan separator titik.

Download JumTitik.des untuk Bricscad

Dnloowad JumTitik.vlx untuk Autocad

Aplikasi untuk menghitung pressure drop/ ukuran pipa

Aplikasi ini berdasarkan formula Hazzen-William yang diambil dari nfpa 13. 

perintah : hwps   --> untuk menghitung ukuran pipa

perintah : hwpd  --> untuk menghitung pressure drop

Input program untuk ukuran pipa

input program untuk pressure drop

Klik disini untuk Bricscad

Klik disini untuk Autocad

Aplikasi untuk sizing ducting (Ductolator LISP)

Aplikasi untuk memilih ukuran ducting dalam milimeter berdasarkan flowrate (cfm), tidak dengan rumus atau formula, hanya dengan referensi tabel yang biasa digunakan dalam perencanaan. Intinya tidak ada rumus matematika cuma pengganti tabel aja.

Perintah : vd

Input program

    

Jika pilihan ukuran ducting lebih dari satu maka tinggal ketik angka yang akan dipilih kemudian input meminta agar kita memilih text yang akan diisi ukuran ductingnya. 

 Download untuk Bricscad

 Download untuk Autocad

Mengganti text dengan cepat

 Bagi yang sering mengganti text dengan nilai tertentu, misalnya mengganti text untuk diameter pipa, trik ini mudah-mudahan bisa membantu. misalnya kita cuma memberikan perintah "25" dan text yang dipilih menjadi "25WW-PVC.AW".

(defun c:25(/ ada pil_text ent_text)
(setq ada "true")
(while ada
(setq pil_text (car (entsel "\nPilih Text yang mo diisi!") ))
(if (/= pil_text nil) (setq ada nil))
) ;end while
(setq ent_text (entget pil_text))
(setq ent_text (subst (cons 1 "25WW-PVC.AW") (assoc 1 ent_text) ent_text))
(entmod ent_text)
(princ)
)


Membagi objek dengan blok, untuk penitikan sprinkler dan lampu

Menggambar titik springkler pada instalasi pemadam kebakaran umumnya dengan membagi panjang dan lebar ruangan dengan jumlah tertentu atau bisa juga dengan jarak tertentu. Pada kali ini akan ditunjukkan trik yang sederhana, tapi bisa sangat menghemat waktu.

Yang harus disiapkan agar menjamin lisp bisa jalan adalah blok sudah ada dalam gambar terlebih dahulu. misal nama blok sprinklernya adalah "msp_spr" dan perintah yang akan digunakan adalah "spr", berikut kode lispnya 

(defun c:spr() (command "divide" pause "b" "msp_spr" "Y" pause))

Pada kesempatan yang akan datang saya sertakan lisp yang langsung memilih area dan otomatis mengisi dengan titik-titik sprinkler. 




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....