文本到属性

Rob_Kish · 发表于 2004-11-4 19:48:27

是否有人碰巧拥有一个将纯文本转换为块属性的模块
一旦它成为属性，我可以从那里调整它。
谢谢
马克

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

双河农场 · 发表于 2004-12-30 20:53:47

没有“替换”;该过程将是获取文本对象，从文本对象收集属性信息。
创建块对象；例如，设置YourNewBlock = Blocks。添加(ins point，YourNewBlockName)。
创建属性定义对象；例如Set oAttObj = YourNewBlock，AddAttribute(高度，模式，提示，插入点，标记，值)。
为新块创建一个新的BlockRef对象[/list:u]注意，想象新的积木是(或像是)一张新的图画，它在插入点有自己的WCS。现在，我建议使用(0，0，0)作为新块插入点和AttRef插入点，因为默认对齐方式是左对齐。如果文本和属性居中或右对齐，请参见AutoCad ActiveX和VBA参考topic=Alignment属性。然后在旧文本实体的坐标处插入新块...哦，删除文本实体。。

andylaufans · 发表于 2004-12-31 07:06:02

酷，再次感谢罗伯！
我已经得到了我需要的大部分归因于doe，但我会复制回你的帖子，一旦我有时间就尝试一下。
马克

文本到属性

发表回复

精选推荐