VBA在ju内插入文本
大家好!(使用Acad 2007)好的-我正在将块插入现有图形中。块基本上是一条带有“X X”占位符的线。现在,假设每个“X X”都被文本替换,以显示英寸和分数。我该怎么做?我已经计算了英寸和分数,所以这不是问题,只是如何用文本替换“X”
我是Autocad新手,刚刚学习图层。事实上,这些块被插入到它们自己的层上。
再次感谢您的帮助!!!
史蒂夫:混乱是我的中间名 我想你知道vba程序中的值,所以添加属性是这样的
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教程?我本以为它会在那里。 谢谢-这为我指明了正确的方向! 好的-仍然有乐趣(阅读问题)与此。。。
当我插入块时,它插入得很好。我使用:
这将返回一个块引用。
然后我会:
但是这是返回一个空白。。。
所以我检查了一下
这是错误的,它告诉我GetAttributes失败的原因。
然后我自己加载了插入的块并进行了属性提取,果然有一个属性,它就是我想要的。我看到了我需要替换的X文本和它的名称。不知道为什么我插入后看不到它。。。
帮助 真 的。。。
好的,给你。。。在网上找到这个
'您不是在这里插入块,而是在插入图形
它由带有属性的块参照组成。一旦你
执行此操作后,插入的图形将成为父图形中的块
图纸。”
所以
4
我把它作为一个测试,是的!我找到了我的属性!
页:
[1]