AUTOLISP顯示日期

每張CAD圖框都有一個日期欄位,每建立一張圖面有時會遺忘更改
所以寫了一個簡單的程式來增加這速度

可以更改日期的座標來快速輸入



(defun c:DATE(/ TX TX1 S S1 S2 S3 )
     (setvar "cmdecho" 0)
     (setq tx(fix (getvar "CDATE")))
     (setq tx1(itoa (fix (- tx (* (fix (/ tx 10000.000000000)) 10000.0000000)))))
     (if (= (strlen tx1) 3) (setq tx1(strcat "0" tx1)))
     (setq s1(itoa (fix (- (/ tx 10000) 1911))))
     (setq s2(substr tx1 1 2))
     (setq s3(substr tx1 3 2))
     (setq s(strcat s1 "." s2 "." s3))
     (command "text" "M" "none" "90,48.33333" "4" "0" s)
     )