求教：时间限制

香田里浪人

程序要设置有效期限，比如2015年7月30日前可用，2015年7月30日后就不能用，并且显示“与作者联系”，该怎么写，好像以前见过，记不得在那里？请知道的告诉我。谢谢。

皇上快溜

(defun get-time (/ xpost var)
     (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
         )
     )
)
(setq time1 20161231);限制时间
(setq time2 (getvar "CDATE"));获取系统时间
(setq time2 (get-time));获取网络时间
(if (<=  time2 time1)

(defun c:123 ()
,,,,,,,,,,,,,,,
,,,,,,,,,,,,,,,
,,,,,,,,,,,,,,,
)

(alert "连续b人QQxxxxxxx"))

cad报错：不只是不是系统原因？win10系统。此外，加载程序时要很长时间，要十几秒
命令: ; 错误: Automation 错误。 系统无法找到指定的资源。

皇上快溜

wzg356 发表于 2015-6-21 23:06
(setq time1 20151230);限制时间
(setq time2 (getvar "CDATE"));获取系统时间
;(setq time2 (get-time) ...

你好，请问该代码只针对单个程序吗？如国一个LSP文件里有多个程序，请问该怎么搞啊，谢谢

金鹅起飞

谢谢楼主分享，好高级，佩服佩服

lucas_3333

既然会写lisp程序，就应该会写时间限制！

Rimford

lucas_3333 发表于 2015-6-21 19:56
既然会写lisp程序，就应该会写时间限制！

会写不等于全会啊，人无完人嘛
你不是老助人为乐吗，今天怎么有点一反常态了

lucas_3333

Rimford 发表于 2015-6-21 20:25
会写不等于全会啊，人无完人嘛
你不是老助人为乐吗，今天怎么有点一反常态了

论坛里有前辈写过，再说我个人很反感搞注册搞时间限制类的，在国外网站见不到这类的探讨

wzg356

(setq time1 20151230);限制时间
(setq time2 (getvar "CDATE"));获取系统时间
;(setq time2 (get-time));获取网络时间
  (if (<=  time2 time1)
          (你的程序)
          (alert "连续b人QQxxxxxxx")
  )  


;;;;;
;获取网络时间.lsp
;from blog of zml184

(defun get-time        (/ xpost var)
    (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
        )
    )
)

hao3ren

楼上的改系统时间会怎么样

香田里浪人

wzg356 发表于 2015-6-21 23:06
(setq time1 20151230);限制时间
  (setq time2 (getvar "CDATE"));x获取系统时间
  (if (

谢谢。
(setq time1 20151230);限制时间
  (setq time2 (getvar "CDATE"));x获取系统时间
  (if (<=  time2 time1)
          (你的程序)
          (alert "连续b人QQxxxxxxx")
(quit)
  )  

sibelle_hu

wzg356 发表于 2015-6-21 23:06
(setq time1 20151230);限制时间
  (setq time2 (getvar "CDATE"));x获取系统时间
  (if (

貌似函数 get-time 没有用上 ,那修改系统时间后,还是可以用的

TPG辉

错误:
用于比较的参数类型不正确: "\n57195 15-06-22 05:29:41 50 1 0 347.9 UTC(NIST) *
\n" 20150730

429014673