Rabu, 30 November 2022

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.



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.


Senin, 07 November 2022

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

Jumat, 04 November 2022

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