怎样利用ＬＩＳＰ把ＣＡＤ文件保存副本

蝙蝠mmx

请教一下各位高人，想在ＣＡＤ操作过程中保存文件的同时，再保存一份副本，并且副本保存到另外一个文件夹里，利用ＬＩＳＰ程序怎样完成。
谢谢！

该贴已经同步到 蝙蝠mmx的微博

裤裆有异味

应该用到反应器+当前文件路径获得+当前文件另存等操作

蝙蝠mmx

具体怎样做?谢谢

edata

完成后是编辑副本文件还是原来的文件。
保存的概念是将当前文件执行存储操作。
另存的概念是将当前文件存储到用户指定位置，将会编辑刚刚另存的文件。
------------------------
如果是保存完成后保存编辑当前文件，而不是副本文件，那么可以考虑用保存，复制文件。
------------------------

1993063

;;;借花献佛,用我的改了一个,希望是你要的
(Defun SaveCommand (bak b)
  (if
    (or
      (= (car b) "QSAVE")
      (= (car b) "SAVEAS")
      (= (car b) "SAVE")
    )(bak1)
  )
)
(defun bak1 ()
  (vl-mkdir (strcat (Getvar 'DWGPREFIX) "备份目录"))
  (vl-file-copy
    (strcat (Getvar 'DWGPREFIX) (Getvar 'DWGName))
    (strcat (Getvar 'DWGPREFIX)
            "备份目录\\"
            (vl-filename-base (Getvar "dwgName"))
            (menucmd "m=$(edtime,$(Getvar,DATE), YYYY-MO-DD HH-MM)")
            ".dwg"
    )
  )
)
(Defun bak ()
  (vl-load-com)
  (if *FileOnSave* (vlr-remove *FileOnSave*))
  (setq *FileOnSave* (vlr-Command-reactor nil '((:vlr-CommandwillStart . SaveCommand))))
)(bak)

1993063

打开备份文件夹
(startapp "explorer" (strcat (Getvar 'dwgprefix) "备份目录\\"))

蝙蝠mmx

1993063 发表于 2014-7-26 16:04
;;;借花献佛,用我的改了一个,希望是你要的
(Defun SaveCommand (bak b)
  (if

在这谢谢了，请问你的这个加载就可以用了吗？是自动会保存的吗？还有你的这个是和原文件在同一个文件夹下的吧

1993063

蝙蝠mmx 发表于 2014-7-26 04:27
在这谢谢了，请问你的这个加载就可以用了吗？是自动会保存的吗？还有你的这个是和原文件在同一个文件夹下 ...

加载就可以用,调用反应器.文件保存在图形目录下的备份目录.自己去调试结果

1993063

不过用了太多反应器,会使电脑变慢,

tranney

请问楼上可是它山之石 另存的源码么？