cq_starsea 发表于 2015-4-24 09:52:10

这样删除原来的元素

我在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对象。


cq_starsea 发表于 2015-4-24 10:18:12

是我想错了，应该设置xdata，遍历元素删除它，这样才能保证如果原有文件上已经存在也能删除它。

ivde 发表于 2015-4-24 11:26:31

用变量保存呀，如果有就修改，为null就新建
页: [1]
查看完整版本: 这样删除原来的元素