时间

xigemapenis

1. (DEFUN C:znowtime(/ OLDOS oldclay PT STA )
   
2. ;;
   
3. (setq oldclay (getvar "CLAYER"))
   
4.   (setq olderr *error*)
   
5.   (setq *error* myerr)
   
6.   (SETVAR "CMDECHO" 0)
   
7.   (SETQ OLDOS (GETVAR "OSMODE"))
   
8. ;;
   
9. (command "layer" "m" "00AC-nowtime" "c" 1 "00AC-nowtime" "L" "CONTINUOUS" "00AC-nowtime" "LW" "0.45" "00AC-nowtime" "")
   
10. (command ^c^c "layer" "p" "n" "00AC-nowtime"  "")
    
11. (command"style" "@@ZHJ-AC" "gbeitc.shx,hztxt.shx" "0" "0.8" "" "" "")
    
12.   (SETVAR "OSMODE" 0)
    
13. (while  (SETQ PT (GETPOINT"\nPick the point you want to write nowtime number:"))
    
14. 
    
15. (SETQ znowtime (menucmd "M=$(edtime,$(getvar,date),DDD\", \"D MON YYYY)"))
    
16. (SETQ znowtime (menucmd "M=$(edtime,$(getvar,date),YYYY.M.DD hh:mm:ss)"))
    
17. ;(SETQ znowtime (menucmd "M=$(edtime,$(getvar,date),YYYY\"年\"M\"月\"DD\"日\" hh\"时\"mm\"分\"ss\"秒\")"))
    
18. 
    
19. (command "text" "s"  "@@ZHJ-AC"  "j" "m" PT 300 0 znowtime)
    
20. )
    
21.   (SETVAR "OSMODE" OLDOS)
    
22.   (SETVAR "CMDECHO" 1)
    
23.   (setq *error* olderr)
    
24. (setvar "CLAYER" oldclay)
    
25.   (PRIN1)
    
26. )
    

(DEFUN C:znowtime(/ OLDOS oldclay PT STA )<br /> ;;<br /> (setq oldclay (getvar "CLAYER"))<br />   (setq olderr *error*)<br />   (setq *error* myerr)<br />   (SETVAR "CMDECHO" 0)<br />   (SETQ OLDOS (GETVAR "OSMODE"))<br /> ;;<br /> (command "layer" "m" "00AC-nowtime" "c" 1 "00AC-nowtime" "L" "CONTINUOUS" "00AC-nowtime" "LW" "0.45" "00AC-nowtime" "")<br /> (command ^c^c "layer" "p" "n" "00AC-nowtime"  "") <br /> (command"style" "@@ZHJ-AC" "gbeitc.shx,hztxt.shx" "0" "0.8" "" "" "")<br />   (SETVAR "OSMODE" 0)<br /> (while  (SETQ PT (GETPOINT"\nPick the point you want to write nowtime number:"))<br /> <br /> (SETQ znowtime (menucmd "M=$(edtime,$(getvar,date),DDD\", \"D MON YYYY)"))<br /> (SETQ znowtime (menucmd "M=$(edtime,$(getvar,date),YYYY.M.DD hh:mm:ss)"))<br /> ;(SETQ znowtime (menucmd "M=$(edtime,$(getvar,date),YYYY\"年\"M\"月\"DD\"日\" hh\"时\"mm\"分\"ss\"秒\")")) <br /> <br /> (command "text" "s"  "@@ZHJ-AC"  "j" "m" PT 300 0 znowtime)<br /> )<br />   (SETVAR "OSMODE" OLDOS)<br />   (SETVAR "CMDECHO" 1)<br />   (setq *error* olderr)<br /> (setvar "CLAYER" oldclay)<br />   (PRIN1)<br /> )<br />

；与大家分享 标注出系统时间

display18

帖子分享了...

yoyoho

谢谢! xigemapenis 分享程序!!!!