Program LISP Untuk Membuat Cones Dan Bentangannya

Berikut coding untuk membuat cones dan bentangannya :

 

;; Program membuat cones dan bentangannya
;; Version : 1.0
;; Created by : Afrizanirman
;; Date : 25 Nov 2011
;; email : udaaf@yahoo.co.id
;; Telp : 0817 9870990 / 021 92031733
;Global Variable untuk mengkonversi degree ke dalam radian
(defun DTR (x)
(* PI (/ x 180.0))
) ;defun
;Global Variable untuk mengkonversi radian ke dalam degree
(defun RTD (x)
(* x (/ 180.0 PI))
) ;defun

(defun c:cones (/ A B D Th E PT0 PT1 PT2 PT3 PT4 C alpha SB tetha PTD PTD1 PTD2 PTD3 PTD4)
;Mengambil Inputan
(setq A (getreal “\nMasukan Data ID Bagian Bawah:”)
B (getreal “\nMasukan Data ID Bagian Atas:”)
D (getreal “\nMasukan Tinggi Cones:”)
Th (getreal “\nMasukan Thickness:”)
)
;Mengolah Inputan Data
(setq oldOsnap (getvar “OSMODe”))
(setvar “OSMODE” 0)

(setq E (- (/ A 2) (/ B 2))
PT0 (getpoint “\nTentukan Titik Peletakan Cones:”)
PT1 (list (- (car PT0) (/ A 2)) (cadr PT0))
PT2 (list (+ (car PT0) (/ A 2)) (cadr PT0))
PT3 (list (- (car PT0) (/ B 2)) (+ (cadr PT0) D))
PT4 (list (+ (car PT0) (/ B 2)) (+ (cadr PT0) D))
C (sqrt (+ (expt D 2) (expt E 2)))
) ;setq
;Mencari sudut kemiringan
(setq alpha (atan (/ D E)))
;Mencari Radius Blanking
(setq SB (/ (/ A 2) (cos alpha)))
;Mencari Sudut Blanking
(setq tetha (* (/ (/ A 2) SB) 360.0))

;Membuat 2D model using AutoLISP
(command “PLINE” PT1 PT3 PT4 PT2 “C”)
;Mencari titik peletekan blanking
(setvar “osmode” oldosnap)
(setq PTD (getpoint “\nTentukan Titik Peletakan Development:”))

(if (<= tetha 180.0)
(progn
(setq ang (+ 180.0 (/ (- 180.0 tetha) 2))
PTD1 (polar PTD (DTR ang) (- SB C))
PTD2 (polar PTD (DTR ang) SB)
PTD3 (polar PTD (DTR (+ ang tetha)) (- SB C))
PTD4 (polar PTD (DTR (+ ang tetha)) SB)
) ;setq
) ;progn
(progn
(setq ang (+ 90.0 (/ (- 360.0 tetha) 2))
PTD1 (polar PTD (DTR ang) (- SB C))
PTD2 (polar PTD (DTR ang) SB)
PTD3 (polar PTD (DTR (+ ang tetha)) (- SB C))
PTD4 (polar PTD (DTR (+ ang tetha)) SB)
) ;setq
) ;progn
) ;if
(setvar “osmode” 0)
(command “line” PTD1 PTD2 “”)
(command “line” PTD3 PTD4 “”)
(command “arc” “c” PTD PTD1 PTD3)
(command “arc” “c” PTD PTD2 PTD4)
(setvar “osmode” oldOsnap)
(princ)
) ;defun
(princ)

 

 

 

 

 

 

 

 

MENAMPILKAN CENTER OF GRAVITY DI DRAWING

Center of gravity merupakan informasi titik acuan keseimbangan yang sangat diperlukan untuk proses material handling. Dimana titik ini adalah cikal bakal untuk peletekan lifting lug dan pembuatan packing skid. Inilah kawan mengapa kita memerlukan gambar dalam bentuk 3D dimana jikalau menggunakan 2D sangat sulit untuk mendapatkan akurasi yang tepat untuk titik tersebut.

Untuk mendapatkan COG di assembly kita dapat menggunakan feature yang berada di tab view panel Visibility. Perhatikan gambar dibawah ini :

 

Nah yang menjadi permasalahan adalah bagaimana cara menampilkannya digambar kerja karena feature ini tidak tersedia dalam bentuk icon pada dashboard Inventor di drawing environment. Berikut kita akan coba bahas cara menampilkannya di drawing/gambar kerja. Berikut langkah-langkahnya :

