This dont work when it meet a not used paperspace layout.
Can you help me?
Thanks
Public Sub MyZoom (MyDocument)
Dim Db As Database = MyDocument.Database
Dim Tr As Transaction = Db.TransactionManager.StartTransaction
Dim MyLayoutManager As Autodesk.AutoCAD.DatabaseServices.LayoutManager =
LayoutManager.Current
Try
Dim LayoutDict As DBDictionary = Tr.GetObject(Db.LayoutDictionaryId,
OpenMode.ForRead)
For Each id As DictionaryEntry In LayoutDict
Dim MyLayout As Layout = DirectCast(Tr.GetObject(DirectCast(id.Value,
ObjectId), OpenMode.ForRead), Layout)
MyLayoutManager.CurrentLayout = MyLayout.LayoutName
MyDocument.SendStringToExecute("_zoom" & vbCr & "_e" & vbCr, False, False,
False)
Next
Tr.Commit()
Finally
Tr.Dispose()
End Try
End Sub