块属性的修改问题。

assing

        Set objBlkRef = obj_ModelSpace.InsertBlock(LineMidPnt, blkName, 1, 1, 1, 0)
        varAttributes = objBlkRef.GetAttributes
        varAttributes(0).TextString = Text1.Text
        varAttributes(1).TextString = Text2.Text
插入一个已经存在的块参照，带有2个属性及旧属性值。现在通过编程修改属性值为新的值。接着在cad中，我想修改一下这个块参照的其它部分，于是炸开它，可是炸开后这2个属性的值变成旧的属性值了，而我想要新值。不知如何是好，谢谢指点。

        For i = 0 To 1 Step 1
        varAttributes(i).Update
        Next i
加这条也没用，不知怎样才能修改块参照里的属性，才能在炸开后，属性保持新值。

wyj7485

既然做成属性块了，就不要炸开

如果要炸开后属性保持不变，那就要在建块时改了