Menghitung Luas Permukaan Object di AutoCAD

Admin kai-bekasi
Pada proses manufaktu terutama untuk finishing. Baik itu menggunakan cat atau polish tentu memerlukan data luas permukaan benda agar dapat di estimasi lama pengerjaan dan kebutuhan cat atau amplas. Salah satu tools yang dapat digunakan di AutoCAD adalah menggunakan AutoLisp. Dimana dengan sedikit script kita dapat menghitung dengan cepat luas permukaan sebuah object.
DSC_1776
Adapun syarat yang diperlukan adalah :
  1. Benda harus dalam bentuk 3D
  2. Benda di explode agar menjadi surface atau 2D region
Seperti yang sudah dijelaskan sebelumnya bahwa dengan script AutoLisp kita dapat mempercepat proses perhitungan. Berikut saya akan coba jabarkan penjelasan dari script AutoLisp.
(vl-load-com) ; Digunakan untuk mengaktifkan fungsi Visual Lisp
(setq ss (ssget “_X” ‘((0 . “REGION”)))) ; Digunakan untuk mengambil semua data object 2D region yang ada di tab model AutoCAD
(setq len (sslength ss)) ; Digunakan untuk menghitung jumlah object terpilih
(setq area ()) ; Menyiapkan data nil yang digunakan untuk penampungan data pada saat proses looping / array
(setq i 0) ; Setting increment data dimulai dari 0
(repeat len ; proses pengulangan
(setq ob (ssname ss i)) ; mengambil nama dari object terpilih
(setq vevo (vlax-ename->vla-object ob)) ; mengubah nama object menjadi object
(setq _area (vla-get-area vevo)) ; mengambil data area
(setq area (cons _area area)) ; mengumpulkan semua data area object terpilih
(setq i (1+ i)) ; peningkatan nilai i menjadi kelipatan 1
)
;Convert mm2 to M2
(setq TotalArea (/ (apply ‘+ area) (expt 10 6))) ; menjumlahkan semua nilai yang ada dalam list dalam satuan mm2 kemudian di convert menjadi m2.
Divariable TotalArea kita bisa mendapatkan jumlah total luas area pada sebuah object dalam satuan m2. Dengan demikian maka dari data luas permukaan dapat di konversi menjadi jumlah cat yang digunakan atau berapa lama waktu polishing yang diperlukan.
Semoga artikel sederhana ini bisa bermanfaat.

Comments