Menghitung panjang talang-jurai (AutoLISP)

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.

[sourcecode language='cpp']

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

[/sourcecode]

Bila pusing berlanjut hubungi tentangcad terdekat.