[编程交流] 时间限制

(setq time1 20151230)
 (setq time2 (getvar "CDATE"))
 (if (<=  time2 time1)
         (my-stuff)
         (alert "Need Update")
 )

(defun get-time        (/ xpost var)
;from blog of zml184 
   (if        (SetQ xPost (vlax-get-or-create-object "Microsoft.XMLHTTP"))
       (progn
           (vlax-invoke-method
               XPOST                    'OPEN
               "Put"                    " Http://time.nist.gov:13"
               :vlax-false
              )
           (vlax-invoke-method XPOST 'Send)
           (while (/= (vlax-get-property xpost 'readyState) 4))
           (while
               (not (setq var (vlax-get-property xpost 'responsetext)))
           )
           (vlax-release-object xPost)
           var
       )
   )
)