Cutting List Untuk Frame Dan Tube

Buat rekan-rekan yang bekerja di fabrikasi dan steel structure pasti berhubungan dengan potongan2 profile baja. Nah iDraf menawarkan satu solusi jitu untuk mempercepat pekerjaan dan menyelesaikan proses pembuatan cutting list menggunakan kombinasi coding LISP dan Dynamic Block. Buat rekan2 yang berminat bisa menghubungi saya di udaaf@yahoo.co.id.

Coding tergolong berbayar. Untuk satu PC di kenakan Rp. 200.000,- . Untuk ketentuan lebih lanjut bisa via Japri.

Berikut hasilnya :

AutoCAD Alert :-)

Buat rekan-rekan muslim walaupun belum waktunya saya ingin mengucapkan :

 

“Taqoballahu minna wa mingkum”

The mountain is always tallest when you’re standing at the bottom

Sebuah ungkapan yang menggelitik saya untuk menulis di blog ini. Ungkapan itu adalah “The mountain is always tallest when you’re standing at the bottom”. Ungkapan ini terasa mengena sekali dimana kadang kala kita merasa berat untuk menimba ilmu. Ketika melihat orang lain mahir kita menjadi minder untuk mempelajari sesuatu dan pada saat awal memulai semua akan terasa sulit tercapai. Hmmmmmmm manusiawi memang . Namun ada satu lagi pepatah arab yang mengatakan :

“Tujuan akan tercapai jikalau kita terus berjalan”. Entah jatuh bangun, frustasi dan mungkin rasa untuk meninggalkannya. Akan tetapi jikalau kita terus berjalan maka kita akan sampai di tujuan.

Bercerita tentang pengalaman awal saya mempelajari AutoLISP berawal dari sebuah buku di salah satu toko buku ternama saya coba lihat bahasa pemrograman tersebut. Bolak-balik rasa tak mampu untuk memahami bahasanya dan akhirnya sempat ditinggal entah berapa tahun lamanya. Ketika melihat kawan mampu membuat sebuah bahasa pemrograman LISP yang dijalankan dengan AutoCAD mulailah hati ini tergelitik, terbersit kembali hasrat untuk mempelarinya. Website yang sangat membantu untuk memahami LISP adalah http://www.afralisp.net/index.php. Perlahan tapi pasti misteri mulai terungkap, pelan-pelan bahasa tersebut mulai bisa dipahami. Bagaimana cara membuat dan membacanya. Pada akhirnya saya bisa membuat beberapa program sederhana menggunakan AutoLISP. Senang, bangga tentulah iya. Untuk memperdalamnya saya coba ikut dan membaca beberapa file LISP di cadtutor.net.

Pada akhirnya semua mulai terasa mudah. Dan satu yang membanggakan adalah ketika memberikan Training AutoLISP untuk kawan-kawan Mc Dermott di Batam Center. Asal anda tahu pada waktu itu pemahaman saya tentang LISP belumlah seberapa. Tapi adalah sebuah ungkapan bagi para trainer. “Kita Mengetahui Materi Beberapa Hari Sebelum Peserta”. Hahaha dan berhasil. Itulah kenangan manis saya belajar AutoLISP kawan. Dan satu ungkapan dari saya “Coba dan Teruslah Mencoba”. Walaupun anda harus jatuh bangun mengejarnya.

Salam,

Afri

Memutar UCS Agar Tampak Seperti WCS

Kadang kala kita menemukan gambar kerja yang berbentuk miring akan tetapi kita ingin membuat geometry yang parallel terhadapat bidang miring tersebut. Sebenarnya kita bisa menggunakan polar angle untuk memecahkan permasalahan ini akan tetapi terlihat kurang efisien karena kita harus mengetahui derajat atau melihat posisi ucs yang miring sehingga agak kurang nyaman dipandang. Nah pada kesempatan ini saya coba berbagi bagaimana memutar tampilan UCS pada bidang miring menjadi sumbu koordinat seperti halnya pada WCS. Berikut link Video nya

 

Pesanan Coding LISP

Buat rekan-rekan yang mungkin perusahaannya memerlukan pembuatan coding LISP bisa menghubungi email saya atau langsung telp . Berikut hasil pesanan pembuatan coding LISP dari salah satu rekan yang memerlukan pemberian notasi pada dinding dan panjang dinding. Dimana data tersebut akan langsung terkumpul pada table AutoCAD. Berikut hasilnya

 

http://www.youtube.com/watch?v=h92iik8IHQ4