Referensi	:
Platform	:	Civil 3D
Lokasi File	:	download autolisp

Studi Kasus:

Diterima gambar hasil pengukuran bathymetri (kedalaman) berupa file autocad. Angka kedalaman ditulis di autocad dalam bentuk object TEXT dalam satuan dm (decimeter).

Angka yang dimulai dengan tanda “+” adalah elevasi di atas MSL (Mean Sea Level) sedangkan yang tidak ada tandanya berada di bawah MSL.

Memodifikasi Object TEXT

Untuk keperluan design dan pembentukan surface di Civil 3D, angka kedalaman di bawah MSL dinyatakan dengan angka negatif, sedangkan untuk yang di atas MSL dinyatakan dalam angka TANPA tanda positif.

Pada command prompt autocad ketik ‘LIST’ kemudian pilih salah satu angka kedalaman:

dari hasil list object di atas, terlihat bahwa angka kedalaman ditulis di dalam bentuk object TEXT. Sedangkan untuk koordinat Z=-15.

Koordinat Z ini akan dibuat sama dengan tulisan di object TEXT dengan menghilangkan tanda “+”, sehingga hasil koordinat Z=12.

Program Autolisp di bawah ini bisa dipakai untuk melakukan hal tersebut:

(prompt “ketik ttg disusul <enter>”) (defun c:ttg() (setq sset (ssget ‘((0 . “TEXT”))));memilih object Text (setq Len (sslength sset)) (setq i 0) (while (<= i Len);looping object text yang terpilih (setq Nama (ssname sset i)) (setq Elemen (entget Nama)) (setq listKoord (assoc 10 Elemen)) (setq X (nth 1 listKoord) Y (nth 2 listKoord)) (setq Textnya (cdr(assoc 1 Elemen)));mengambil nilai text ;merubah text menjadi angka, text yang bertanda + dihilangkan, ;yang tidak bertanda diberi tanda – (setq elev (atof (if (= (substr Textnya 1 1) “+”) (substr Textnya 2 2) (strcat “-” Textnya)))) (setq newList (list x y elev)) (setq Elemen (subst (cons 10 newList) (assoc 10 Elemen) Elemen)) (entmod Elemen) (setq i (+ i 1)) ) )

Setelah program dijalankan, cek lagi list object text, seperti cara di atas.

Hasilnya adalah:

Sekarang harga koordinat Z telah sesuai dengan isi dari object TEXT.

Membuat Surface

1. Pilih Tab ‘Prospector’ dari Toolspace Civil 3D
2. Click kanan ‘Surfaces’, kemudian pilih ‘Create Surface’
3. Click ‘OK’ untuk setting default Surface
4. Di bawah folder surface yang telah dibuat, pilih ‘Definition’
5. Click kanan ‘Drawings Objects’, kemudian pilih ‘Add’
6. Pilih Object Type ‘Text’, kemudian click OK
7. Pilih Object Text yang berisi informasi elevasi
8. Rebuild Surface
9. Surface akan ditampilkan sesuai dengan surface style yang aktif

• Civil3D
• Tukang Ukur