Visual Basic para Aplicaciones - VBA AutoCAD SelectOnScreen

Alguien sabe como hacer para que al ejecutar SelectOnScreen no se corte la selección si, en mitad de ello, se hace un encuadre, zoom o similar? Existe alguna forma de lanzar una selección desde VBA que permita hacer zoom o encuadre sin que se corte el comando? GRACIAS!!

Do
selsetobj.SelectOnScreen
If selsetobj.Count > 0 Then
For i = 0 To selsetobj.Count - 1
If selsetobj.Item(i).EntityName = \"AcDbRotatedDimension\" Then
Set dimobj = selsetobj.Item(i)
dimobj.Highlight (True)
selsetobj.Delete
Exit Do
End If
Next i
Else
MsgBox \"No has elegido nada, inténtalo de nuevo\"
End If
Loop Until