这样删除原来的元素

cq_starsea · 发表于 2015-4-24 09:52:00

我在CAD上画一个DBTEXT对象
代码如下
Using (doc.LockDocument)
            Using trans As Transaction = db.TransactionManager.StartTransaction
                  Dim bt As BlockTable = trans.GetObject(db.BlockTableId, OpenMode.ForRead)
                  Dim btr As BlockTableRecord = trans.GetObject(bt(BlockTableRecord.ModelSpace), OpenMode.ForWrite)
                  mtxtTitle.TextString = "sssss"
                  mtxtTitle.Position = pt0
                  btr.AppendEntity(mtxtTitle)
                  trans.AddNewlyCreatedDBObject(mtxtTitle, True)
                  trans.Commit()
            End Using
         End Using
其中mtxtTitle是DBTEXT对象，是个全局变量，每次都能增加DBTEXT对象，我想要得效果是下一次再增加DBTEXT对象时，把上次的DBTEXT对象删掉，始终在cad上只有最后一个DBTEXT对象，这么做啊，请教一下大家。谢谢！
现在每执行一次代码，就多一个DBTEXT对象。