M & E

Teman-teman yangg biasa dengan autocad mungkin sudah pernah dengar dan tau mengenai shortcut untuk mempermudah dan mempercepat peroses pengerjaan gambar? yang paling simple adalah original dari aucad itu sendiri, misalnya untuk membuat garis perintahnya adalah L, untuk copy CO, dan lain sebagainya!tp kadang ada jg hal-hal yang kita inginkan supaya lebih cepat lagi dalam proses menggambar tapi ternyata tidak ada di autocad, salah satunya adalah perintah "copy isi" copy isi ini bekerja untuk mengcopy isi teks dari text ke text yang lain menjadi sama seperti yang kita klik pertama.

sebagai contah:

teks a : edit
teks b : copy
teks c : move

dan kalau kamu ingin teks copy, move mendjadi edit cuma butuh masukan perintah "ci"(copy isi) dan klik pada teks "edit" kemudian klik pada teks-teks yang lainnya yang ingin dijadikan "edit" maka semua teks berubah menjadi "edit".
yang harus kamu lakukan adalah copy teks berikut, buka notepad dan pasti di notepad, kemudian save dengan nama "copy isi"


(defun c:ci ()
(terpri)
(setq ent (entget (car (entsel "Specify first Text :")))) (terpri)
(setq newdata (assoc 1 ent))
(setq typeent (cdr (assoc 0 ent)))
(while (= typeent "TEXT")
(setq ent1 (entget (car (entsel "Specify Next Text :")))) (Terpri)
(setq typeent (cdr (assoc 0 ent)))
(setq olddata (assoc 1 ent1))
(setq ans (subst newdata olddata ent1))
(entmod ans))
)


selamat, mencoba dan semoga semoga berguna!