Quick and dirty, minimalist, no hand holding code ...
Place this code in a vb module, then save to a dvb file, e.g. "z:\dvblib\zooms.dvb"
Sub ZoomExtentsInAllLayouts( )
Dim layout As AcadLayout, _
restore As AcadLayout
With ThisDrawing
Set restore = .ActiveLayout
For Each layout In .Layouts
.ActiveLayout = layout
If 1 = .GetVariable("TILEMODE") Or _
1 = .GetVariable("CVPORT") Then
Application.ZoomExtents
Else
.MSpace = False
Application.ZoomExtents
.MSpace = True
End If
Next layout
If restore.Name <> .ActiveLayout.Name Then .ActiveLayout = restore
End With
End Sub
Sub ZoomExtentsInAllDocs( )
Dim doc As AcadDocument, _
restore As AcadDocument
Set restore = ThisDrawing
For Each doc In Documents
doc.Activate
Call ZoomExtentsInAllLayouts( )
Next
restore.Activate
End Sub
Invoke from LISP:
(vla-loaddvb (vlax-get-acad-object) "z:\\dvblib\\zooms.dvb")
(command ".vbastmt" "ZoomExtentsInAllDocs")
*poof*