模型空间与图纸空间的转换问题

lhkz

模型空间与图纸空间的转换问题
通过如下命令：

linghu.ActiveDocument.ActiveSpace = acPaperSpace

linghu.ActiveDocument.ActiveSpace = acModelSpace

可以把当前的CAD在 模型空间和“ 默认”图纸空间中进行自由转换。

但是现在

   1）     要用程序在图纸中  添加更多的 图纸空间（ 布局2，布局3........），请问在程序里面怎么写？？

   2）     要从模型空间  任意跳转到指定的图纸空间（布局2，布局3......），请问高手们，又该怎样实现呢？

mccad

'添加：
    Dim Lay As AcadLayout
    Set Lay = ThisDrawing.Layouts.Add("明经")
'切换：
    ThisDrawing.ActiveLayout = Lay

lhkz

谢谢斑竹哦