Loopy Loop发送给我Loopy。。

' DELETE REVISION DETAILS..
Private Sub cmdDELETEREVISIONS_Click()
response = MsgBox("Would you like to reset ALL titleblocks or just the selected ones?.." & vbCr & vbCr & "Click Yes to reset ALL layouts or click No to reset only selected layouts..", vbYesNoCancel, "Revision Details Editor..")
    If response = vbCancel Then
        Exit Sub
    End If
    If response = vbNo Then
    ' Loop through the selected layouts..
    For Cx = LBound(SelectedLayouts) + 1 To UBound(SelectedLayouts)
        ThisDrawing.ActiveLayout = ThisDrawing.Layouts(SelectedLayouts(Cx))
        ResetTitleBlocks
    Next Cx
    GoTo RESETEND
[color=red]ElseIf response = vbYes Then
    For Each layoutZ In ThisDrawing.Layouts
        ResetTitleBlocks
    Next layoutZ[/color]
    GoTo RESETEND
End If
RESETEND:
Unload Me
End Sub

Private Sub cmdDELETEREVISIONS_Click()
  response = MsgBox("Would you like to reset ALL titleblocks or just the selected ones?.." & vbCr & vbCr & "Click Yes to reset ALL layouts or click No to reset only selected layouts..", vbYesNoCancel, "Revision Details Editor..")
  Select Case response
  Case vbCancel
    Exit Sub
  Case vbNo
    ' Loop through the selected layouts..
    For Cx = LBound(SelectedLayouts) + 1 To UBound(SelectedLayouts)
      ThisDrawing.ActiveLayout = ThisDrawing.Layouts(SelectedLayouts(Cx))
      ResetTitleBlocks
    Next Cx
  Case vbYes
    For Each layoutZ In ThisDrawing.Layouts
      ThisDrawing.ActiveLayout = layoutZ
      ResetTitleBlocks
    Next layoutZ
  End Select
  Unload Me
End Sub