11 Replies Latest reply on Jun 14, 2018 8:26 AM by Robert Voogt

    Deleting all Notes and blocks in drawing

    Robert Voogt

      Hi all,

       

      I tried to delete all Notes and blocks containing notes, but I can only manage to delete certain annotations. It removes notes bit of the sheet format and balloons.

       

              swModel.ClearSelection2 True
              
              Set swView = swDraw.GetFirstView
              While Not swView Is Nothing
                  Set swAnn = swView.GetFirstAnnotation3
                  While Not swAnn Is Nothing
      
      
                      If swNote = swAnn.GetType Then
                              bRet = swAnn.Select3(True, swSelData)
                         
                      End If
                                      
                      Set swAnn = swAnn.GetNext3
                  Wend
                  
                  Set swView = swView.GetNextView
              Wend
              
              bRet = swModelDocExt.DeleteSelection2(swDelete_Absorbed)