Program VBA Untuk Autocad

022210_0237_ProgramVBAU1.png

Sebenarnya saya agak kurang pas membuat tulisan ini, karena masih minimnya ilmu saya di program VBA, masih banyak kekurangan dan kalau ada pertanyaan dari member, banyak yang kurang paham. Tapi saya bukan sok ingin menonjolkan diri dengan ke tidak mampuan saya ini, saya hanya ingin berbagi ilmu yang saya miliki dengan segala keterbatasannya, barangkali bisa di petik manfaatnya oleh yang membutuhkan.

Saya yakin di negeri kita ini, banyak yang bisa program VBA dan lebih banyak lagi yang ingin bisa, maka untuk itu saya berusaha membantu yang ingin bisa/pemula, mari kita ikuti langkah di bawah ini.

Bukalah program cad anda setelah terbuka , ketik “Vbaman” pada command prompt atau bisa juga via “Tools -> Macro -> Vba Manager…”, terserah anda mau pilih yang mana. Maka akan muncul dialog box seperti ini.

Gambar 1. Dialog box Vba manager yang masih kosong.

Pilih “New” hingga di kotak project akan muncul “Acad Project” segera di klik dan di lanjutkan, dengan mengklik tombol “Visual basic Editor”, ini untuk membuka editor VBA.

Gambar 2. Editor VBA yang masih default.

Editor VBA ini telah terbagi menjadi 3 bagian paling kiri adalah “Project Explorer”, paling bawah kanan adalah “Local Window” dan paling kanan atas masih blank. Untuk mengontrol (memunculkan/menghilangkan) ke 3 kotak tersebut, bisa anda lakukan dengan mengklik menu “View”, coba anda klik menu insert pilih “modul” tampilan akan seperti ini.

Gambar 3. Editor VBA yang telah dilengkapi kotak modul (code window).

Kotak project explorer berfungsi untuk menampilkan file kode VBA yang di load, sedang kotak code window (modul) berfungsi untuk menulis, edit dan menampilkan kode VBA, serta kotak local window berfungsi untuk menampilkan hasil kode yang telah di eksekusi.

Untuk tidak berpanjang cerita mari kita mulai membuat kode VBA, arahkan kursor anda ke “module1″, yang berada di sebelah kiri dan di klik, kemudian arahkan kursor anda ke kotak “code window” yang berada di sebelah kanan atas.

Masukan atau ketik di kotak “code window” kode di bawah ini.

Sub test()

‘Menetapkan variable

Dim lineobj As AcadLine

Dim StartPoint(0 To 2) As Double

Dim EndPoint(0 To 2) As Double

‘Menetapkan titik awal garis

StartPoint(0) = 0: StartPoint(1) = 0: StartPoint(2) = 0

‘Menetapkan akhir garis

EndPoint(0) = 10: EndPoint(1) = 10: EndPoint(2) = 0

‘Membuat sebuah garis di dalam area model

Set lineobj = ThisDrawing.ModelSpace.AddLine(StartPoint, EndPoint)

End Sub

Atau seperti ini lihat gambar 4

Gambar 4. Sebuah kode yang di tulis di kotak code window.

Setiap kode yang di ketik di code window secara otomatis akan berubah warnanya, sesuai dengan fungsinya, untuk merubah warna yang anda inginkan, anda bisa merubah sendiri masuklah ke “Tools -> Options -> Editor Format”.

Sekarang anda lakukan eksekusi atau jalankan kode tersebut, dengan arahkan kursor ke menu “Run” pilih “Run Macro” atau lihat di bawah ini

Gambar 5. Menu untuk menjalankan program

Setelah anda tekan menu “Run Macro” atau simbol ini dialog selanjutnya akan muncul

Gambar 6 . Dialog macro untuk menjalankan program.

Tekan tombol “Run”, jangan kaget begitu dialognya hilang kadangkala tidak ada reaksi, arahkan kursor anda ke pojok kiri atas, di klik tanda “A” ini untuk membuka program cad anda.

Gambar 7. Ikon untuk membuka cad.

Sekarang anda lihat apa yang terjadi di area gambar anda, gambar garis langsung sudah ada.

Format kode VBA pada umumnya seperti ini

Sub xx()

End sub

Diawali dengan kata “Sub” kemudian di susul dengan kata “XX”, ini adalah kode panggil VBA terus di ikuti tanda “()”, setelah itu di bawah kata-kata tadi akan terdapat deretan kode program, ditutup dengan kata “End sub”.

Mari kita coba tulis kode, ikuti langkah ini

Ketik di area code window kata “sub test()”, terus tekan enter dan secara otomatis akan di ikuti “spasi” dan tulisan “end sub”, di antara tulisan “sub test()” dan “end sub”, ketiklah “dim ObjTex as”, ketika anda menekan tombol spasi di keyboard anda, secara otomatis pula di area code window akan muncul seperti ini.

Gambar 8. Dialog yang muncul setelah kata “as”.

Pasti anda akan semakin bingung dengan munculnya dialog ini, memang betul untuk para pemula akan mengalami seperti itu, di situ terdapat simbol dan kata tambahan untuk lebih jelasnya buka file “Help -> Visual Basic User Interface Help -> Icon used ……..”, atau lihat gambar 9.

Gambar 9. Jenis simbol yang di munculkan setelah menekan kata “as”.

Satu sisi menuntun pada kita mau di bawa ke mana variable itu, atau mau di katagorikan sebagai apa variable yang kita buat tadi, karena yang di tulis tadi “dim ObjTex as” artinya kita sedang membuat variable “ObjTex” di set dengan kata “dim”, makanya disini editor menanyakan pada kita mau di set sebagai apa?.

Di klik tanda segitiga yang mengarah ke bawah, untuk mencari katagori yang cocok buat variable yang barusan kita buat, pilihlah kata “AcadText’.

Gambar 10. Pilihan jatuh pada AcadText.

Selanjutnya ketik “Dim TextString As String” dan “Dim InsertionPoint(0 To 2) As Double” serta “Dim Height As Double”, variable “TextString” cukup jelas di set sebagai string, variable “InsertionPoint(0 to 2)” nah yang ini pasti agak aneh khususnya “(0 to 2)”, ini sama dengan “(x,y,z)” atau “0=x” dan “1=y” serta “2=z”. Kata “double” menyatakan batasan bilangan yang bisa di terapkan pada variable yang anda buat.

Lanjutkan dengan menambah “TextString=”Hello,World.”, “InsertPoint(0)=2″, “InsertPoint(1)=2″, “InsertPoint(2)=0″ dan “Height=0.5″, variable TextString di set ke kalimat hello world dan variable insertpoint di set x = 2 dan y = 2 serta z = 0, dan tinggi text di set nilai 0.5.

Yang terakhir ketik “Set ObjTex = ThisDrawing.ModelSpace.AddText(textString, insertionPoint, height)”, ini program memerintahkan kepada Autocad untuk segera membuat text, dengan kalimat “Hello,World” dan di kordinat x = 2, y = 2, z = 0 dengan tinggi huruf 0.5.

Anda boleh memakai kata “set” atau hanya ObjTex aja, karena dua-duanya bisa di jalankan, kembali kita ke program di atas yang anda barusan buat, coba lakukan “Run” atau jalankan, gimana hasilnya?