好久没来咯，弄个保存时，在局域网进行自动备份文件

feng582304

(defun c:qss ( / doc pa na t1 t2 fi )
  (if (and (= (getvar "DWGTITLED") 0) (setq fi (GETFILED "保存文件" (vl-registry-read (strcat "HKEY_CURRENT_USER\\" (vlax-product-key) "\\Recent File List") "File1") "dwg" 1)))
    (command "save" fi)
    )
  (if (= (getvar "DWGTITLED") 1)
    (progn
      (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
      (setq pa (vla-get-path doc))
      (setq na (vla-get-name doc))
      (setq t1 (strcat pa "\\" na))
      (setq t2 (strcat "\\\\GL-SFT1200\\GL-Samba\\大白菜U盘\\working\\" na));局域网路径要自己弄
      (command "qsave")
      (VL-FILE-DELETE t2)
      (VL-FILE-COPY t1 t2)
      )
    )
  )
附：如果里面(VL-FILE-DELETE t2)删掉，可以得到很神奇的效果

自贡黄明儒

神奇在哪里，没明白？

jun470

我这边，没有神奇效果。直接就没更新版本，没有实现多版本。把那句换成(vl-file-rename t2 (strcat "\\\\GL-SFT1200\\GL-Samba\\大白菜U盘\\working\\" (itoa (+ i 1)) na))。才有神奇效果

feng582304

自贡黄明儒 发表于 2025-3-17 07:09
神奇在哪里，没明白？

竟然没发现？！多保存几次再对比文件大小嘛。

feng582304

jun470 发表于 2025-3-17 14:43
我这边，没有神奇效果。直接就没更新版本，没有实现多版本。把那句换成(vl-file-rename t2 (strcat "\\\\GL ...

哈哈，证明你是认真负责在工作。没弄多版本，是因为我只需要临时能调用文件就行。