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

Outcomes