为什么这段程序会报未找到主键?

lusakura

我想找到一个BlockReference 然后更改它的NAME ,可到了最后一句总报未找到主键,魏森么呢?

Dim InsPoint(0 To 2) As Double
Dim NewEnt As AcadBlockReference
For Each Ent In ThisDrawing.ModelSpace
        If Ent.ObjectName = "AcDbBlockReference" Then
         Select Case Ent.Name 'EffectiveName
            Case "Motor_Cable"
            Set NewEnt = Ent.Copy
 
    Dim point1(0 To 2) As Double
    point1(0) = 2: point1(1) = 1: point1(2) = 0

 
            NewEnt.InsertionPoint = point1
            
        End Select
        End If
        Next

NewEnt.Name = "MotorAAA"  '这里报错

End Sub
谢谢!!

lusakura

顶一下 期待回答

zzyong00

貌似思路不对，建新块，只能用blocks.add方法

lusakura

建新块也行,怎么能建一个新的把以前的那个所有信息都拷贝过来呢?  这些块只有编号不一样 图形什么的都一样啊

sailorcwx

你修改的应该是AcadBlock的name，AcadBlockReference的name是只读的

ThisDrawing.Blocks.Item(NewEnt.Name).Name = "MotorAAA"

sailorcwx

BlockRef: A block reference can be assigned the name of only a valid block definition in the drawing. Assigning a block reference a unique name will not automatically create a new block definition. To create a new block definition, use the MSITStore:C:\Program%20Files\AutoCAD%202008\help\acadauto.chm::/idh_add.htm">Add method to add a new Block object to the Blocks collection.

lusakura

测试成功 太感谢了!!!!!!!!!!!!!!!