蹭个海哥 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);退出
大神！我晚上研究了一下海哥分享的方法、用这个可以不用重启直接更新插件了 (setq str "https://www.jianguoyun.com/p/DeEofi4Qts_FCxirzOUFIAA")
(setq str "https://gitee.com/-/ide/project/yan1986/test-automatic-download/edit/master/-/%E7%A1%AE%E5%8F%96%E6%B6%88%E5%AF%B9%E8%AF%9D%E6%A1%86.LSP")
;;;(command "shell" (strcat "curl " str " -o c:/1.txt"))
(vlax-invoke
(vlax-create-object "wscript.shell")
"run"
(strcat "curl " str " -o c:/1.txt")
0
1
)
请问这样可以直接下载文件到本地吗？ 简简单单更好 厉害厉害！！！！！！！！！ 支持会VB的高手 感谢楼主的分享！ 高手呀 默默点赞支持 看不懂，但是感觉应该很牛逼，支持 真是不错呀 各种方法:lol，学习了 自贡黄明儒 发表于 2024-5-10 15:41
一看就是高大上的东西。也不知道这么复杂的操作，是怎么想出来的。
为了方便同事们使用，不用拷贝来拷贝去的，每个人联网就能更新。