【K:GetWebTime】获取网络时间并格式化

kucha007

函数来自此贴，仅作优化：http://bbs.mjtd.com/forum.php?mo ... %CD%F8%C2%E7&page=1

2. ;获取网页URL的网络时间,如果不成功返回Nil
   
3. ;(K:GetWebTime "https://www.baidu.com" "Date")
   
4. (defun K:GetWebTime (URL Headers / obj RtnVar)
   
5.   (if (setq obj (vlax-create-object "winhttp.winhttprequest.5.1"))
   
6.       (progn
   
7.         (setq RtnVar (vl-catch-all-apply
   
8.                       '(lambda ()
   
9.                           (vlax-invoke-method obj "open" "head" URL :vlax-false)
   
10.                           (vlax-invoke obj "send")
    
11.                           (if (= 200 (vlax-get-property obj "status"))
    
12.                               (mapcar
    
13.                                 '(lambda (h / r)
    
14.                                   (setq r (vl-catch-all-apply 'vlax-invoke-method (list obj "getresponseheader" h)))
    
15.                                   (cons h (if (not (vl-catch-all-error-p r)) (progn r)))
    
16.                                 )
    
17.                                 (list Headers)
    
18.                               )
    
19.                           )
    
20.                       )
    
21.                     )
    
22.         )
    
23.         (vlax-release-object obj)
    
24.         (if (and RtnVar (not (vl-catch-all-error-p RtnVar))) ;不是错误
    
25.             (cdar RtnVar)
    
26.         )
    
27.       )
    
28.   )
    
29. )
    
30. ;根据分隔符拆分字符串@LeeMac
    
31. (defun K:STR->Lst (STR Del / len Lst pos)
    
32.   (setq len (1+ (strlen Del)))
    
33.   (while (setq pos (vl-string-search Del STR))
    
34.     (setq Lst (cons (substr STR 1 pos) Lst)
    
35.           STR (substr STR (+ pos len))
    
36.     )
    
37.   )
    
38.   (reverse (cons STR Lst))
    
39. )
    
40. ;格式化获取到的网络时间OriSTR
    
41. (defun K:FmtWebTime (OriSTR / STRLst Wek Date Moth Year CurTim)
    
42.   (if (and OriSTR (setq STRLst (K:STR->Lst OriSTR " ")))
    
43.       (progn
    
44.         (setq Wek (strcase (substr (nth 0 STRLst) 1 3)));只要前三个字母
    
45.         (setq Date (nth 1 STRLst)
    
46.               Moth (strcase (nth 2 STRLst))
    
47.               Year (nth 3 STRLst)
    
48.         )
    
49.         (setq CurTim (nth 4 STRLst));当前时间
    
50.         (setq Moth
    
51.           (cdr
    
52.             (assoc Moth
    
53.                 (list
    
54.                   (cons "JAN" "01")
    
55.                   (cons "FEB" "02")
    
56.                   (cons "MAR" "03")
    
57.                   (cons "APR" "04")
    
58.                   (cons "MAY" "05")
    
59.                   (cons "JUN" "06")
    
60.                   (cons "JUL" "07")
    
61.                   (cons "AUG" "08")
    
62.                   (cons "SEP" "09")
    
63.                   (cons "OCT" "10")
    
64.                   (cons "NOV" "11")
    
65.                   (cons "DEC" "12")
    
66.                 )
    
67.             )
    
68.           )
    
69.         );几月份
    
70.         (setq Wek
    
71.             (cdr
    
72.               (assoc Wek
    
73.                 (list (cons "MON" "01")
    
74.                       (cons "TUE" "02")
    
75.                       (cons "WED" "03")
    
76.                       (cons "THU" "04")
    
77.                       (cons "FRI" "05")
    
78.                       (cons "SAT" "06")
    
79.                       (cons "SUN" "07")
    
80.                 )
    
81.               )
    
82.             )
    
83.         );周几
    
84.       )
    
85.   )
    
86.   (if OriSTR (progn (strcat Year Moth Date)));输出年月日
    
87. )

