M & E

Dalam dunia gambar-menggambar dengan autocad shortcut command sangat penting,
setelah "copy isi" yang sudah di bahas pada posting sebelumnya, sekarang giliran "copy urut" yang kita bahas.
pasti pernah bikin table di autocad bukan? nah saat membuat table pasti kesulitan membuat nomer urutnya, tepatnya bukan sulit tapi lambat karena harus copy dulu baru kemudian di edit lagi, dengan trick ini copy urut bisa berjalan sekaligus.

copy script ini, buka notepad dan paste. kemudian save dengan nama copy urut.

(defun C:cou ()
(setq Ent (entget (car (entsel)))) (terpri)
(setq Basepoint (getpoint "tentukan titik"))
(setq BasepointText1 (cdr (assoc 10 Ent)))
(setq BasepointText2 (cdr (assoc 11 Ent)))
(setq Vector1 (mapcar '- BasepointText1 Basepoint))
(setq Vector2 (mapcar '- BasepointText2 Basepoint))
(setq OldNumb (atoi (cdr (assoc 1 Ent))))
(setq Inspoint (getpoint "titik penempatan"))
(setq TextPoint1 (mapcar '+ Inspoint Vector1))
(setq TextPoint2 (mapcar '+ Inspoint Vector2))
(While (/= Inspoint Nil)
(setq NewNumb (itoa(+ OldNumb 1)))
(setq Newdata (cons 10 TextPoint1))
(setq Olddata (assoc 10 Ent))
(setq ans (subst Newdata Olddata Ent))
(setq Newdata2 (cons 1 NewNumb))
(setq Olddata2 (assoc 1 ans))
(setq ans (subst Newdata2 Olddata2 ans))
(if (or (/= (cdr (assoc 72 ans)) 0) (/= (cdr (assoc 73 ans)) 0))
(progn
(setq Newdata3 (cons 11 TextPoint2))
(setq Olddata3 (assoc 11 ans))
(setq ans (subst Newdata3 Olddata3 ans))))
(entmake ans)
(setq OldNumb (atoi NewNumb))
(setq Inspoint (getpoint "titik penempatan"))
(setq TextPoint1 (mapcar '+ Inspoint Vector1))
(setq TextPoint2 (mapcar '+ Inspoint Vector2)))
)


dan cara menggunakannya klik disini