AutoLisp : Membuat Sebuah Bentangan Box Packing

Kali ini kita akan membahas suatu codingan yang akan membuat ukuran bentangan box packing yang biasa dipergunakan di beberapa perusahaan.

Hanya dengan memasukkan nilai panjang, lebar, dan dalam dari ukuran box itu,maka akan secara otomatis membentuk gambar bentangannya.

Codingan ini sudah di lengkapi dengan pilihan buka tengah dan samping,dan secara otomatis juga memberitahu ukuran packing size dan volume untuk kebutuhan perhitungan container.

Namun masih belum sempurna karena belum ada logo dan embel2nya.

Selamat mencoba, semoga bermanfaat, indahnya berbagi.
(defun c:dus () (initget "Tengah Samping") (setq pil (getkword "\nTentukan jenis bukaan kardus [Tengah/Samping] <tengah> : ")) (setq panjang(getreal "\nMasukkan ukuran panjang kardus ( ukuran dalam ):")) (setq lebar(getreal "\nMasukkan ukuran lebar kardus ( ukuran dalam ) :")) (setq tebal(getreal "\nMasukkan ukuran tebal kardus ( ukuran dalam ) :")) (setq p1'(0.0 0.0 0.0)) ; lokasi awal di posisi 0,0,0 (setq setengahlebar(* lebar 0.5)) (setq gang 3) (cond ((= pil "Tengah") (mid-open)) ((= pil "Samping") (side-open)) ((= pil nil) (mid-open)) ) ) ;-----------------------------------------GARIS PEMBATAS--------------------------------------------- (defun side-open () (setq p2(list (+ (car p1) tebal) (+ (cadr p1) tebal))) (setq p3(list (+ (car p1) tebal gang ) (cadr p1))) (setq p4(list (+ (car p3) panjang) (+ (cadr p1) tebal))) (setq p5(list (+ (car p1) tebal panjang (* gang 2)) (cadr p1))) (setq p6(list (+ (car p4) tebal gang) (cadr p4))) (setq p7(list (car p1) (+ (cadr p1) tebal gang))) (setq p8(list (+ (car p7) tebal) (+ (cadr p7) lebar))) (setq p9(list (+ (car p7) tebal gang ) (cadr p7))) (setq p10(list (+ (car p9) panjang) (+ (cadr p7) lebar))) (setq p11(list (+ (car p7) tebal panjang (* gang 2)) (cadr p7))) (setq p12(list (+ (car p11) tebal) (cadr p10))) (setq p13(list (car p1) (+ (cadr p1) lebar tebal (* 2 gang)))) (setq p14(list (+ (car p13) tebal) (+ (cadr p13) tebal))) (setq p15(list (+ (car p13) tebal gang) (cadr p13))) (setq p16(list (+ (car p15) panjang) (+ (cadr p15) tebal))) (setq p17(list (+ (car p13) tebal panjang (* gang 2)) (cadr p13))) (setq p18(list (+ (car p17) tebal) (+ (cadr p17) tebal))) ;Point mirror (setq mirror1(list (car p13) (+ (cadr p13) (/ tebal 2)))) (setq mirror2(list (+ (car mirror1) tebal) (cadr mirror1))) ;point peletakan teks Packing Size dan Volume (setq p20(list (+ (car mirror1) tebal gang (/ panjang 2)) (+ (cadr mirror1) tebal))) (setq p21(list (+ (car mirror1) tebal gang (/ panjang 2)) (- (cadr mirror1) tebal))) ;Point memberi keterangan kubikasi (setq panluar(/ (+ 20 panjang) 10)) (setq lebluar(/ (+ 10 lebar) 10)) (setq tebluar(/ (+ 10 tebal) 10)) (setq volume(/ (* panluar lebluar tebluar) 1000000)) (setq pack(strcat "PACKING SIZE : "(rtos panluar 2 1) " X " (rtos lebluar 2 1) " X " (rtos tebluar 2 1) " CM")) (setq vol(strcat "VOLUME : "(rtos VOLUME 2 4) " M3 ")) ;Point pembuatan gambar (SETVAR "OSMODE" 0) (setvar "cmdecho" 0) (command "ctab" "model") (command ".rectangle" p1 p2) (Setq box1 (entlast)) (command ".rectangle" p3 p4) (Setq box2 (entlast)) (command ".rectangle" p5 p6) (Setq box3 (entlast)) (command ".rectangle" p7 p8) (Setq box4 (entlast)) (command ".rectangle" p9 p10) (Setq box5 (entlast)) (command ".rectangle" p11 p12) (Setq box6 (entlast)) (command ".rectangle" p13 p14) (command ".rectangle" p15 p16) (command ".rectangle" p17 p18) (command "mirror" box1 box2 box3 box4 box5 box6 "" mirror1 mirror2 "N") (COMMAND "TEXT" "J" "MC" p20 (/ tebal 4) "0" pack) (COMMAND "TEXT" "J" "MC" p21 (/ tebal 4) "0" vol) ;(setvar "CTAB" LAY) (SETVAR "OSMODE" 55) (setvar "cmdecho" 1) (princ) ) ;-----------------------------------------GARIS PEMBATAS--------------------------------------------- (defun mid-open () (setq p2(list (+ (car p1) tebal) (+ (cadr p1) setengahlebar))) (setq p3(list (+ (car p1) tebal gang ) (cadr p1))) (setq p4(list (+ (car p3) panjang) (+ (cadr p1) setengahlebar))) (setq p5(list (+ (car p1) tebal panjang (* gang 2)) (cadr p1))) (setq p6(list (+ (car p4) tebal gang) (cadr p4))) (setq p7(list (car p1) (+ (cadr p1) setengahlebar gang))) (setq p8(list (+ (car p7) tebal) (+ (cadr p7) tebal))) (setq p9(list (+ (car p7) tebal gang ) (cadr p7))) (setq p10(list (+ (car p9) panjang) (+ (cadr p7) tebal))) (setq p11(list (+ (car p7) tebal panjang (* gang 2)) (cadr p7))) (setq p12(list (+ (car p11) tebal) (cadr p10))) (setq p13(list (car p1) (+ (cadr p1) setengahlebar tebal (* 2 gang)))) (setq p14(list (+ (car p13) tebal) (+ (cadr p13) lebar))) (setq p15(list (+ (car p13) tebal gang) (cadr p13))) (setq p16(list (+ (car p15) panjang) (+ (cadr p15) lebar))) (setq p17(list (+ (car p13) tebal panjang (* gang 2)) (cadr p13))) (setq p18(list (+ (car p17) tebal) (+ (cadr p17) lebar))) ;Point mirror (setq mirror1(list (car p13) (+ (cadr p13) setengahlebar))) (setq mirror2(list (+ (car mirror1) tebal) (cadr mirror1))) ;point peletakan teks Packing Size dan Volume (setq p20(list (+ (car mirror1) tebal gang (/ panjang 2)) (+ (cadr mirror1) tebal))) (setq p21(list (+ (car mirror1) tebal gang (/ panjang 2)) (- (cadr mirror1) tebal))) ;Point memberi keterangan kubikasi (setq panluar(/ (+ 20 panjang) 10)) (setq lebluar(/ (+ 10 lebar) 10)) (setq tebluar(/ (+ 10 tebal) 10)) (setq volume(/ (* panluar lebluar tebluar) 1000000)) (setq pack(strcat "PACKING SIZE : "(rtos panluar 2 1) " X " (rtos lebluar 2 1) " X " (rtos tebluar 2 1) " CM")) (setq vol(strcat "VOLUME : "(rtos VOLUME 2 4) " M3 ")) ;Point pembuatan gambar (SETVAR "OSMODE" 0) (setvar "cmdecho" 0) (command "ctab" "model") (command ".rectangle" p1 p2) (Setq box1 (entlast)) (command ".rectangle" p3 p4) (Setq box2 (entlast)) (command ".rectangle" p5 p6) (Setq box3 (entlast)) (command ".rectangle" p7 p8) (Setq box4 (entlast)) (command ".rectangle" p9 p10) (Setq box5 (entlast)) (command ".rectangle" p11 p12) (Setq box6 (entlast)) (command ".rectangle" p13 p14) (command ".rectangle" p15 p16) (command ".rectangle" p17 p18) (command "mirror" box1 box2 box3 box4 box5 box6 "" mirror1 mirror2 "N") (COMMAND "TEXT" "J" "MC" p20 (/ tebal 4) "0" pack) (COMMAND "TEXT" "J" "MC" p21 (/ tebal 4) "0" vol) ;(setvar "CTAB" LAY) (SETVAR "OSMODE" 55) (setvar "cmdecho" 1) (princ) )

Silahkan copy kode di atas ke notepad,kemudian save dengan extension .LSP.
Lalu load ke AutoCAD dan jalankan dengan perintah >> dus <<


Note : Perintah untuk membuat garis sepanjang isi nilai Text nya. Ketik: dus

sumber : Heri Agus Purwono 

Buat Yang Ingin Belajar Tentang Coding Autolisp Silahkan Langsung Gabung Saja di Group Facebooknya >>> Belajar Autolisp.coding dasar untuk pemula
 
Atau kalau yang ingin Kursus/Privat Autocad dan Coding AutoLisp juga bisa.Silahkan Add Facebooknya >>> Heri Agus Purwono <<< Untuk Keterangan Lebih Lanjut Silahkan Hubungi Beliau.Di jamin lancar dan jago autocad sampai ke akar akarnya.hehe