AnsweredAssumed Answered

Deleting all Notes and blocks in drawing

Question asked by Robert Voogt on Jun 13, 2018
Latest reply on Jun 14, 2018 by 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)