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:

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:

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:

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

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

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

• Civil3D
• Tukang Ukur