明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 17102|回复: 106

[源码] 自制工具箱中的版本检测

  [复制链接]
发表于 2015-8-4 19:24 | 显示全部楼层 |阅读模式
本帖最后由 荒野孤行 于 2015-8-9 00:01 编辑

源码如下:

(defun c:t1 ()
  (setvar "cmdecho" 0)
  (vl-load-com)
;;;版本检测 开始
  (setq wdy_now_version 1.0) ;设置当前的版本
  (setq        wdy_version
         (vl-registry-read
           "HKEY_CURRENT_USER\\SOFTWARE\\WDY2014"
           "WDY_VERSION"
         )
  ) ;从注册表中读取工具箱的版本信息
(if (or (= wdy_version nil)
          (< (atof wdy_version) wdy_now_version) ;注册表中的版本和当前版本进行对比
      )
    (progn
      (setq wdy_version
             (vl-registry-write
               "HKEY_CURRENT_USER\\SOFTWARE\\WDY2014"
               "WDY_VERSION"
               (rtos wdy_now_version)
             )
      )
      (alert
        "提示:\n由于此次更新增加了一些特殊功能以及调整了面板布局,建议您重新设置此插件的自定义快捷键命令。"
      )
      (prompt
        "\n提示:由于此次更新增加了一些特殊功能以及调整了面板布局,建议您重新设置此插件的自定义快捷键命令。\n"
      )
    )
  )
  (if (> (atof wdy_version) wdy_now_version)
    (alert
      "检测到您使用的WDY工具箱更换为了低版本\n为了避免出现不可遇见的Bug,建议您更换为高版本!"
    )
  )
;;;版本检测 结束
;以上为工具箱启动时的版本检测,其它的主要功能可以在此处继续添加。

(princ)
)

点评

看了下代码,感觉有点自欺欺人啊,检测你得用老版本检测啊,拿着新版本检测有点多此一举吧!建议从网络获取更新哈!  发表于 2015-8-8 18:08
"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2023-11-16 09:53 | 显示全部楼层
荒野孤行 发表于 2015-8-6 15:55
其实每次弹出提示也蛮让人烦的,哈哈,最终我取消版本提示了。

通过网络检测能给个提示吗?
发表于 2023-11-20 19:46 | 显示全部楼层
看标题就知道一定又是好精品
发表于 2017-8-31 10:29 | 显示全部楼层
看标题就知道一定又是好精品
发表于 2015-8-4 19:32 | 显示全部楼层
好久不见啊, 又出大作呢? 支持!
发表于 2015-8-4 19:33 | 显示全部楼层
看看主要源码
发表于 2015-8-4 22:12 | 显示全部楼层
学习,看东西
发表于 2015-8-4 22:43 | 显示全部楼层
看看具体干啥的
发表于 2015-8-4 22:46 | 显示全部楼层
工具箱的版本区分有原因吗?一般是可以向下兼容的,以主流版本为开发基础,cad自带的命令不再重复开发!
 楼主| 发表于 2015-8-4 23:02 | 显示全部楼层
楚留香 发表于 2015-8-4 22:46
工具箱的版本区分有原因吗?一般是可以向下兼容的,以主流版本为开发基础,cad自带的命令不再重复开发!

为了提示别人使用的是旧版本而已,没太大用处,有时反而提示太频繁让用户觉得急躁。
发表于 2015-8-5 07:53 | 显示全部楼层
回复,学习,谢谢楼主!
发表于 2015-8-5 08:05 | 显示全部楼层
看看是什么好东东
发表于 2015-8-5 08:07 | 显示全部楼层
学习,看东西
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 22:29 , Processed in 0.218462 second(s), 33 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表