香田里浪人 发表于 2015-6-21 17:28:59

求教：时间限制

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

皇上快溜 发表于 2016-10-18 22:11:19

(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 错误。 系统无法找到指定的资源。

皇上快溜 发表于 2016-10-18 21:48:23

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

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

金鹅起飞 发表于 2024-4-3 17:48:37

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

lucas_3333 发表于 2015-6-21 19:56:26

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

Rimford 发表于 2015-6-21 20:25:37

lucas_3333 发表于 2015-6-21 19:56 static/image/common/back.gif
既然会写lisp程序，就应该会写时间限制！

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

lucas_3333 发表于 2015-6-21 21:17:35

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

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

wzg356 发表于 2015-6-21 23:06:35

本帖最后由 wzg356 于 2015-6-22 12:44 编辑

(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 发表于 2015-6-21 23:14:04

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

香田里浪人 发表于 2015-6-22 01:49:02

wzg356 发表于 2015-6-21 23:06 static/image/common/back.gif
(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 发表于 2015-6-22 09:28:18

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

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

TPG辉 发表于 2015-6-22 12:40:47

本帖最后由 TPG辉 于 2015-6-22 13:30 编辑

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

429014673 发表于 2015-6-22 12:50:00

页: [1] 2
查看完整版本: 求教：时间限制