Dear All,

I am trying to get the information after selection of  many blocks & delete those on line

How can I get the each block info & line info

each block has specific attributes

I want to delete those blocks only whose attribute is "test"

my code is as below

Dim selCount As Integer

    selCount = selMgr.GetSelectedObjectCount2(-1)

    selCount = selCount - 1   

    ReDim obj(selCount) As Object   

    Dim i As Integer

    For i = 0 To selCount

        Set obj(i) = selMgr.GetSelectedObject6(i + 1, -1)

          if  swselmgr.GetSelectedObjectType(1) = 114 then

                For k = 0 To UBound(vNote)

                   Set swNote = vNote(k)

                   If swNote.TAGNAME = "test" Then

                       swdoc_DeleteSelectionPreNotify

                    End If

               Next k

       end if

    Next   

Sanjay Phadke