[XLS-MAP-03]: Plotting List Koordinat dari Excel ke AutoCAD

 

Referensi	:	import point dengan autolisp
Platform	:	Excel dan AutoCAD
Lokasi File	:	download

Pada awalnya saya ingin membuat program visual basic application yang ada di Autocad 2011 untuk menggambarkan lokasi titik-titik sesuai dengan list koordinat yang ada di excel. Tetapi saat saya menekan tombol Alt+F11 untuk mengaktifkan visual basic di AutoCAD 2011 muncul pesan “Microsoft Visual Basic for Application Software is no longer installed with AutoCAD”. Sebetulnya masih disupport oleh Autodesk, tetapi harus download dulu di sini.

Daripada download (sebetulnya pingin sih), saya coba cara lain dengan memanfaatkan program Microsoft Visual Basic for Application yang ada di Excel (Macro). Koneksi AutoCAD dan Excel bisa dilakukan dengan cara memilih ‘AutoCAD 2011 Type Library’ di pilihan References-VBA Project. Jika Anda menggunakan versi AutoCAD yang lain, pilihlah library dengan nama ‘AutoCAD xxxx Type Library’, dimana xxxx adalah versi AutoCAD yang sedang Anda gunakan. misal untuk AutoCAD 2010, maka librarynya adalah ‘AutoCAD 2010 Type Library’.

Contoh List Koordinat di Excel yang akan diplot di AutoCAD adalah :

Bujur akan diplot sebagai koordinat X, Lintang adalah koordinat Y dan  Elevasi adalah Z. Text Keterangan akan diplot sesuai dengan posisi titik tersebut (XYZ).

 

 

 

 

 

 

1. Buka file Excel yang berisi list koordinat	Saat file excel sudah terbuka, pilih sheet yang berisi list koordinatnya, kemudian tekan Alt+F11 untuk mengaktifkan visual basic editor. Dari Menu ‘Insert’ pilih ‘Module’
2. Jalankan program AutoCAD, tanpa menutup program Excel	Jika diinginkan, pilih layer dan text style di AutoCAD.
3. Setting Reference ke AutoCAD Library	pada visual basic editor, pilih menu ‘Tools’ kemudian ‘References’. Pilih AutoCAD Library sesuai dengan versi AutoCAD yang aktif di pilihan available references.  click OK jika library sudah dipilih.
4. Tulis Macro atau Visual basic di module	Option Explicit Sub PlotKeAutocad() Dim rgKoordinat As Range ‘table list koordinat di sheet yang aktif Set rgKoordinat = ActiveSheet.UsedRange rgKoordinat.Select Dim respon As Long If MsgBox(“Pilihan Sudah Benar?”, vbYesNo) = vbNo Then Exit Sub Dim c As Range, i As Integer, j As Integer Dim lstKoord() As Double, lstDes() As String ‘membaca list koordinat dan nama titik dari excel i = -1: j = -1 For Each c In rgKoordinat.Columns(1).Cells If Application.IsNumber(c) Then i = i + 3 j = j + 1 ReDim Preserve lstKoord(i) lstKoord(i – 2) = c lstKoord(i – 1) = c.Offset(, 1) lstKoord(i) = c.Offset(, 2) ReDim Preserve lstDes(j) lstDes(j) = c.Offset(, 3) End If Next ‘koneksi ke autocad, program autocad harus sudah dijalankan Dim appCAD As AcadApplication On Error Resume Next Set appCAD = GetObject(, “AutoCAD.Application”) If Err.Number Then Exit Sub Dim Koordinat(0 To 2) As Double Const TinggiHuruf = 0.002 ‘rubah angka sesuai dengan tinggi huruf yang diinginkan j = -1 For i = LBound(lstKoord) To UBound(lstKoord) Step 3 j = j + 1 Koordinat(0) = lstKoord(i) Koordinat(1) = lstKoord(i + 1) Koordinat(2) = lstKoord(i + 2) With appCAD.ActiveDocument.ModelSpace .AddPoint Koordinat ‘plot koordinat .AddText lstDes(j), Koordinat, TinggiHuruf End With Next i appCAD.ZoomExtents AppActivate appCAD.Caption Set appCAD = Nothing End Sub
5. Menjalankan Program atau Macro	Kembali ke sheet list koordinat. Tekan Alt+F8, kemudian pilih macro PlotKeAutocad , kemudian click Run
6. Check di AutoCAD, apakah titik2 tersebut sudah benar possisinya?