求教：时间限制

sibelle_hu

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

你现在加了这句
(setq time2 (get-time));获取网络时间
  (if (<=  time2 time1)
错误: 用于比较的参数类型不正确: "\n57195 15-06-22 06:18:10 50 1 0 579.0 UTC(NIST) * \n"

觉得这种比较不是很好,要是单机无网络那也运行不了程序 ,
要是能做到像大多数软件那样,单机也能用 ,时间到了,改系统日期也无效,那就最好了

spp_wall

支持一下下！！！！

叶曲冰寒

楼主还可以考虑做个有时间限制的注册码注册后才能用的

sicky111

在强大的反编译面前，一切都是徒劳。。。

荒野孤行

好吧，用时间限制和用硬件ID的都在这里：http://bbs.mjtd.com/thread-109143-1-1.html

皇上快溜

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

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

皇上快溜

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

金鹅起飞

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

tensir

感谢作者的分享！