设计中心

Matersammichman · 发表于 2006-7-17 15:55:42

可以通过VBA访问设计中心命令吗？
如果是，如何实现？

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

Matersammichman · 发表于 2006-7-17 16:01:56

怎么进入的？如果你只是想通过VBA发射，你总是可以用这张图。发送命令“ADCENTER”

Matersammichman · 发表于 2006-7-17 16:11:23

不，我想深入研究，比如访问检查外部参照数据所需的命令

Matersammichman · 发表于 2006-7-17 16:25:57

如果你想和设计中心联系，我不知道，但我有疑问。如果要重新创建功能，请确定。

MikeJarosz · 发表于 2006-7-17 16:32:22

谢谢Bob...
简而言之，我想做的是创建一个应用程序，我可以在其中轻松搜索目录中的所有xrefs，并找出它们是否仍被同一目录中的文件使用。我可以一次做一个，但能够批量处理它肯定会很好，这样我就可以快速处理垃圾。

Matersammichman · 发表于 2006-7-18 07:30:52

进一步的暗示，鲍勃？

Matersammichman · 发表于 2006-7-18 08:23:13

是的，但如果你指的是“一些代码”，不是现在。现在在鲍勃的世界里，是早上5:00，我没有喝咖啡，即使我尝试也无法让我的大脑编码。在我看来，一个好的开始方式是绘制流程图(总是一个好主意),或者至少写下你在哪里，你想去哪里，然后填写到达那里的步骤。我会考虑这样做

[not code]
1。获取目录中所有图纸的列表。打开列表中的第一个图形。如果您不想在autocad中打开它们，请查看
3。检查图形中的外部参照。将外部参照列表放入数组中。关闭图纸
6。对于列表7中的每个剩余图纸。打开图纸
8。检查外部参照。将每个外部参照添加到阵列中，并在操作过程中检查是否有重复。
10。关闭图纸
11。下一张图纸
12。将原始图纸列表与外部参照到图纸中的图纸列表进行比较
13。举报不用的。
[/NotCode]

Matersammichman · 发表于 2006-7-18 14:03:43

这是我不久前写的。列出具有完整路径的文件并另存为文本文件。（以下示例中为mj.txt）。当然，您必须修改一些代码以适应您的环境
选项基础1
子块报告（）
将文件名设置为字符串
将F设置为整数
把G设置为整数将块设置为AcadBlock
把块类型设置为字符串
打开文件
关闭
F=FreeFile（）
打开“w:\a\sheet\mj.txt”输入为#F
G=freeffile（）
，打开“w\a\BlockReport.txt”输出为"G
不执行EOF（F）
行输入35F，文件名＜br＞ThisDrawing.Application.Documents。打开此图形中每个块的文件名，只读
。Block＜br＞如果左（Block.Name，1）＝“*”，则＜br＞维度：如果为Block，则不执行任何操作。如果是块，则IsLayout为BlockType=“LAYOUT”
。IsXRef然后BlockType=“XREF”打印块。名称Chr$（9）；这是一幅画。全名；Chr$（9）；如果
下一个块
是ThisDrawing.Application.ActiveDocument，则BlockType
结束。Close，savechanges=False＜br＞循环＜br＞Close#F＜br＞关闭#G＜br＞调试。打印“完成”
结束子项

MikeJarosz · 发表于 2006-7-18 14:07:03

Mike，
谢谢，这有助于找出dwg中的哪些块，但我要寻找的是从dwg中找出它外部参照到的其他dwg。我有一个通过设计中心的捷径，但它既费力又缓慢。

Matersammichman · 发表于 2006-7-18 14:14:15

只有一种方法可以找到图纸被xreffed成什么样，那就是打开图纸并检查。设计中心做它，xref经理做它，你必须做它。当你xref一个图纸进去时，图纸不会被修改以显示它已经被xreffed了。我知道这不是你想听到的，但这是世界的运作方式。

设计中心

发表回复

精选推荐