工作区备份脚本

Drwo · 发表于 2022-7-6 11:08:53

我正在尝试备份autoCAD工作区，以便安全地更改某些ACAD设置。

在这样做的时候，我遇到了一个小问题。如果存在具有该名称的现有工作区，那么我需要设置一个肯定答案来覆盖它，如果没有任何这样的工作区，则什么也不做。

错误的选择会阻止脚本进一步执行。

我通过VVA发布的代码找到了解决方案

copy

(defun C:SW ()
;;;Save WorkSpace
(command "_.WorkSpace" "_Save" 
"[color=red]MyWorkSpace[/color]" [b];;;_ Type this your workspace name[/b]
)
(while (> (getvar "CMDACTIVE") 0)(command "_Y"))
(princ)  
 )

我试着把它转换成脚本的一部分，但它总是挂在最后。我似乎无法找到在不结束脚本执行的情况下结束代码的方法。

我也试着把它分开。lsp文件并从脚本中加载它

copy

(load "G:\\...\\install.lsp")
[size=4][color=red]sw[/color][/size]
(vl-load-com)
(vla-put-enterprisemenufile (vla-get-files 
(vla-get-preferences(vlax-get-acad-object)))"G:/.../Standard_001.cui")
(command "*_TOOLPALETTEPATH" "G:/.../PALETTE SYSTEM")
(command "workspace" "c" "tmp")
(command "-toolbar" "STANDARD BLOCKS" "SHOW")
(command "quit" "y")

但是脚本总是纠缠在lisp代码中。。。

如果我试着直接在命令行中执行它，它会很好地工作。。。

所以这个解决方案对我来说很难理解

alanjt · 发表于 2022-7-6 11:19:29

对我来说效果很好。

如。

copy

(defun c:Test (/)
 (command "_.workspace" "_sa" "ALAN")
 (while (> (getvar "cmdactive") 0) (command "_Y"))
 (command "_.line")
 (princ)
)

Drwo · 发表于 2022-7-6 11:30:36

这部分代码对我来说也很好。我在将其与脚本文件结合时遇到问题。

如果工作区文件已经存在，则会发生这种情况

copy

Command: (load 
"G:\\Isme\\STS\\DRAFTING\\AUTOCAD_TOOLS\\Library\\Blocks_2010\\Installation\\ins
tall.lsp")
C:TEST
Command: test
_.workspace Enter workspace option 
[setCurrent/SAveas/Edit/Rename/Delete/SEttings/?] <setCurrent>: _sa
Save Workspace as <TMP>: tmp
"tmp" already exists.
Do you wish to replace it? [Yes/No]? <N> _Y
Command: _Y Unknown command "Y".  Press F1 for help.
Command: _.line Specify first point: Specify first point: *Cancel*

如果工作区不存在，就会发生这种情况

copy

Command: ((load 
"G:\\Isme\\STS\\DRAFTING\\AUTOCAD_TOOLS\\Library\\Blocks_2010\\Installation\\ins
tall.lsp")
(_> test
(_> (vl-load-com)
(_> (vla-put-enterprisemenufile (vla-get-files 
(vla-get-preferences(vlax-get-acad-object)))"G:/Isme/STS/DRAFTING/AUTOCAD_TOOLS/
Library/Blocks_2010/Installation/Standard_001.cui")
(_> (command "*_TOOLPALETTEPATH" 
"G:/Isme/STS/DRAFTING/AUTOCAD_TOOLS/Library/Blocks_2010/PALETTE SYSTEM")
(_> (command "workspace" "c" "tmp")
(_> (command "-toolbar" "STANDARD BLOCKS" "SHOW")
(_> (command "quit" "y")
(_> *Cancel*
; error: Function cancelled

在这两种情况下，我都必须手动取消命令。如果我在代码末尾加上一个enter或空格，那也没用。

alanjt · 发表于 2022-7-6 11:37:25

这样试试。。。

copy

(defun c:Test (/)
 (command "_.workspace" "_sa" "ALAN")
 (while (eq (logand 1 (getvar 'cmdactive)) 1) (command "_Y"))
 (command "_.line")
 (princ)
)

alanjt · 发表于 2022-7-6 11:46:22

运气好吗？

Drwo · 发表于 2022-7-6 11:51:26

对不起，我的工作时间刚刚结束后的职位。。。

我明天早上去查一下，然后告诉你

alanjt · 发表于 2022-7-6 11:55:56

别担心。祝你好运

Drwo · 发表于 2022-7-6 12:07:20

我删除了用于绘制线条的代码行，现在可以使用了。。

谢谢

alanjt · 发表于 2022-7-6 12:14:51

是的，那只是为了演示。很高兴它起作用了。

[编程交流] 工作区备份脚本

发表回复

精选推荐