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

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

谢谢斑竹哦

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

发表回复

精选推荐

浏览过的版块