;Jadi tanggal sekarang
;Edit text menjadi tanggal sekarang
(defun c:dy(/ af an d i) (setq af (RTOS(GETVAR”CDATE”)2 4)) (setq an(cons 1(strcat(SUBSTR af 10 2)”:”(SUBSTR af 12 2) ” # “(SUBSTR af 7 2)”-”(SUBSTR af 5 2)”-”(SUBSTR af 1 4) ” # “(GETVAR”DWGPREFIX”) “\ ” (GETVAR”DWGNAME”)))) (setq d(assoc 1(setq i(entget(car(entsel “select text: “)))))) (entmod (subst an d i)) an )


Yang Suka Batik, Gabung di sini.
Gamis Modern
Busana anak
Busana pria
Busana Kerja
Busana Muslim
Sarimbit
Seragam Kerja
