sekedar hobi otak atik autolisp untuk membantu pekerjaan dalam CAD Engineering
Rabu, 30 November 2022
Menjumlahkan Bilangan dalam Text
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
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
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.
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)
)