Apagar diversos objetos ou alarmes via scripts

#1

Bom dia!

Espero que estejam bem.

Estou tentando criar um script para apagar diversos alarmes ao mesmo tempo, fiz alguns testes com a propriedade name e é possível apagar apenas um alarme por vez, pois os alarmes tem nomes distintos.Saberiam se existe algum método que dê para apagar diversos alarmes ou objetos do mesmo tipo ao mesmo tempo ou só seria possível fazer utilizando laços de repetição ?
Teriam alguma sugestão?

A Elipse Software criou este espaço com a ideia de estimular a troca de informações entre usuários de nossos produtos. Reservamo-nos o direito de não responder por este canal. Se você deseja suporte imediato, por gentileza, entre em contato pelo e-mail suporte@elipse.com.br ou pelos telefones (11) 3061-2828 / (21) 2430-5912 / (31) 4062-5824 / (41) 4062-5824 / (51) 3346-4699.

–

Elipse Software created this space aiming to stimulate the exchange of information among users of our products. We reserve the right to not respond through this channel. If you want immediate support, please contact us through the e-mail suporte@elipse.com.br or through our phone numbers (+55 11) 3061-2828 / (+55 21) 2430-5912 / (+55 31) 4062-5824 / (+55 41) 4062-5824 / (+55 51) 3346-4699.

#2

Ola @EduardoGallo, bom dia
Hoje aparentemente não existe um método que realize essa exclusão em massa, teria que ser por laço de repetição, caso necessário utilizando recursividade:

Sub TagDeleteObj_Exec()
    ' Captura o objeto desejado, neste caso todo o servidor
    Set obj = Application

    DeleteObj obj
End Sub
'
' Delete os objetos desejados
'
Private Sub DeleteObj(obj)
    Dim sTypeDelete
    Dim sTypeName
    Dim objChild
    Dim isDelete
    Dim sNameObj

    ' Informa o tipo do objeto a ser deleteado
    sTypeDelete = "AlarmSource"
    isDelete = False

    ' Percorre o objeto
    For Each objChild In obj
        sTypeName = TypeName(objChild)

        If (sTypeName = sTypeDelete) Then
            sNameObj = objChild.Name
            obj.DeleteObject(sNameObj)
            isDelete = True
        End if

        If (Not isDelete) Then
            DeleteObj objChild
        End if
    Next
End Sub
1 Like