我认为每个块都有一个命名视图，对吗
与其与命名视图混为一谈，不如'；创建一个由所有块组成的选择集，然后在选择集中循环，得到每个块的边界框，并使用这些坐标作为缩放窗口，然后执行mslide操作，这样会更容易吗
- While X < SSet1.Count
- For Each Xblk In SSet1
-
- Inspt = Xblk.InsertionPoint
-
- Dim Zcenter(0 To 2) As Double
- Zcenter(0) = Inspt(0): Zcenter(1) = Inspt(1): Zcenter(2) = Inspt(2)
- Dim BboxSP As Variant
- Dim BboxEP As Variant
- Xblk.GetBoundingBox BboxSP, BboxEP
- Dim BboxP1(0 To 2) As Double
- Dim BboxP2(0 To 2) As Double
- BboxP1(0) = BboxSP(0): BboxP1(1) = BboxSP(1): BboxP1(2) = BboxSP(2)
- BboxP2(0) = BboxEP(0): BboxP2(1) = BboxEP(1): BboxP2(2) = BboxEP(2)
- ZoomWindow BboxP1, BboxP2
-
- ' DO THE MSLIDE BIT HERE
-
- Next Xblk
- X = X + 1
- Wend
| 
