蹭个海哥 tryhi 的热度，介绍一下我的在线更新
本帖最后由 nxchenjk 于 2024-5-10 15:20 编辑首先，免费注册 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文件可能会报毒，请放心使用。
一看就是高大上的东西。也不知道这么复杂的操作，是怎么想出来的。 nxchenjk 发表于 2024-5-14 16:12
(if(findfile "D:\\CJK\\管线工具箱\\nxchenZX.dll");;启动时判断是否有更新文件
(progn
(star ...
(vl-file-delete *vlx路径*);删除自身
(vl-file-rename 临时文件vlx *vlx路径*);移动并重命名至指定目录
(princ "\n自动更新完成")
(load *vlx路径*);重载加载自身
(VL-EXIT-WITH-VALUE 0);退出
大神！我晚上研究了一下海哥分享的方法、用这个可以不用重启直接更新插件了 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");;更新文件重命名
)
) 简简单单更好 厉害厉害！！！！！！！！！ 支持会VB的高手 感谢楼主的分享！ 高手呀 默默点赞支持 看不懂，但是感觉应该很牛逼，支持 真是不错呀 各种方法:lol，学习了 自贡黄明儒 发表于 2024-5-10 15:41
一看就是高大上的东西。也不知道这么复杂的操作，是怎么想出来的。
为了方便同事们使用，不用拷贝来拷贝去的，每个人联网就能更新。