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

使用VBA重命名块

我想用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

很可能有一种更简单的方法,我在研究如何用新的(重命名的)定义替换现有块时偶然发现了自己的方法,因此它对我有效。让我们了解你的进展,因为我相信我很快就会需要类似的东西。
 
对于我正在做的事情,我的方式实际上为我节省了两个预期步骤,所以我很高兴!
 
那边还在下雪吗?我们在一夜之间有了一个小的下降,今天早上有几片雪花,但没有什么意义。不过今晚预计会有更多。

macchi 发表于 2022-7-6 12:42:05

找到了!
 
1
 
南方在下雪,这里仍然干燥。孩子们现在滑冰玩得很开心。
 
 
马可

dbroada 发表于 2022-7-6 12:49:13

干得好,我会看看我是否能记住它,当我需要的时候。
 
在湖泊或溜冰场滑冰?

macchi 发表于 2022-7-6 12:57:25

谢谢
他们在溜冰场、小运河、森林中的湖泊和大湖边缘滑冰。但是因为下雪,冰不是很好。
有一个愉快的周末。
 
马可
页: [1]
查看完整版本: 使用VBA重命名块