|
|
Thread Tools | Search this Thread | Rate Thread | Display Modes |
#1
|
|||
|
|||
How to update the Sheet text . Use lisp program
(defun my-tr-get-date ()
(multiple-value-bind (sec min hour day month year) (decode-universal-time (get-universal-time)) (declare (ignore sec) (ignore min) (ignore hour)) (format nil "~A~A~A" year (case month ( 1 "01") ( 2 "02") ( 3 "03") ( 4 "04") ( 5 "05") ( 6 "06") ( 7 "07") ( 8 "08") ( 9 "09") (10 "10") (11 "11") (12 "12") (otherwise "???")) (case day ( 1 "01") ( 2 "02") ( 3 "03") ( 4 "04") ( 5 "05") ( 6 "06") ( 7 "07") ( 8 "08") ( 9 "09") (10 "10") (11 "11") (12 "12") ( 13 "13") ( 14 "14") ( 15 "15") ( 16 "16") ( 17 "17") ( 18 "18") ( 19 "19") ( 20 "20") ( 21 "21") (22 "22") (23 "23") (24 "24") ( 25 "25") ( 26 "26") ( 27 "27") ( 28 "28") ( 29 "29") ( 30 "30") ( 31 "31") (otherwise "???")) ) ) ) (docu-register-tr-type "Sheet_local" "CREATE_TIME" "???" 'my-tr-get-date) the abovementioned is about sheet create_time to bring If I want one step to update my shett field ( the rectangle figure) I had finish my dialog but How to update at one step If anyone understand what I mean please help me
__________________
(Sorry ! My English is pool) |
Currently Active Users Viewing This Thread: 1 (0 members and 1 guests) | |
Thread Tools | Search this Thread |
Display Modes | Rate This Thread |
|
|