加入一个实体，然后把删除，如何让它一加入就显示呢？

glowz

在有些操作中需要在图像中加入一些文字，提示用户，提示完在删除，如何实现呢，

4. Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
5.         Dim acCurDb As Database = acDoc.Database
6.         Dim objId As ObjectId
7.         '' Start a transaction
8.         Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()
9.             '' Open the Block table for read
10.             Dim acBlkTbl As BlockTable
11.             acBlkTbl = acTrans.GetObject(acCurDb.BlockTableId, OpenMode.ForRead)
12.             '' Open the Block table record Model space for write
13.             Dim acBlkTblRec As BlockTableRecord
14.             acBlkTblRec = acTrans.GetObject(acBlkTbl(BlockTableRecord.ModelSpace), _
15.                                             OpenMode.ForWrite)
16.             Dim acText As DBText = New DBText()
17.             acText.SetDatabaseDefaults()
18.             acText.Position = New Point3d(0, 0, 0)
19.             acText.Height = 100
20.             acText.TextString = "Hello!"
21.             acBlkTblRec.AppendEntity(acText)
22.             acTrans.AddNewlyCreatedDBObject(acText, True)
23.             '' Add the new object to the block table record and the transaction
24.             acText.Highlight()
25.             '' Update the display and display an alert message
26.             acDoc.Editor.Regen()
28.             ''在删除前显示
30.             acText.Erase(True)
31.             '' Save the new object to the database
32.             Application.ShowAlertDialog("Erase the newly added text.")
33.             acTrans.Commit()
34.         End Using

Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument         Dim acCurDb As Database = acDoc.Database         Dim objId As ObjectId         '' Start a transaction         Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()             '' Open the Block table for read             Dim acBlkTbl As BlockTable             acBlkTbl = acTrans.GetObject(acCurDb.BlockTableId, OpenMode.ForRead)             '' Open the Block table record Model space for write             Dim acBlkTblRec As BlockTableRecord             acBlkTblRec = acTrans.GetObject(acBlkTbl(BlockTableRecord.ModelSpace), _                                             OpenMode.ForWrite)             Dim acText As DBText = New DBText()             acText.SetDatabaseDefaults()             acText.Position = New Point3d(0, 0, 0)             acText.Height = 100             acText.TextString = "Hello!"             acBlkTblRec.AppendEntity(acText)             acTrans.AddNewlyCreatedDBObject(acText, True)             '' Add the new object to the block table record and the transaction             acText.Highlight()             '' Update the display and display an alert message             acDoc.Editor.Regen()             ''在删除前显示             acText.Erase(True)             '' Save the new object to the database             Application.ShowAlertDialog("Erase the newly added text.")             acTrans.Commit()         End Using

好像只能第一次运行时能看到文字，在运行就看不见了 奇怪了

雪山飞狐_lzh

试下这个类

TransientManager Class

glowz

这个 好像是2009新加的  如果2008想用 怎么办呢

glowz

http://www.theswamp.org/index.php?topic=30771.0

雪山飞狐_lzh

2008确实没有这个类

好像记得以前用Document.GraphicsManager 做过类似的东西

不过很慢而且总是崩溃就没搞下去了