coretan tentang autocad dan excel

May 22, 2009

[CAD-CIV-04]: Import Data dari Total Station ke Civil 3D Bagian #1

Filed under: Civil3D, Tukang Ukur — cadex @ 10:18
Referensi : [CAD-CIV-02] : Perhitungan Polygon di Civil 3D.
Platform : Civil 3D 2009
Lokasi File : download file

Saya menerima data pengukuran poligon dari alat Total Station Leica TC407 dengan format sebagai berikut:

image

Cuplikan data pada baris pertama adalah :

*410061+00000000016 3000 42….+0000000000000000 43….+0000000000000000 44….+0000000000000000 45….+0000000000000000 46….+0000000000000000 47….+0000000000000000 48….+0000000000000000 49….+0000000000000000

sedangkan untuk baris kedua :

*110062+00000000016 3000 21.324+0000000010917180 22.324+0000000009006300 31…0+0000000000042905 51….+000000000048+034 87…0+0000000000001710 88…0+0000000000001563

untuk membaca data tersebut saya berkunjung ke web site leica kemudian menemukan e-book berjudul “GSI ONLINE for Leica TPS” by M. Muller.

Setelah membaca manual tersebut, ternyata format file hasil download termasuk type GSI16 dengan contoh susunan sebagai berikut:

image

Word Index (WI) di file hasil download TC407 adalah:

Word Index Keterangan
41-49 Point Code atau keterangan titik
11 Point Number
21 Sudut Horizontal format ddd.mmss
22 Sudut Vertikal forma ddd.mmss
31 Slope Distance
51 PPM
87 Tinggi Targer (prisma)
88 Tinggi Alat

Yang perlu diperhatikan dalam file hasil download ini adalah penamaan nomor titik poligon pada WI code “11”. Contoh “110062+00000000016 3000”, maka nomor titik poligonnya adalah “16 3000”. Penomoran titik tidak bisa diterima oleh civil 3D karena penomeran tersebut masih berupa alphanumeric (ada spasi, kalo nggak ada spasi bisa dikategorikan numeric). Agar bisa diproses oleh civil 3D, maka untuk WI code “11”, dirubah menjadi :

Pont Number Asal Point NUmber Baru
16 3000 3000
16 3100 3100
16 3200 3200
GPS16 1A 4
GPS16 1 5

Silahkan gunakan macro excel visual basic berikut untuk melakukan perubahan:

Sub RubahPntNo_AlphaKeNumeric()
Dim gsiOri As String, f, strLine As String, strPno As String, i As Integer, gsiOut As String
‘membuka file gsi
f = Application.GetOpenFilename((“GSI 16 (*.gsi), *.gsi”))
If f = False Then Exit Sub
i = 0
gsiOri = CStr(f)
If IsEmpty([C1]) Then
Open gsiOri For Input As 1
Do While Not EOF(1)
Line Input #1, strLine
‘membaca word index (WI), karena dalam file gsi kolom pertama bertanda *
‘maka pembacaan WI dimulai dari kolom 2
If Mid(strLine, 2, 2) = “11” Then
i = i + 1
strPno = Mid(strLine, 9, 16) ‘ambil pntNo asal
Cells(i, 1) = strPno ‘menulis pointnumber pada kolom A di excel
‘perubahan nomer dilakukan di excel secara manual, hasil perubahannya ada di kolom C
End If
Loop
Close (1)
Exit Sub ‘keluar dari program untuk melakukan perubahan secara manual lewat excel
End If
‘update pntNo di gsi file sesuai dengan kolom C di excel
Dim strLineNew As String, strPnoNew As String
gsiOut = Left(gsiOri, Len(gsiOri) – 4) & “new.gsi”
i = 0
Open gsiOri For Input As 1
Open gsiOut For Output As #2
Do While Not EOF(1)
Line Input #1, strLine
Select Case Mid(strLine, 2, 2)
Case “11”
i = i + 1
strPno = Mid(strLine, 9, 16) ‘ambil pntNo asal
strPnoNew = Cells(i, 3)
strLineNew = Left(strLine, 8) & Replace(strLine, strPno, strPnoNew, 9, 16)
Print #2, strLineNew
Case Else
Print #2, strLine
End Select
Loop
Close #2
Close #1
End Sub

File GSI setelah dirubah menjadi:

image

Tahap selanjutnya adalah merubah file GSI tersebut ke format Autodesk Field Book (FBK). Macro untuk merubah GSI menjadi FBK adalah :

