Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.Interop
.....
<CommandMethod("alllayoutshow")> _
Public Sub alllayoutshow()
Dim acApp As AcadApplication
acApp = Autodesk.AutoCAD.ApplicationServices.Application.AcadApplication
Dim acDoc As AcadDocument
acDoc = acApp.ActiveDocument
Dim p1(2) As Double
Dim p2(2) As Double
For Each LT In acDoc.Layouts
If InStr(LT.Name, "LT") <> 0 Then
LT.delete()
End If
Next
Dim i As Long
p1(0) = 0 : p1(1) = 0 : p1(2) = 0
p2(0) = 297 : p2(1) = 210 : p2(2) = 0
For i = 1 To 10
acDoc.Layouts.Add("LT" & i)
acDoc.SendCommand("_ctab" & vbCr & "LT" & i & vbCr)
acDoc.ActiveLayout.Block.AddLine(p1, p2)
acDoc.SendCommand("_zoom" & vbCr & "_e" & vbCr)
MsgBox("Лист LT" & i & " активен!")
Next i
End Sub