« Posting Lebih Baru
Posting Lama »
No Comments

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.

(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

Bila pusing berlanjut hubungi tentangcad terdekat.

Tulisan Terkait:

  1. [AutoLISP]+ Balloons
    Tadinya mo digabung dengan posting sebelumnya tapi karena gagal terus ya kita buat baru saja. Ini coding tambahan untuk menambahkan balloons dimulai dengan nilai terakhir. Misal nilai terakhir 8 maka balloons akan dimulai dari angka 9 dst. Semoga bisa membantu. ; Dibikin Bapaknya Labib 08/07/08 ; Menambahakan nilai balloons dengan mengambil nilai terakhir dari balloons (prompt "\nKetik Nblea&Pilih nilai balloon terakhir") (defun c:Nblea (/ ent ed item attnamelst val cnt…...
  2. Memasukan Panjang Beam kedalam Material Take Off
    Mungkin judul diatas sering menjadi kendala rekan-rekan yang biasa mengerjakan gambar konstruksi. Dan berfikir bagaimana caranya memasukan panjang sebuah beam kedalam MTO/BOQ.Cara menghitung BOM secara otomatis telah dibahas pada artikel sebelumnya. Dan pada artike kali ini kita akan mencoba menghitung panjang beam/profile secara otomatis. Adapun caranya sebagai berikut : 1. Gunakan dynamic block untuk memecahkan permasalahan diatas. 2. Gunakan linear parameter pada dynamic block untuk mendapatkan data panjang beam yang…...
  3. Membuat perintah singkat temporary dengan AutoLISP
    Bagi pengguna AutoCAD senior pasti tidak asing lagi dengan perintah – perintah singkat dalam command line. Bagi mereka lebih cepat daripada menggunakan toolbar. Perintah-perintah singkat ini disimpan dalam file yaitu acad.pgp. Istilah kerennya untuk perintah-perintah singkat ini adalah command aliases. Untuk kenyamanan, beberapa orang cenderung merubahnya dengan mengedit acad.pgp sesuai dengan selera mereka :-) Hal ini tentu saja merubah default setting pada AutoCAD. Sudah tahu khan efek dari mengubah default setting AutoCAD?

This entry was posted on Kamis, 24 September 2009 and is filed under . You can follow any responses to this entry through the RSS 2.0 feed. You can skip to the end and leave a response.

Your Reply