社区 › VB › 在命名视图中循环

Dimas 发表于 2006-2-21 23:58:15

在命名视图中循环

在命名视图中循环。
如何做到这一点？
**** Hidden Message *****

Kerry 发表于 2006-2-22 00:21:19

我不是VB'er，但…
您是否尝试过迭代视图集合
如果您想“查看”每个视图，请查看与活动视口关联的SetView方法。

Dimas 发表于 2006-2-22 08:10:23

只是一个疯狂的猜测...
Sub IterateViews()
Dim oView As AcadView
For Each oView In ThisDrawing.Views
    'do something
Next oView
End Sub

Dimas 发表于 2006-2-25 17:34:52

感恩节会尝试。认为应该工作）））

Dnereb 发表于 2006-2-25 18:16:21

然后另一个问题））
我如何找到哪个视图是最新的？

Kerry 发表于 2006-2-27 04:38:07

Document.Activeviewport怎么样。

Dnereb 发表于 2006-3-10 18:42:35

Sub test()
Dim objView As AcadView
Dim objVP As AcadViewport
Dim objViews As AcadViews
Set objViews = ThisDrawing.Views
Set objVP = ThisDrawing.ActiveViewport
For Each objView In objViews
If objView.Center(0) = objVP.Center(0) And objView.Center(1) = objVP.Center(1) And objView.Height = objVP.Height And objView.Width = objVP.Width Then
    Debug.Print "yep"
    Exit For
End If
Next objView
End Sub

查看完整版本: 在命名视图中循环