时间
(DEFUN C:znowtime(/ OLDOS oldclay PT STA );;
(setq oldclay (getvar "CLAYER"))
(setq olderr *error*)
(setq *error* myerr)
(SETVAR "CMDECHO" 0)
(SETQ OLDOS (GETVAR "OSMODE"))
;;
(command "layer" "m" "00AC-nowtime" "c" 1 "00AC-nowtime" "L" "CONTINUOUS" "00AC-nowtime" "LW" "0.45" "00AC-nowtime" "")
(command ^c^c "layer" "p" "n" "00AC-nowtime""")
(command"style" "@@ZHJ-AC" "gbeitc.shx,hztxt.shx" "0" "0.8" "" "" "")
(SETVAR "OSMODE" 0)
(while(SETQ PT (GETPOINT"\nPick the point you want to write nowtime number:"))
(SETQ znowtime (menucmd "M=$(edtime,$(getvar,date),DDD\", \"D MON YYYY)"))
(SETQ znowtime (menucmd "M=$(edtime,$(getvar,date),YYYY.M.DD hh:mm:ss)"))
;(SETQ znowtime (menucmd "M=$(edtime,$(getvar,date),YYYY\"年\"M\"月\"DD\"日\" hh\"时\"mm\"分\"ss\"秒\")"))
(command "text" "s""@@ZHJ-AC""j" "m" PT 300 0 znowtime)
)
(SETVAR "OSMODE" OLDOS)
(SETVAR "CMDECHO" 1)
(setq *error* olderr)
(setvar "CLAYER" oldclay)
(PRIN1)
)
；与大家分享 标注出系统时间
帖子分享了...
谢谢! xigemapenis 分享程序!!!!
页:
[1]