蹭个海哥 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);退出

复制代码

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

yanshengjiang

(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
             )

请问这样可以直接下载文件到本地吗？

429014673

简简单单更好

spp_wall

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

tiancao100

支持会VB的高手

guosheyang

感谢楼主的分享！

love1030312

高手呀   默默点赞支持

magicheno

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

nijiea123

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

nxchenjk

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

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