Autolisp : Gambar Box Packing

AutoLISP. - Gambar Box Packing coding LISP yang fungsinya sangat membantu Coding ini berisi pembuatan gambar box packing suatu produk yang akan digunakan di divisi produksi.Hanya dengan memasukkan ukuran panjang,lebar dan tebal ukuran packingnya saja,maka secara otomatis gambar bentangan box packing akan terbentuk.

Semoga bermanfaat,selamat mencoba,indahnya berbagi.

Program membuat gambar Dus Packing dengan ukuran dalamnya saja .

Ketikan Perintah >>  DBT  <<utuk mejalankan codingnya.
"DBT" adalah singkatan dari Dus Buka Tengah,dan DBT bisa diganti sesuka hati anda.


(defun c:DBT () (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) (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))) (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 ")) (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) )

Copy coding di atas kemudian paste kan ke dalam Notepad,lalu save as ganti format file ".txt" dengan ".lisp"

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