lhkz 发表于 2003-9-15 13:07:00

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

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

linghu.ActiveDocument.ActiveSpace = acPaperSpace

linghu.ActiveDocument.ActiveSpace = acModelSpace

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

但是现在

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

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

mccad 发表于 2003-9-15 20:04:00

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

lhkz 发表于 2003-9-16 08:32:00

谢谢斑竹哦
页: [1]
查看完整版本: 模型空间与图纸空间的转换问题