设置布局视图中心

设置布局的中心

 Public Shared Function SetLayoutCenter(ByVal Layout As AcadLayout, ByVal ptCenter() As Double) As Boolean
        If Layout Is Nothing Then Return False
        Dim doc As AcadDocument = Layout.Document
        '激活布局
        doc.ActiveSpace = AcActiveSpace.acPaperSpace
        doc.ActiveLayout = Layout
        '激活模型
        doc.MSpace = True
        Dim pv As AcadPViewport = doc.ActivePViewport
        Dim bili As Double = pv.CustomScale '取得比例
        Dim h As Double = pv.Height '视口高度
        doc.Application.ZoomCenter(ptCenter, h * 1 / bili) '移动到中心点并设置比例
        pv.CustomScale = bili
        doc.MSpace = False
        doc.Application.ZoomAll()
        Return True

End Function