使用VBA插入块
如何使用VBA将现有块对象添加到图形中?如果该块已在图形中定义,则简单
Set BlockRefObj = ThisDrawing.ModelSpace.InsertBlock(TriPos, "Tri", CScale, CScale, CScale, 0)
将插入我想要的块。然而,如果我的块仅在网络上定义,则我的例程不起作用。我可以
显示可以找到它,但我的例程只给了我一条“文件错误”消息。
我猜我必须将块添加到块集合中,但我找不到如何从中添加一个块。dwg文件。
有什么提示吗? 在VL中使用InsertBlock方法时,如果块不在支持路径中,则必须提供块所在的完整路径。我假设VBA也是这样。 我也是这么想的,但我还是遇到了一个文件错误
设置BlockRefObj=ThisDrawing。模型空间。插入块(TriPos,“P:\Design\u Office\DO\u Admin\symbols\miscellaneous\Tri.DWG”,CScale,CScale,CScale,0)
真正让我恼火的是,它过去在没有任何路径的情况下工作,但我们的网络已经“重新安排”,无论是否提供完整路径,它都不再工作。GGRRRR 双重反斜杠? VBA中不常见
嘿,成功了!让我们再试一次。
########
矛盾还是什么?
我原以为逃逸角色有各种语言,但很高兴你能用上 只是偶尔工作——真令人沮丧!
您仍然收到文件错误?我没有主意了——只有在找不到块的情况下,我才能使该方法失败。 我真的无法解决这个问题。我仍然无法找到一种方法,将dwg文件放入我的图形中,而不会遇到文件错误消息。
导致问题的例程插入了一个简单的属性问题三角形块,因此我在例程中从头开始创建了该块。至少我现在知道它在每次运行例程时都可用。 visual basic是否充满了错误?我的工作中有一个VB程序,我听到人们说它并不总是正常工作。我只是觉得是用户错误。事实上,我现在正在读一本VB书籍。。这门语言值得我学吗?
页:
[1]
2