|
|
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
加这条也没用，不知怎样才能修改块参照里的属性，才能在炸开后，属性保持新值。
|
|
置顶卡
