使用VBA重命名块

macchi · 发表于 2022-7-6 11:54:36

我想用VBA重命名块。
我需要用属性重命名标题栏（例如A1或A2或A3为VX\U标题）。

我不想使用：
此图纸。SendCommand“_-rename”&vbCr和“b”&vbCr和“A1”&vbCr和“VX\u标题”&vbCr

谁能帮我？

dbroada · 发表于 2022-7-6 12:04:43

我最近做过这件事，但我现在在家，天气不好。如果在雪融化之前没有人来，我会检查一下我是怎么做到的。

macchi · 发表于 2022-7-6 12:08:48

好的，桑克斯。明天，他们预计这里（荷兰坎彭）也会下很多雪，而且盐也快用完了。。。。。

dbroada · 发表于 2022-7-6 12:20:56

这里听起来差不多。我可以在主干道上到达距离我工作地点约2公里的地方——没问题。但最后一点是单轨车道。我不想开车一个小时到那里，然后发现我进不去，所以我仍然不知道我今天是否会试试。

dbroada · 发表于 2022-7-6 12:24:48

好的，这就是我所做的。。。
我们所有的图形都应该有一个称为STL的画框，所以我创建了一个所有块实例的选择集，以防有人插入了多个帧。不过应该只有一个！

然后，我根据图纸中已有的内容来决定新名称。然后创建要插入的块的实例。请注意，我没有将其插入到图形中，只是准备它。

最后，我到达了重命名现有块的行！我认为你应该能够做选择集，然后重命名它。试试看！

macchi · 发表于 2022-7-6 12:33:22

好的，你给了我一个解决问题的主意。
标题栏需要具有相同的名称：VX\U标题，无论是A0、A1、A2、A3还是A4。其他应用程序查找名为VX\U title的标题栏并使用其属性。
我正在考虑创建名为\A0、\A1等的不同目录。
然后使用类似您的代码，将BlockName更改为例如“c:\A0\VX\u TITLE.dwg”、“c:\A1\VX\u TITLE.dwg”等。在每个目录中，它是一个不同的标题栏。
这个周末我试着测试一下。

一定有更容易的办法。在命令提示下，它非常简单（-rename）
vba中没有简单的方法吗？

谢谢
马可

dbroada · 发表于 2022-7-6 12:35:45

很可能有一种更简单的方法，我在研究如何用新的（重命名的）定义替换现有块时偶然发现了自己的方法，因此它对我有效。让我们了解你的进展，因为我相信我很快就会需要类似的东西。

对于我正在做的事情，我的方式实际上为我节省了两个预期步骤，所以我很高兴！

那边还在下雪吗？我们在一夜之间有了一个小的下降，今天早上有几片雪花，但没有什么意义。不过今晚预计会有更多。