Sub RubahGSI16PolygonKeFBK()
Dim gsiOri As String, f, strLine As String, strPno As String, i As Integer, j As Integer
Dim GSI16() As GSI_LINE, strNilai As String
f = Application.GetOpenFilename((“GSI 16 (*.gsi), *.gsi”)) ‘memilih file GSI16
If f = False Then Exit Sub ‘jika tekan ESC atau cancel keluar program
gsiOri = CStr(f) ‘merubah file terpilih menjadi string
i = -1
Open gsiOri For Input As 1 ‘membuka file
Do While Not EOF(1) ‘mulai membaca
Line Input #1, strLine
If Mid(strLine, 2, 2) = “11” Then ‘cek jika WI=11
i = i + 1
ReDim Preserve GSI16(i)
For j = 2 To 146 Step 24 ‘loop membaca WI di setiap/baris
strNilai = Mid(strLine, j + 7, 16) ‘membaca nilai setelah WI
Select Case Mid(strLine, j, 2)
Case “11”: GSI16(i).pntFS = CInt(strNilai)
Case “88”: GSI16(i).tinggiAlat = CDbl(strNilai)
Case “87”: GSI16(i).tinggiTarget = CDbl(strNilai)
Case “21”: GSI16(i).dmsHz = CDbl(strNilai)
Case “22”: GSI16(i).dmsVr = CDbl(strNilai)
Case “31”: GSI16(i).SD = CDbl(strNilai)
End Select
Next j
End If
Loop
Close #1
Dim fbkOut As String
Dim pntSTA As Integer, pntBS As Integer, pntFS As Integer
fbkOut = Left(gsiOri, Len(gsiOri) – 4) & “.fbk”
Open fbkOut For Output As #2 ‘menyimpan hasil konversi ke fbk
For i = LBound(GSI16) To UBound(GSI16)
If i = 0 Then ‘data pertama belum ada info pntSTA dan pntBS
pntSTA = 2 ‘ bisa edit lewat text editor
pntBS = 1
pntFS = GSI16(i).pntFS
Else
pntBS = pntSTA
pntSTA = pntFS
pntFS = GSI16(i).pntFS
End If
Print #2, “STN ” & pntSTA & ” ” & GSI16(i).tinggiAlat / 1000
Print #2, “BS ” & pntBS
Print #2, “PRISM ” & GSI16(i).tinggiTarget / 1000
Print #2, “F1 VA ” & pntFS & ” ” & Format(GSI16(i).dmsHz / 100000, “0.00000”) & ” ” _
& GSI16(i).SD / 1000 & ” ” & Format(GSI16(i).dmsVr / 100000, “0.00000”)
Next i
Close #2
End Sub

setelah terkonversi menjadi FBK:

STN 2 1.563
BS 1
PRISM 1.71
F1 VA 3000 109.1718 42.905 90.063
STN 3000 1.498
BS 2
PRISM 1.71
F1 VA 3100 162.3636 477.552 89.5355
STN 3100 1.518
BS 3000
PRISM 1.781
F1 VA 3200 179.3115 488.367 89.5426
STN 3200 1.538
BS 3100
PRISM 1.622
F1 VA 4 81.4633 83.931 90.1804
STN 4 1.446
BS 3200
PRISM 1.424
F1 VA 5 197.5403 75.937 89.4359

Apabila koordinat titik kontrol (PntNo, N, E, Z dan Deskripsi) adalah :

1 154081.720 746181.590 12.040 “DR 13-G35”
2 153750.660 746192.170 12.233 “DR 13-G36”
4 153823.623 747186.456 12.660 “GPS16 1A”
5 153898.562 747198.685 13.035 “GPS16 1”

maka informasi ini dapat dimasukkan atau ditambahkan ke FBK, sehingga FBK yang sudah dimasukkan koordinat titik kontrol menjadi:

UNIT METER DMS
NEZ 1 154081.720 746181.590 12.040 “DR 13-G35”
NEZ 2 153750.660 746192.170 12.233 “DR 13-G36”
NEZ 4 153823.623 747186.456 12.660 “GPS16 1A”
NEZ 5 153898.562 747198.685 13.035 “GPS16 1”
STN 2 1.563
BS 1
PRISM 1.71
F1 VA 3000 109.17180 42.905 90.06300 “STA 3+000”
STN 3000 1.498
BS 2
PRISM 1.71
F1 VA 3100 162.36360 477.552 89.53550 “STA 3+100”
STN 3100 1.518
BS 3000
PRISM 1.781
F1 VA 3200 179.31150 488.367 89.54260 “STA 3+200”
STN 3200 1.538
BS 3100
PRISM 1.622
F1 VA 4 81.46330 83.931 90.18040
STN 4 1.446
BS 3200
PRISM 1.424
F1 VA 5 197.54030 75.937 89.43590

Sekarang jalankan Civil 3D

  1. Buat gambar baru dengan memilih template ‘_AutoCAD Civil 3D (metric) NCS Extended’
  2. Aktifkan ‘Survey Toolspace’
  3. Buat Survey Database misal ‘LandSurvey’ dan Setting Unit Distance ke ‘meter’. Caranya ada di [CAD-CIV-02]
  4. Buat Network Baru, misal ‘Canal’
  5. Click Kanan di network ‘Canal’, kemudian pilih Import Field Book

image

Setelah FBK diimport, Civil 3D akan menghitung koordinat, mencatat informasi Stations, Control Points dan data ukuran di Survey Database

image

===bersambung ke Bagian #2, untuk melakukan proses perhitungan polygon di civil 3D====

Leave a Comment »

No comments yet.

RSS feed for comments on this post. TrackBack URI

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

Create a free website or blog at WordPress.com.

%d bloggers like this: