Transfer Koordinat dari Excel ke Dalam AutoCAD

Gambar atau tampilan pada window AutoCAD pada dasarnya adalah kumpulan komponen titik dengan koordinat tertentu yang saling berhubungan. Sebuah garis lurus akan terbentuk dengan menghubungkan dua buah titik dengan dua koordinat yang berbeda. Dengan kata lain membentuk suatu gambar pada AutoCAD adalah menghubungkan kumpulan titik titik koordinat tertentu.

Suatu ketika mungkin kita mempunyai data koordinat pengukuran tanah dalam sistem koordinat UTM,  biasanya perhitungan koordinat dilakukan dalam worksheet atau dengan kata lain data ukur berada dalam sheet excel. Cara paling sederhana memindahkan atau mentranfer koordinat ke dalam gambar autocad yaitu dengan meng-input atau memasukkan satu persatu koordinat tersebut scara manual, cara semacam ini akan akan sangat-sangat tidak efektif dan memakan waktu lama jika data yang ditransfer dalam jumlah yang besar. Ada cara yang lebih efisien untuk men-transfer data koordinat semacam ini dari excel dalam AutoAD.

Cara pertama adalah dengan membuat script langsung pada Worksheets dengan memanfaatkan fungsi-fungsi builtin seperti “Concatenate” yaitu fungsi worksheet excel untuk menggabungkan isi cell dan atau menggabung character. Contoh cara men-transfer koordinat kedalam autocad dari excel sebagai berikut:

KOORDINAT
No Profil X Y Koordinat(X,Y)
A.1 1 2 =CONCATENATE(B3,”,”,C3)
A.2 3 1 =CONCATENATE(B4,”,”,C4)
A.3 3 2 =CONCATENATE(B5,”,”,C5)
A.4 5 4 =CONCATENATE(B6,”,”,C6)
A.5 7 1 =CONCATENATE(B7,”,”,C7)
A.6 8 1 =CONCATENATE(B8,”,”,C8)
A7 10 2 =CONCATENATE(B9,”,”,C9)

Blok cell D3 s/d D9 lalu Copy, selanjutnya pada AutoCAD ketik PL kemudian tekan enter atau bisa juga dengan cara click icon polyline. Pada command window text terlihat teks “specify star point” (yang menyatakan agar kita memasukkan titik koordinat awal polyline), paste lalu enter. Maka pada window akan terbentuk grafik atau garis yang menghubungkan koordinat-koordinat sebagai mana yang kita masukan dalam Worksheets Excel. Cara semacam ini terbilang cara yang sederhana, namun cara tranfer koordinat seperti itu merupakan dasar untuk mempelajari cara tranfer koordinat dengan cara yang ke dua yaitu dengan membuat Macro atau dengan Visual Basic Aplication.

Transfer koordinat atau upload data koordinat dengan menggunakan program macro atau Visual Basic Aplication (VBA) akan lebih komplek, kita karus mengerti dan memahami fungsi-fungsi pada Macro disamping itu juga harus memahami “command line” pada AutoCAD. Tranfer koordinat menggunakan Program macro tidak serta merta langsung memindahkan koordinat kedalam autocad dari excel, melainkan menggunakan perantara script file (file dengan ekstensi.scr). Script file adalah kumpulan perintah atau  command line dan variable-variable dengan nilai tertentu. Perintah-perintah tersebut akan dibaca serta di-eksekusi autocad sehingga menghasilkan ganbar yang akan terlihat secara visual.

Contoh Macro untuk membuat file script upload atau transfer koordinat dari excel kedalam autocad:

Sub Macro1()
‘ Macro Created 27/09/2005 by Edse
Dim X(5000), Y(5000), Z(5000)
Dim Napt(5000) As String
Sheets(“XYZ”).Select
jdat = Application.WorksheetFunction.CountA(Range(Cells(4, 2), Cells(5004, 2)))
Cells(1, 2) = jdat
Pi = Application.WorksheetFunction.Pi
For r = 1 To jdat
brs = 4 + (r – 1)
X(r) = Cells(brs, 3)
Y(r) = Cells(brs, 4)
Z(r) = Cells(brs, 5)
Napt(r) = Cells(brs, 2)
Next
Configurasi
‘=============Creat Point Symbol=================================
Poin
Print #1, “PDMODE”
Write #1, 34
Print #1, “PDSIZE”
Write #1, 1.5
For r = 1 To jdat
Print #1, “Point”
Write #1, X(r), Y(r)
Next
Elv
For r = 1 To jdat
Print #1, “TEXT”
Print #1, “J”
Print #1, “MC”
Write #1, X(r), Y(r)
Write #1, 3: Write #1, 0: Print #1, Format(Z(r), “#0.000″)
Print #1, “”: Print #1, “”: Print #1, “”
Next
Profil
For r = 1 To jdat

Print #1, “TEXT”
Print #1, “J”
Print #1, “TC”
Write #1, X(r), Y(r) – 0.5
Write #1, 3: Write #1, 0: Print #1, Napt(r)
Print #1, “”: Print #1, “”: Print #1, “”

Next
Print #1, “zoom”: Print #1, “e”
Close #1
End Sub
Sub Configurasi()
Print #1, “OSNAP”: Print #1, “OFF”
‘=========Setting line type scale=======================================
Print #1, “LTSCALE”: Write #1, 1: Print #1, “”: Print #1, “”
‘==========Setting font=============================================
Print #1, “STYLE”: Print #1, “ARIAL”: Print #1, “ARIAL”
Print #1, “”: Print #1, “”: Print #1, “”: Print #1, “”
Print #1, “”: Print #1, “”: Print #1, “”: Print #1, “”
Print #1, “”: Print #1, “”: Print #1, “”: Print #1, “”
Print #1, “”: Print #1, “”: Print #1, “”: Print #1, “”
Print #1, “”: Print #1, “”: Print #1, “”
Print #1, “”: Print #1, “”

‘SETTING NEW LAYER :

‘================== Layer Elvasi =================================
Print #1, “-LAYER”: Print #1, “N”: Print #1, “Elv”
Print #1, “C”: Print #1, “3”: Print #1, “Elv”
Print #1, “L”: Print #1, “CONTINUOUS”: Print #1, “Elv”
Print #1, “Lw”: Print #1, “0.2”: Print #1, “Elv”
Print #1, “”: Print #1, “”: Print #1, “”
‘================== Layer Elvasi =================================
Print #1, “-LAYER”: Print #1, “N”: Print #1, “Profil”
Print #1, “C”: Print #1, “2”: Print #1, “Profil”
Print #1, “L”: Print #1, “CONTINUOUS”: Print #1, “Profil”
Print #1, “Lw”: Print #1, “0.2”: Print #1, “Profil”
Print #1, “”: Print #1, “”: Print #1, “”

‘=================Layer Point==================================
Print #1, “-LAYER”: Print #1, “N”: Print #1, “Point_Symbol”
Print #1, “C”: Print #1, “1”: Print #1, “Point_Symbol”
Print #1, “L”: Print #1, “CONTINUOUS”: Print #1, “Point_Symbol”
Print #1, “Lw”: Print #1, “0.2”: Print #1, “Point_Symbol”
Print #1, “”: Print #1, “”: Print #1, “”
End Sub
Sub Profil()
Print #1, “-LAYER”: Print #1, “S”: Print #1, “Profil”
Print #1, “”: Print #1, “”: Print #1, “”
Print #1, “”: Print #1, “”
End Sub
Sub Elv()

Print #1, “-LAYER”: Print #1, “S”: Print #1, “Elv”
Print #1, “”: Print #1, “”: Print #1, “”
Print #1, “”: Print #1, “”
End Sub
Sub Poin()
Print #1, “-LAYER”: Print #1, “S”: Print #1, “Point_Symbol”
Print #1, “”: Print #1, “”: Print #1, “”
Print #1, “”: Print #1, “”
End Sub
Sub Gbr()
Dim NFile As String
NFile = FrmInsert.CommonDialog1.Filename
Open NFile For Output As #1
Macro1
End Sub
Sub Plot()
FrmInsert.Show
End Sub

Contoh file lengkap untuk upload koordinat x,y kedalam autoCAD dari Excel atau transfer koordinat dari excel kedalam autocad ada di sini

About these ads