文本到属性
是否有人碰巧拥有一个将纯文本转换为块属性的模块一旦它成为属性，我可以从那里调整它。
谢谢
马克
**** Hidden Message ***** 没有“替换”;该过程将是获取文本对象，从文本对象收集属性信息。
创建块对象；例如，设置YourNewBlock = Blocks。添加(ins point，YourNewBlockName)。
创建属性定义对象；例如Set oAttObj = YourNewBlock，AddAttribute(高度，模式，提示，插入点，标记，值)。
为新块创建一个新的BlockRef对象注意，想象新的积木是(或像是)一张新的图画，它在插入点有自己的WCS。现在，我建议使用(0，0，0)作为新块插入点和AttRef插入点，因为默认对齐方式是左对齐。如果文本和属性居中或右对齐，请参见AutoCad ActiveX和VBA参考topic=Alignment属性。然后在旧文本实体的坐标处插入新块...哦，删除文本实体。。
酷，再次感谢罗伯！
我已经得到了我需要的大部分归因于doe，但我会复制回你的帖子，一旦我有时间就尝试一下。
马克
页:
[1]