通过vba控制布局
你好我一直在胡闹,它不会正常工作。
我正在尝试使用vba循环浏览布局。
我有以下代码,只要布局顺序正确就可以工作。我一移动布局,它就不能正常工作?
Dim objLayouts As AcadLayouts
Dim LayerNextNo As Integer
Set objLayouts = ThisDrawing.Layouts
LayerNextNo = ThisDrawing.ActiveLayout.TabOrder
ThisDrawing.ActiveLayout = objLayouts.Item(LayerNextNo)
我想通过说活动布局选项卡订单号为“1”来控制活动布局,然后转到布局选项卡号“2”,但我无法使其工作?
干杯
col公司 嗨,上校,
让我看看我是否理解你;您想按选项卡顺序(索引)编号输入布局,这是否成为活动布局?
这个订单会改变吗,还是固定下来了?
毫升 另外,是否要提示输入布局编号? 嗨,ML,
是的,订单可能会更改。我设法得到一些代码来工作,但一旦你改变布局的位置,从他们的信的顺序,它把整个事情搞砸了。我找到了一些代码,将它们放回原来的顺序,然后我的代码可以工作,但这不是我想要的。
干杯
col。 颠簸,也经过一些类似的,渴望看到一些回复这里。。。 Comcu,
如果你愿意,发布你的代码,如果是VBA,我可以看一下。
此外,在acad中。dvb文件中,有一个事件将在布局更改后触发。因此,如果您将第二位代码放入该事件模块,那么在您完成任务后,布局将为您重新编制索引。
为了看看这个建议是否真的有效,或者是另一个建议,最好看看代码。
毫升
页:
[1]