在命名视图中循环

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

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

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

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

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

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

只是一个疯狂的猜测...

copy

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

copy

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

在命名视图中循环

发表回复

精选推荐