Untuk menghitung RAB daripada menggunakan gambar jadi terus diukur dengan penggaris lebih baik menggunakan gambar autocad langsung.
Untuk luasan bisa menggunakan perintah area dengan bantuan polyline tertutup. Dibawah ini terdapat kode autolisp sederhana untuk menghitung panjang talang / jurai sebenarnya dari gambar denah atap dan ditampilkan dalam bentuk dimensi.
(defun c:pt (/ vtalang oby obybaru sudutatap nilai nmiring obybaru) ;;;fungsi global ;;fungsi kalkulasi panjang miring talang (defun vtalang (val sudut / tan a b nvtalang) (defun tan (tanval / nval);fungsi tangen dalam derajat (setq nval (/ (sin (/ (* tanval pi) 180)) (cos (/ (* tanval pi) 180)) ) ) nval ) ;; (setq a val) (setq b (* val <br />(sin (/ (* 30 pi) 180)) ;=SIN(30*PI()/180) (tan sudut) ) ) (setq nvtalang (sqrt (+ (* a a) (* b b)))) nvtalang ) ;;fungsi input (defun getsudut (/ num) (initget 1) (setq num (getreal "Sudut atap: ")) num ) ;;;prosedur global (setq oby (entget (nth 0 (entsel "Select dimensi talang/jurai: ")))) ;get entity dimensi datar talang (terpri) (setq sudutatap (getsudut)) (setq nilai (cdr (assoc 42 oby))) (setq nmiring (strcat "Lasli = " (rtos (vtalang nilai sudutatap) 2 2))) ;;ubah dimensi dengan nilai panjang sebenarnya talang/jurai (setq obybaru (subst (cons 1 nmiring) (assoc 1 oby) oby)) (entmod obybaru) (princ) ) ;;;end
Bila pusing berlanjut hubungi tentangcad terdekat.
Ditulis oleh Anang Susanto
Nama aslinya sih… Anang Susanto. Saat awal kuliah di Sipil D3 ITS Surabaya, karena di kelas terlalu banyak yang namanya Anang. Atas saran teman2 dipanggil nama belakangnya semua, jadilah Santos sampai sekarang. Lahir di Aceh, tapi sejak TK udah di Jawa. Mengenal CAD, karena dulu sering diminta tolong menggambarkan saat masih STM di Sidoarjo. Keterusan jadi drafter freelance sampai sekarang. Waktu kecil pernah bermimpi jadi penulis. Tapi kata orang, gak ada bakat. He… he… Sekarang jadi penulis deh…
Loading ...
