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!
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!
Label:
Tricks LSP
Langganan:
Posting Komentar (Atom)
About me
Saya adalah pekerja proyek yang kebetulan bergerak di bidang ME, dengan blog ini saya ingin berbagi sesuatu yang saya punya dan mungkin anda butuhkan, sekaligus menjadi catatan saya agar tidak lupa.
0 komentar: