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
                  Set swView = swView.GetNextView
              bRet = swModelDocExt.DeleteSelection2(swDelete_Absorbed)