你能删除（DWS）文件吗

Blown Big Block · 发表于 2022-7-5 22:30:45

我的公司使用AutoCAD标准检查器。我们有一个与边框相关的DWS文件，当我们向客户提交图纸时，必须删除所有图纸。我正在寻找一个lisp例程，如果有的话，它将卸载DWS文件。有人能帮忙吗？

Lee Mac · 发表于 2022-7-5 22:36:16

您将如何手动解除它们的关联？

Blown Big Block · 发表于 2022-7-5 22:45:22

我必须打开每张图纸，然后执行以下两种方法之一；工具栏：工具/Cad标准/配置或命令行：标准。对话框出现后，选择加载的标准（如果图形有，有些没有），然后点击（X）按钮，从图形中删除标准（DWS文件）。保存图形，关闭它，打开下一个图形并重复。
我发现了一个批处理例程，可以打开文件夹中的每个图形，并在图形上运行清理LISP，但我需要将其添加到其中。遇到麻烦，如果有任何帮助，我们将不胜感激。

JohnM · 发表于 2022-7-5 22:49:07

我不使用它们，但您可以尝试将系统变量STANDARDSVIOLATION设置为0

todouble22 · 发表于 2022-7-5 22:51:22

清除是否删除dws文件？

Blown Big Block · 发表于 2022-7-5 23:00:40

不，清除对它们不起作用。必须在命令行中键入（标准），选择文件，然后点击（X）按钮删除它们。当你处理几百幅画的时候，你会觉得很糟糕。这就是为什么我希望有人知道如何编写LISP或一些可以处理这个问题的东西。

Blown Big Block · 发表于 2022-7-5 23:05:30

这是我在互联网上找到的代码，但它不起作用，它可能起作用，但不是我想要它做的。我不确定它是做什么的，因为我不理解这个代码。

copy

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

JohnM · 发表于 2022-7-5 23:09:52

也许我遗漏了什么，但为什么你需要摆脱标准呢？
如果将客户端副本保存到文件中，然后运行批处理脚本，将系统变量standardsviolation设置为0，则客户端可以对图形执行任何操作，而无需任何nag屏幕。

Blown Big Block · 发表于 2022-7-5 23:14:49

公司流程，这是我们必须做的，不知道为什么。也许是为了减少文件大小，这样它就不会出现在电子传输中，谁知道呢。。。这是我们被告知要做的。

Lee Mac · 发表于 2022-7-5 23:19:52

它只是删除了AcStStandard字典-我不知道标准存储在那里，也没有办法测试它，但我可以为您提供这样做的功能：

copy


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

[编程交流] 你能删除（DWS）文件吗

发表回复

精选推荐