Jadi tanggal sekarang

;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 )

45 Responses to “Jadi tanggal sekarang”

  1. Halo… salam kenal

    Tentang AutoCAD lagi dong :)

  2. ok. deh tinggal copy paste aja. tunggu, kesempatan…. he he he

  3. Setelah saya copy tanda kutip anda beda sekali dengan di editor autolisp saya,mengapa?

Lacak Balik

Tinggalkan Balasan

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 / Ubah )

Twitter picture

You are commenting using your Twitter account. Log Out / Ubah )

Facebook photo

You are commenting using your Facebook account. Log Out / Ubah )

Connecting to %s

Ikuti

Get every new post delivered to your Inbox.

Bergabunglah dengan 79 pengikut lainnya.