sibelle_hu 发表于 2015-6-22 14:22:13

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

支持一下下！！！！

叶曲冰寒 发表于 2015-6-22 17:59:32

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

sicky111 发表于 2015-6-22 21:31:50

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

荒野孤行 发表于 2015-6-23 19:20:13

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

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

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

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

皇上快溜 发表于 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 错误。 系统无法找到指定的资源。

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

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

tensir 发表于 2024-8-2 00:00:52

感谢作者的分享！
页: 1 [2]
查看完整版本: 求教：时间限制