在文本中添加/更新文件名（Microstation）
我需要一种在microstation绘图中自动添加/更新包含文件名的文本的方法。这有助于使用excel中创建的五元表进行文本替换。该办公室正在使用v8和xm，近期没有使用新版本的计划。我查找了一些代码示例，并将它们放在一起...它扫描dgn中的文本(包含“.dgn”)以使用新文件名更新，如果找不到新文件名，它将扫描附着的参考文件以查找要复制和更新的文本。
这是我整理的第一个vba代码，我很想知道如何缩短或更有效地编写它。我想继续学习v8/xm的microstation vba，这将是一个有用的例子。非常感谢所有的帮助/建议。预先感谢Juan代码0]
**** Hidden Message ***** 在不评论您的代码的情况下，有什么理由不使用钢笔表的文本替换功能吗？我刚刚处理了一个本地DOT项目，在它们的工作表边框中有一些不同的文本字符串，例如$username$和$dgnname$，它们的绘图驱动程序会自动调用它们的pentable，它会自动将那些替换为完整路径文件名和我的Windows用户名。
我知道文本字符串必须完全匹配。换句话说，您不能将其作为字符串：
FILE：$dgnname$
除非FILE： part是一段文本，而$dgnname$是单独的一段文本。 感谢您的回复。
让我再解释一下这种情况：
我们已经使用一个笔表进行文本替换（包括放置在边框顶部的$dgn$）。但是为了更新工作表编号，我们替换实际的文件名。文本必须包含文件名，因为它不能替换另一个文本替换字符串。
例如：假设文件名是draw1.dgn
“$dgn$”打印为“drawing1.dgn”与pentable
“drawing1.dgn”打印为“1”与pentable
此代码所做的是，搜索包含“.dgn”的字符串以更新或复制/更新当前文件名以用于笔表。您可以想象，如果将其用于包含几百个图形的项目，这将是多么有用。
对于本站的少数微站用户...
这是我从“MicroStation V8 2004 Edition - VBA”论坛上得到的回复，communities.bentley.com
页:
[1]