Insertion Texte synchrone avec l'écran

[PhilBat]

Bonjour,

je désire inserer à différent endroit de l'écran (AutoCAD)

un texte en utilisant le code suivant :

     	Dim doc As Document = AcApp.DocumentManager.MdiActiveDocument
       Dim db As Database = doc.Database
       Dim ed As Editor = doc.Editor
    	Using Tr As Transaction = db.TransactionManager.StartTransaction
           '' Open the Block table for read
           Dim acBlkTbl As BlockTable
           acBlkTbl = Tr.GetObject(db.BlockTableId, OpenMode.ForRead)

           '' Open the Block table record Model space for write
           Dim acBlkTblRec As BlockTableRecord
           acBlkTblRec = Tr.GetObject(acBlkTbl(BlockTableRecord.ModelSpace), OpenMode.ForWrite)
           Do
               ' --- insertion texte
               Dim ppr As PromptPointResult = ed.GetPoint(vbLf & "Point d'insertion du texte: ")
               If (ppr.Status <> PromptStatus.OK) Then
                    GoTo Fin
               End If
               Dim acText As DBText = New DBText()
               acText.SetDatabaseDefaults()
               acText.Position = New Point3d(ppr.Value.X, ppr.Value.Y, 0.0#)
               acText.TextString = txtCmp.Text
               acBlkTblRec.AppendEntity(acText)
               Tr.AddNewlyCreatedDBObject(acText, True)
           Loop
Fin:
           Tr.Commit()
       End Using

 

Le problème est que le texte n'apparait qu'a la fin.

Je voudrais voir s'inserer le texte à fur et à mesure des points d'insertions.

comment faire ?

Merci d'avance

Phil.

[(gile)]

Ajoute :

db.TransactionManager.QueueForGraphicsFlush()

 

après :

Tr.AddNewlyCreatedDBObject(acText, True)

[PhilBat]

Cool

Merci Gile