;获取网页URL的网络时间,如果不成功返回Nil<br /> ;(K:GetWebTime "https://www.baidu.com" "Date")<br /> (defun K:GetWebTime (URL Headers / obj RtnVar) <br />   (if (setq obj (vlax-create-object "winhttp.winhttprequest.5.1"))<br />       (progn <br />         (setq RtnVar (vl-catch-all-apply <br />                       '(lambda () <br />                           (vlax-invoke-method obj "open" "head" URL :vlax-false)<br />                           (vlax-invoke obj "send")<br />                           (if (= 200 (vlax-get-property obj "status"))<br />                               (mapcar <br />                                 '(lambda (h / r) <br />                                   (setq r (vl-catch-all-apply 'vlax-invoke-method (list obj "getresponseheader" h)))<br />                                   (cons h (if (not (vl-catch-all-error-p r)) (progn r)))<br />                                 )<br />                                 (list Headers)<br />                               )<br />                           )<br />                       )<br />                     )<br />         )<br />         (vlax-release-object obj)<br />         (if (and RtnVar (not (vl-catch-all-error-p RtnVar))) ;不是错误<br />             (cdar RtnVar)<br />         )<br />       )<br />   )<br /> )<br /> ;根据分隔符拆分字符串@LeeMac<br /> (defun K:STR->Lst (STR Del / len Lst pos) <br />   (setq len (1+ (strlen Del)))<br />   (while (setq pos (vl-string-search Del STR)) <br />     (setq Lst (cons (substr STR 1 pos) Lst)<br />           STR (substr STR (+ pos len))<br />     )<br />   )<br />   (reverse (cons STR Lst))<br /> )<br /> ;格式化获取到的网络时间OriSTR<br /> (defun K:FmtWebTime (OriSTR / STRLst Wek Date Moth Year CurTim) <br />   (if (and OriSTR (setq STRLst (K:STR->Lst OriSTR " ")))<br />       (progn <br />         (setq Wek (strcase (substr (nth 0 STRLst) 1 3)));只要前三个字母<br />         (setq Date (nth 1 STRLst)<br />               Moth (strcase (nth 2 STRLst))<br />               Year (nth 3 STRLst)<br />         )<br />         (setq CurTim (nth 4 STRLst));当前时间<br />         (setq Moth<br />           (cdr <br />             (assoc Moth<br />                 (list <br />                   (cons "JAN" "01")<br />                   (cons "FEB" "02")<br />                   (cons "MAR" "03")<br />                   (cons "APR" "04")<br />                   (cons "MAY" "05")<br />                   (cons "JUN" "06")<br />                   (cons "JUL" "07")<br />                   (cons "AUG" "08")<br />                   (cons "SEP" "09")<br />                   (cons "OCT" "10")<br />                   (cons "NOV" "11")<br />                   (cons "DEC" "12")<br />                 )<br />             )<br />           )<br />         );几月份<br />         (setq Wek<br />             (cdr <br />               (assoc Wek<br />                 (list (cons "MON" "01")<br />                       (cons "TUE" "02")<br />                       (cons "WED" "03")<br />                       (cons "THU" "04")<br />                       (cons "FRI" "05")<br />                       (cons "SAT" "06")<br />                       (cons "SUN" "07")<br />                 )<br />               )<br />             )<br />         );周几<br />       )<br />   )<br />   (if OriSTR (progn (strcat Year Moth Date)));输出年月日<br /> )

用法：

1. (K:FmtWebTime (K:GetWebTime "https://www.baidu.com" "Date"))

(K:FmtWebTime (K:GetWebTime "https://www.baidu.com" "Date"))

magicheno

感谢大佬分享

kzd2004

怎么用啊？

aws

插件加密的一种方式

z312144636

感谢大佬分享

寒潮大冬瓜

;可用于指定变化颜色的色号在255内且尾数不是6789随时间变化生成的自定义函数
(defun lsp20230905();自定义函数开始
        (setq SJ1 (menucmd "M=$(edtime,$(getvar,date),SS)"))
        (setq SJ11 (atoi SJ1));(atoi x)将字符串转换成整数
        (setq SJ12 (* SJ11 0.1));让个位数成为小数点后面的数值
        (setq SJ13 (fix SJ12));去除小数点后面得出0~5的数值(提取ss的十位数)
       
        (setq SJ2 (menucmd "M=$(edtime,$(getvar,date),SS)"))
        (setq SJ21 (atoi SJ2));(atoi x)将字符串转换成整数
        (setq SJ22 (rem SJ21 10));余数相当于提取ss的个位数
        (setq SJ23 (* SJ22 10));为实现十位数做准备
       
        (setq SJ3 (+ SJ21 1));防止百位与十位数一致利用ss的十位数作为百位数的基础
        (setq SJ31 (* SJ3 0.3));为实现百位数做准备
        (setq SJ32 (fix SJ31));去除小数点后
        (setq SJ33 (* SJ32 10));为实现百位数做准备
       
        (setq SJSJ (+ SJ33 SJ23 SJ13))
        (if (>= SJSJ 255)(setq SJSJ1 253) (if (= SJSJ 0)(setq SJSJ1 6) (setq SJSJ1 SJSJ)))
        ;如果SJSJ大于255(255是纯白色还是会出现类同不能立即出现变色效果故此令其等于253，如果生成0也是白色故此令其等于6)
);自定义函数结束

寒潮大冬瓜

(defun c:FD ()
        ;(princ "点取起点坐标后画线QWQ")               
        ;(command pause)
       
  (command "-color" (lsp20230905)) ;设置当前绘图颜色为随机色
  (command "pline" )
  (while (/= (getvar "cmdactive") 0) ;用于连接空格后的命令
                        ;(princ "点取起点后画多段线QWQ")               
   (command pause))
  (command "-color" "bylayer");恢复当前绘图颜色为随层
                                (princ "点取起点后画多段线QWQ")               
(princ)
)

寒潮大冬瓜

挺不错的！只是一边画图一边不同的颜色！辨识度很高