coretan tentang autocad dan excel

April 28, 2009

[CAD-CIV-03]: Surface dari Object Text

Filed under: Civil3D, Tukang Ukur — cadex @ 12:01
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.

image

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:

image

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:

image

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

image

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

Blog at WordPress.com.

%d bloggers like this: