VBA在ju内插入文本

jakebullet70 · 发表于 2022-7-6 16:05:04

大家好！（使用Acad 2007）

好的-我正在将块插入现有图形中。块基本上是一条带有“X X”占位符的线。现在，假设每个“X X”都被文本替换，以显示英寸和分数。我该怎么做？我已经计算了英寸和分数，所以这不是问题，只是如何用文本替换“X”

我是Autocad新手，刚刚学习图层。事实上，这些块被插入到它们自己的层上。

再次感谢您的帮助！！！

史蒂夫：混乱是我的中间名

BIGAL · 发表于 2022-7-6 16:31:59

我想你知道vba程序中的值，所以添加属性是这样的

copy


txtx1 = CStr(FormatNumber(pt1(0), 3))
TXTY1 = CStr(FormatNumber(pt1(1), 3))
attribs(1).TextString = txtx1
attribs(2).TextString = TXTY1
attribs(1).Update
attribs(2).Update

我相信如果你在这里搜索，你会发现一个插入带有属性的块的示例。你是否查看了电脑上的Autocad教程？我本以为它会在那里。

jakebullet70 · 发表于 2022-7-6 16:43:05

谢谢-这为我指明了正确的方向！

jakebullet70 · 发表于 2022-7-6 17:04:03

好的-仍然有乐趣（阅读问题）与此。。。

当我插入块时，它插入得很好。我使用：
这将返回一个块引用。

然后我会：

但是这是返回一个空白。。。
所以我检查了一下

这是错误的，它告诉我GetAttributes失败的原因。

然后我自己加载了插入的块并进行了属性提取，果然有一个属性，它就是我想要的。我看到了我需要替换的X文本和它的名称。不知道为什么我插入后看不到它。。。

帮助

jakebullet70 · 发表于 2022-7-6 17:09:59

真的。。。
好的，给你。。。在网上找到这个

'您不是在这里插入块，而是在插入图形
它由带有属性的块参照组成。一旦你
执行此操作后，插入的图形将成为父图形中的块
图纸。”

所以

copy

我把它作为一个测试，是的！我找到了我的属性！

[编程交流] VBA在ju内插入文本

发表回复

精选推荐