你能删除（DWS）文件吗
我的公司使用AutoCAD标准检查器。我们有一个与边框相关的DWS文件，当我们向客户提交图纸时，必须删除所有图纸。我正在寻找一个lisp例程，如果有的话，它将卸载DWS文件。有人能帮忙吗？ 您将如何手动解除它们的关联？ 我必须打开每张图纸，然后执行以下两种方法之一；工具栏：工具/Cad标准/配置或命令行：标准。对话框出现后，选择加载的标准（如果图形有，有些没有），然后点击（X）按钮，从图形中删除标准（DWS文件）。保存图形，关闭它，打开下一个图形并重复。我发现了一个批处理例程，可以打开文件夹中的每个图形，并在图形上运行清理LISP，但我需要将其添加到其中。遇到麻烦，如果有任何帮助，我们将不胜感激。 我不使用它们，但您可以尝试将系统变量STANDARDSVIOLATION设置为0 清除是否删除dws文件？ 不，清除对它们不起作用。必须在命令行中键入（标准），选择文件，然后点击（X）按钮删除它们。当你处理几百幅画的时候，你会觉得很糟糕。这就是为什么我希望有人知道如何编写LISP或一些可以处理这个问题的东西。 这是我在互联网上找到的代码，但它不起作用，它可能起作用，但不是我想要它做的。我不确定它是做什么的，因为我不理解这个代码。
(vl-load-com); Doc is the document (drawing) you want to erase all DWS file associations.
(defun DeleteDWSDict (Doc / DictObj)
(if
(not
(vl-catch-all-error-p
(setq DictObj
(vl-catch-all-apply
'vla-Item
(list
(vla-get-Dictionaries Doc)
"AcStStandard"
)
)
)
)
)
(progn
(prompt (strcat "\n Deleted " (itoa (vla-get-Count DictObj)) " DWS file associations."))
(vla-Delete DictObj)
)
(prompt "\n No attached DWS files.")
)
(princ)
)
也许我遗漏了什么，但为什么你需要摆脱标准呢？
如果将客户端副本保存到文件中，然后运行批处理脚本，将系统变量standardsviolation设置为0，则客户端可以对图形执行任何操作，而无需任何nag屏幕。 公司流程，这是我们必须做的，不知道为什么。也许是为了减少文件大小，这样它就不会出现在电子传输中，谁知道呢。。。这是我们被告知要做的。
它只是删除了AcStStandard字典-我不知道标准存储在那里，也没有办法测试它，但我可以为您提供这样做的功能：
(defun c:test (/ DictObj)
(vl-load-com)
(if (not (vl-catch-all-error-p
(setq DictObj (vl-catch-all-apply 'vla-item
(list (vla-get-Dictionaries
(vla-get-ActiveDocument
(vlax-get-acad-object))) "AcStStandard")))))
(progn
(princ (strcat "\n<< Deleted " (itoa (vla-get-Count DictObj)) " DWS File Associations >>"))
(vla-Delete DictObj))
(princ "\n<< No Attached DWS Files >>"))
(princ))
页:
[1]
2