自制工具箱中的版本检测

荒野孤行 · 发表于 2015-8-4 19:24:59

本帖最后由荒野孤行于 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)
)

MXS · 发表于 2023-11-16 09:53:51

荒野孤行发表于 2015-8-6 15:55
其实每次弹出提示也蛮让人烦的，哈哈，最终我取消版本提示了。

通过网络检测能给个提示吗？

haoxuan · 发表于 2023-11-20 19:46:52

看标题就知道一定又是好精品

迷失1786 · 发表于 2017-8-31 10:29:26

看标题就知道一定又是好精品

lucas_3333 · 发表于 2015-8-4 19:32:14

好久不见啊, 又出大作呢? 支持!

bai2000 · 发表于 2015-8-4 19:33:14

看看主要源码

TPG辉 · 发表于 2015-8-4 22:12:31

学习，看东西

clinber · 发表于 2015-8-4 22:43:12

看看具体干啥的

楚留香 · 发表于 2015-8-4 22:46:26

工具箱的版本区分有原因吗？一般是可以向下兼容的，以主流版本为开发基础，cad自带的命令不再重复开发！

荒野孤行 · 发表于 2015-8-4 23:02:34

楚留香发表于 2015-8-4 22:46
工具箱的版本区分有原因吗？一般是可以向下兼容的，以主流版本为开发基础，cad自带的命令不再重复开发！

为了提示别人使用的是旧版本而已，没太大用处，有时反而提示太频繁让用户觉得急躁。

USER2128 · 发表于 2015-8-5 07:53:20

回复，学习，谢谢楼主！

lidaxiu · 发表于 2015-8-5 08:05:52

看看是什么好东东

ymcui · 发表于 2015-8-5 08:07:13

学习，看东西

账号		自动登录	找回密码
密码			注册

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

点评

相关帖子