Home » » Cara Menghitung Panjang Sebuah Arc dalam AutoCAD

Cara Menghitung Panjang Sebuah Arc dalam AutoCAD

Masih ingat gak pelajaran sekolah dulu,pelajaran matematika tentang cara mengukur sebuah garis busur,atau istilahnya bagaimana cara mengukur sebuah garis yang membentuk garis lengkung ( arc )...?

Dalam Matematika cara/rumus untuk mengukur panjang garis lengkung ( arc ) adalah (pi x diameter) x (besar sudut arc /360).nah dalam autoCAD cara menghitung panjang sebuah garis lengkung/arc banyak sekali jenisnya,ada yang menggunakan metode Autolisp.


Adapun cara mengukur / menghitung panjang sebuah garis yang membentuk sebuah arc adalah sbb :
[sourcecode language='cpp']
(defun c:gt (/)
;;;fungsi meubah nilai radian ke derajat
(defun rad_to_deg (nrad)(setq ndeg (/ (* nrad 180) pi)) ndeg)
;;;prosedur mendapatkan input
(setq get_arc (entget (car (entsel))))
(setq get_radius_arc (cdr (assoc 40 get_arc)))
(setq get_sudut_awal (rad_to_deg (cdr (assoc 50 get_arc))))
(setq get_sudut_akhir (rad_to_deg (cdr (assoc 51 get_arc))))
;;;prosedur menghitung panjang busur arc
(if (> get_sudut_awal get_sudut_akhir)
(setq get_sudut_akhir2 (+ 360 get_sudut_akhir))
get_sudut_akhir2
)
(setq selisih_sudut (- get_sudut_akhir2 get_sudut_awal))
(setq get_busur_arc (* 2 pi get_radius_arc (/ selisih_sudut 360)))
;;;prosedur menampilkan nilai
(terpri)
(if get_radius_arc (princ (strcat “Radius arc = ” (rtos get_radius_arc 2 4)))(terpri))
(terpri)
(if get_sudut_awal (princ (strcat “Sudut awal = ” (rtos get_sudut_awal 2 0)))(terpri))
(terpri)
(if get_sudut_akhir (princ (strcat “Sudut akhir = ” (rtos get_sudut_akhir 2 0)))(terpri))
(terpri)
(if get_busur_arc (princ (strcat “Panjang busur arc = ” (rtos get_busur_arc 2 4))))
(princ)
)
[/sourcecode]
Coba bandingkan dengan LIST (perintah autocad)
Bila pusing berlanjut, hubungi tentangcad terdekat.


Muhtar Arifin AutoCAD Tangerang Updated at : 4:18 PM

0 comments:

Post a Comment

RECENT POST