蹭个海哥 tryhi 的热度，介绍一下我的在线更新

nxchenjk

首先，免费注册 gitee帐号：工作台 - Gitee.com

再建一个免费使用的仓库，如下。

之后再把自己的宝贝上传到自己的仓库

最后就是把宝贝下载到本地覆盖旧文件。可能本地文件正在使用无法覆盖就改名保存，CAD重启时判断有改名文件时把原文件删除，再把改名文件更为原文件名，更新完成。

(setq str "https://gitee.com/nxchenjk/pipeline-toolbox/raw/master/CJK管线工具箱.VLX")
(command "shell" (strcat "curl " str " -o d:/CJK管线工具箱ZD.vlx"))

这个会有DOS弹窗，本人是用vb做的下载程序，生成dll文件lisp调用。vb对文件操作及进度条好实现一点。

我用的是速腾菜单工具。

注意：有时文件名有汉字时，在仓库里点击此文件，复制完速路径赋值给str。


如有更新的话，把仓库的文件删除重新上传


欢迎使用自己的一点小成果，完全支持CAD2009及以下版本，由于COMMAND问题高版本部分不支持。
下载解压后运行，选择要安装的CAD版本，会自动加到启动组并设置好路径。VB写的EXE文件可能会报毒，请放心使用。

自贡黄明儒

一看就是高大上的东西。也不知道这么复杂的操作，是怎么想出来的。

xiaocainiao

nxchenjk 发表于 2024-5-14 16:12
(if(findfile "D:\\CJK\\管线工具箱\\nxchenZX.dll")  ;;启动时判断是否有更新文件
  (progn
    (star ...

1. (vl-file-delete *vlx路径*);删除自身
   
2.                                         (vl-file-rename 临时文件vlx *vlx路径*);移动并重命名至指定目录
   
3.                                         (princ "\n自动更新完成")
   
4.                                         (load *vlx路径*);重载加载自身
   
5.                                         (VL-EXIT-WITH-VALUE 0);退出

复制代码

大神！我晚上研究了一下海哥分享的方法、用这个可以不用重启直接更新插件了

nxchenjk

xiaocainiao 发表于 2024-5-14 15:56
请教一下大神、看到您发的更新步骤里面有一条、
就是"CAD重启时判断有改名文件时把原文件删除，再把改名文 ...

(if(findfile "D:\\CJK\\管线工具箱\\nxchenZX.dll")  ;;启动时判断是否有更新文件
  (progn
    (startapp "cmd.exe /C del /f/s/q D:\\CJK\\管线工具箱\\nxchen.dll")  ;; 删除原文件
    (startapp "cmd.exe /C rename D:\\CJK\\管线工具箱\\nxchenZX.dll nxchen.dll")  ;;更新文件重命名
  )
)

429014673

简简单单更好

spp_wall

厉害厉害！！！！！！！！！

tiancao100

支持会VB的高手

guosheyang

感谢楼主的分享！

love1030312

高手呀   默默点赞支持

magicheno

看不懂，但是感觉应该很牛逼，支持

nijiea123

真是不错呀 各种方法，学习了

nxchenjk

自贡黄明儒 发表于 2024-5-10 15:41
一看就是高大上的东西。也不知道这么复杂的操作，是怎么想出来的。

为了方便同事们使用，不用拷贝来拷贝去的，每个人联网就能更新。