使用VBA插入块

dbroada · 发表于 2022-7-6 23:01:23

如何使用VBA将现有块对象添加到图形中？

如果该块已在图形中定义，则简单

    Set BlockRefObj = ThisDrawing.ModelSpace.InsertBlock(TriPos, "Tri", CScale, CScale, CScale, 0)

将插入我想要的块。然而，如果我的块仅在网络上定义，则我的例程不起作用。我可以
显示可以找到它，但我的例程只给了我一条“文件错误”消息。

我猜我必须将块添加到块集合中，但我找不到如何从中添加一个块。dwg文件。

有什么提示吗？

Lee Mac · 发表于 2022-7-6 23:09:53

在VL中使用InsertBlock方法时，如果块不在支持路径中，则必须提供块所在的完整路径。我假设VBA也是这样。

dbroada · 发表于 2022-7-6 23:18:59

我也是这么想的，但我还是遇到了一个文件错误

设置BlockRefObj=ThisDrawing。模型空间。插入块（TriPos，“P:\Design\u Office\DO\u Admin\symbols\miscellaneous\Tri.DWG”，CScale，CScale，CScale，0）

真正让我恼火的是，它过去在没有任何路径的情况下工作，但我们的网络已经“重新安排”，无论是否提供完整路径，它都不再工作。GGRRRR