VBA for AutoCAD 2007 terletak pada menu Tools –> Macro –> Visual Basic Editor. Atau tekan Alt + F11. Tampilan awal VBA for AutoCAD 2007 :

Gambar 2a

  1. Sekarang Anda akan berlatih membuat Circle dengan memakai Auto CAD VBA. Dalam AutoCAD VBA file yang bekerja adalah berextensi *.dvb.

Untuk membuat suatu integrasi berbagai macam perintah dalam AutoCAD VBA, maka Anda harus menggunakan suatu Form. Dalam lingkup VBA, untuk membuat suatu form ikuti langkah sebagai berikut :

– Sorot tulisan ThisDrawing –> klik kanan –> pilih Insert –> UserForm

Gambar 2b

Maka ada tampilan sebagai berikut :

Gambar 2c

Atur properties dari UserForm1 sebagai berikut :

Nilai pada Caption, ganti UserForm1 –> Drawing Object

Pada kotak Toolbox, masukkan CommandButton (nilai Caption ganti CommandButton1 –> Circle

Pada kotak Toolbox, masukkan TextBox

Kemudian masukkan Label (nilai Caption ganti Label1 –> 2D Object

Kemudian masukkan Label (nilai Caption ganti Label2 –> Radius

Untuk lebih jelasnya bisa dilihat pada gambar di bawah ini :

  Gambar 2d

Sekarang kita pada tahap kode untuk VBA nya. Dobel klik pada Circle button.

Untuk membuat kodenya, ketik saja kode dibawah ini :

Private Sub CommandButton1_Click()

On Error GoTo salah

Dim r As Double

Dim acadApp1 As Object

Dim acadDoc1 As Object

Dim acadUtil1 As Object

Dim inPnt1 As Variant

Set acadApp1 = GetObject(, “AutoCAD.Application”)

Set acadDoc1 = acadApp1.ActiveDocument

Set acadUtil1 = acadDoc1.Utility

Me.hide

r = CDbl(TextBox1.Text)

Dim moSpace1 As Object

Set moSpace1 = acadDoc1.ModelSpace

Dim circ1 As Object

inPnt1 = acadUtil1.GetPoint(, vbCr & “Pick the center point : “)

Set circ1 = moSpace1.AddCircle(inPnt1, r)

circ1.color = 30

salah : End

End Sub

Pada pembahasan kita sebelumnya (Panduan Praktis Untuk Membuat Menu di AutoCAD 2007), kita telah membuat menu tambahan pada AutoCAD. Nah pada pembahasan kita kali ini, bagaimana cara kita memanggil VBA tadi melalui Menu yang telah kita buat. Adapun caranya sebagai berikut :

Pada menu Visual Basic Editor, masukkan Modul dan ketikkan kode seperti dibawah ini

Sub drawing_object()

         UserForm1.Show

         End Sub

Lalu Save…

Unload Drawing Object menu pada menu toolbar. Caranya sebagai berikut :

Ketik MenuLoad pada command prompt –> Select Drawing Object –> klik Unload

–> Close

Modifikasi file Drawing Object.mnu, dan ketik kode berikut :

***MENUGROUP=Drawing Object

***POP1

P1-1[D&rawing Object]

P1-2[->&2D Object]

P1-3[Circle]^C^C-vbarun;drawing object.dvb!module1.drawing;

P1-4[–]

Lalu Save…

Masukkan menu Drawing Object ke menu toolbar

Setting working file agar VBA bisa berjalan. Caranya sebagai berikut :

Pada menu toolbar klik Tools –> Options –> klik tanda + pada Support File Search Path –> klik Path –> klik Browse –> klik C:\ drive –> pilih folder Drawing Object –> klik OK

Bye…bye dulu ya, tunggu tulisan saya selanjutnya…

–> Untuk file latihan silahkan didownload di http://depositfiles.com/files/sd4uid6y9