VBA怎么修改块的名称？

robbin840311

Dim pBlock As AcadBlockReference
if pBlock.Name="5.262" then
  pBlock.Name = "GC102"
end if

运行时出现错误，如下：

运行时错误'-2145386476(80200014)':
未找到主键

请问怎么解决？

谢谢！罗简单

fjfhgdwfn

BlockRef: 块参照只能分配在图形中定义的有效块名称。为块参照分配唯一的名称将不能自动创建新的块定义。创建一个新的块定义，用 MSITStore:D:\Program%20Files\AutoCAD%202004\help\acadauto.chm::/idh_add.htm">Add 方法添加新的 Block 到 Blocks 集合中。