Kumpulan program bantu/ autolisp untuk Mekanikal Elektrikal dan Plambing

 Biar lebih mudah dan ringkas, saya buatkan ringkasan-ringkasan autolisp yang saya buat sendiri, untuk autolisp yang saya download dari situs lain rencananya saya tampilkan dihalaman lain. Kalau ada yang minta dibuatkan autolisp untuk keperluan sendiri atau perusahaan, silahkan kirim email via baidinbaid@gmail.com. Bisa tidaknya saya buat programnya saya kasih info secepatnya. Program yang sudah jadi  nantinya saya buatkan versi online-nya (gratis). Dan jika berkenan programnya bisa dipakai untuk umum nanti program akan saya upload disini. 

Untuk detil dan tempat downloadnya bisa diklik nama programnya.
--> -->

No	Nama Program	Fungsi	Keterangan
1	JumKoma	Menjumlahkan Teks dengan desimal koma	Bricscad dan Autocad
2	JumTitik	Menjumlahkan Teks dengan desimal titik	Bricscad dan Autocad
3	vacDuct	Sizing ducting AC	Bricscad dan Autocad
4	Hazen	Ukuran pipa dan pressure drop dengan Hazen	Bricscad dan Autocad
5	Genset	Menampilkan data genset	Bricscad dan Autocad
6	pNFPA	Menampilkan data pompa sesuai NFPA/SNI	Bricscad dan Autocad
7	ukGrillDiff	Kalkulator ukuran grill diffuser	Bricscad dan Autocad
8	fu2flow	Konversi fu ke flow	Bricscad dan Autocad
9	fuPipa	Diameter pipa berdasar fu	Bricscad dan Autocad
10	kebAir	Menampilkan data kebutuhan air	Bricscad dan Autocad
11	ffEquip	Skedul Peralatan Utama Pemadam	Bricscad dan Autocad
12	kapPipaAirHuj	Kapasitas pipa air hujan	Bricscad dan Autocad
13	diaDebFrKec	Mencari diameter dan debit pipa	Bricscad dan Autocad
14	Dinding	Menggambar dinding dengan cepat	Bricscad dan Autocad
15	SisPoPK	Membuat sistem pompa pemadam sesuai SNI/NFPA	Bricscad dan Autocad

-----------ooo------------

Tabel/ Datasheet Generator Set dengan autolisp (Cummins Power Generation 30-1340 kW 50Hz)

 Tadinya data yang tersedia dalam bentuk jpeg dengan tulisan yang kecil-kecil dan agak buram.

Data ini memang berasal dari data tahun lama. Jika ada rekan-rekan yang punya data baru silahkan dishare. Mudah-mudahan bisa update.

Perintah yang digunakan : genset

Tampilan :

Klik disini untuk Bricscad.

Klik disini untuk Autocad.

Fungsi cond

Format penulisan : (cond  [ (test1  expressions1) [ (test2  expressions2) ... ]] )

Fungsi ini adalah varian Lisp dari fungsi "switch / case" pada bahasa pemrograman lainnya, fungsi "cond" ini menggabungkan beberapa fungsi "if + then" menjadi ekspresi yang ringkas.

Argumen:

test1 : ekspresi Lisp apa pun; jika mengevaluasi ke non-NIL, maka kode cabangnya diproses; T dapat

            digunakan sebagai opsi default terakhir.

expressions1 : ekspresi lisp, argumen yang dieksekusi jika kondisi pengujian berhasil.

Return Value (Nilai balik/ nilai yang dikembalikan)

Nilai ekspresi terakhir dalam sublist. Jika hanya ada satu ekspresi dalam sublist (yaitu, jika hasilnya tidak ada), nilai ekspresi pengujian akan dikembalikan. Jika tidak ada argumen yang diberikan, "cond" mengembalikan nihil.

Catatan tambahan :

Fungsi "cond" menerima sejumlah daftar sebagai argumen. Ini mengevaluasi item pertama dalam setiap daftar (dalam urutan yang diberikan) hingga salah satu item ini mengembalikan nilai selain nil, yang kemudian mengevaluasi ekspresi yang mengikuti tes yang berhasil.

Contoh :

;;contoh 1

(setq aa 10)

(setq bb 15)

(setq cc nil)

(cond )    ;; menghasilkan "nil"

(cond aa) ;; menghasilkan "10"

(cond aa bb) ;; menghasilkan "10"

(cond cc bb) ;; menghasilkan "15"

(cond cc bb) ;; menghasilkan "15"

(cond (aa bb) ("nilai lain")) ;; menghasilkan "15"

(cond (cc bb) ("nilai lain")) ;; menghasilkan "nilai lain"

;;contoh 2 (fungsi "cond" untuk menghasilkan nilai absolut)

(setq aa -10)

(cond ((minusp aa) (- aa)) (aa)) ;; menghasilkan "10"

(cond ((minusp aa) (- aa)) (t aa)) ;; menghasilkan "10"

(setq aa 10)

(cond ((minusp aa) (- aa)) (aa)) ;; menghasilkan "10"

(cond ((minusp aa) (- aa)) (t aa)) ;; menghasilkan "10"

;;contoh 3 (fungsi "cond" untuk setting input default)

(initget "Apel Jambu Pisang")

(setq pilih (cond ((getkword "Pilih buah yang kamu sukai [Apel/Jambu/Pisang] <Apel> : ")) ("Apel")))

jangan salah tulis seperti ini ya, 

(setq pilih (cond (getkword "Pilih buah yang kamu sukai [Apel Jambu Pisang] <Apel> : ") ("Apel") )

karena ini akan membuat nilai p selalu berisi string "Pilih buah yang kamu sukai [Apel Jambu Pisang] <Apel> : ""

ps : kalau mengacu ke Autocad format penulisan fungsi "cond" adalah sebagai berikut :

(cond [((test) (result ...)) ...])

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