这对我很有效,基思
- Sub LayoutTest()
- Dim oLayout As AcadLayout
- Dim oOrigLayout As AcadLayout
- Dim bVP As Boolean
- Dim bDialg As Boolean
- bVP = Application.Preferences.Display.LayoutCreateViewport
- bDialg = Application.Preferences.Display.LayoutShowPlotSetup
- Set oOrigLayout = ThisDrawing.ActiveLayout
-
- Application.Preferences.Display.LayoutCreateViewport = False
- Application.Preferences.Display.LayoutShowPlotSetup = False
-
- Set oLayout = ThisDrawing.Layouts.Add("NewLayout")
- 'With oLayout
- oLayout.CopyFrom ThisDrawing.Layouts.Item(0) 'gets the plot data from the first layout....probably would want to change this.
- ThisDrawing.ActiveLayout = oLayout
- Application.Preferences.Display.LayoutCreateViewport = bVP
- Application.Preferences.Display.LayoutShowPlotSetup = bDialg
- ThisDrawing.ActiveLayout = oOrigLayout
-
- End Sub
|