布局间的切换

Sub lls()
   Dim objLayoutArray As Variant, objViewArray As Variant
   'objLayoutArray = Array("主视图", "俯视图", "左视图", "西北等轴测视图", "西南等轴测视图", "东北等轴测视图", "东南等轴测视图", "多窗口打印", "任意角度")
   objLayoutArray = Array("主视图", "俯视图", "左视图", "西北等轴测视图", "西南等轴测视图", "东北等轴测视图", "东南等轴测视图")
   objViewArray = Array("Top", "Top", "Left", "NwISO", "SwISO", "NeISO", "SeISO")
   For ii = 0 To UBound(objLayoutArray)
     ''
     tt = "(command ""Layout"" ""S"" "
     tt = tt & Chr(34) & objLayoutArray(ii) & Chr(34) & ")" & vbCr
     ThisDrawing.SendCommand tt
     ''
     tt = "(Command ""Zoom"" ""E"")" & vbCr
     ThisDrawing.SendCommand tt
     ''
     tt = "(Command ""MsPace"")" & vbCr
     ThisDrawing.SendCommand tt
     Dim ObjLayerArray
     ObjLayerArray = Array("粗边框线", "细边框线", "标题栏", "粗实线", "细实线", "尺寸线", "中心线", "剖面线", "Defpoints", "文本", "虚线", "点划线", "主材料表", "件号标注线")
    Select Case objLayoutArray(ii)
       Case "西北等轴测视图", "西南等轴测视图", "东北等轴测视图", "东南等轴测视图"
         For jj = 0 To UBound(ObjLayerArray)
           tt = "(Command ""VPLayer"" ""F"" "
           tt = tt & Chr(34) & ObjLayerArray(jj) & Chr(34) & ")"
           ThisDrawing.SendCommand tt & vbCr & vbCr & vbCr
         Next jj
     End Select
     
     ''
     tt = "(Command ""-View"" "
     tt = tt & Chr(34) & objViewArray(ii) & Chr(34) & ")" & vbCr
     ThisDrawing.SendCommand tt
   Next ii
   
End Sub