向屏幕上的块添加属性

fxcastil · 发表于 2005-9-11 20:55:10

我想向autocad图形中已有的块添加属性
，我附加了以下文件，该文件将提示您在Autocad屏幕上选择一个块，
然后它将属性添加到所选的块定义中。
但是，图形中的块不会使用新/添加的属性进行更新。
如果我插入一个新块，它将具有添加的属性。我尝试在VBA和Autocad命令行中使用“attsync”
命令，但在添加属性之前，图形中的块没有更新。
我正在使用AutoCad 2002和Windows XP
要测试此例程，只需在autocad绘图中创建一个没有属性的简单块即可。
弗雷德·卡斯蒂略

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

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

Jeff_M · 发表于 2005-9-11 22:20:48

您的SendCommand失败...将其更改为：
ThisDrawing.SendCommand"ATTSYNC"&vbCr&"Name"&vbCr&objBlock.Name&vbCr
干杯，
Glenn。

fxcastil · 发表于 2005-9-11 22:34:37

Fred，
我已经试过了，如果ATTSYNC遇到一个最初没有属性的插入，它可以验证它是否失败。我相信您需要收集属性（如果有的话），然后重新插入每个块，确保重置所有属性以匹配现有的blockref，并删除现有的。

Jeff_M · 发表于 2005-9-11 23:07:58

Jeff，
在较旧的版本中更有可能出现这种情况，因为未设置属性Follows dxf code。
我在2006年测试了Fred的代码，随着sendcommand的改变，它工作得很好。格伦。

fxcastil · 发表于 2005-9-13 16:59:04

Jeff&Glen，
我知道如果我在2002年使用VBA为块定义添加属性，我无法更新绘图中块引用的属性
如果我在Autocad 2002中使用attsync命令，然后执行“F2”以查看此命令的结果。
我收到一条错误消息“收集属性数据时出错。ATTSYNC完成。”
我不确定这是否适用于较新版本的AutoCad。
感谢回复。

向屏幕上的块添加属性

发表回复

精选推荐