求助：CAD2008环境下，能精准同步地控制放大缩小的示例

bill165

CAD2008环境下，能精准同步地控制放大缩小吗？求解
已经试过
官方示例有一步调试不过去
网上发的不能精准的按坐标控制
01VB编程站及网站链接http://www.01vb.com)及翻译者。
翻译者已经注明这个地方可能有错，高版本的CAD中能用，但08中有错，希望高手指正。谢谢

   '' for Center and Scale modes
          If pCenter.DistanceTo(Point3d.Origin) <> 0 Then
              pMin = New Point3d(pCenter.X - (acView.Width / 2), _
                                 pCenter.Y - (acView.Height / 2), 0)

              pMax = New Point3d((acView.Width / 2) + pCenter.X, _
                                 (acView.Height / 2) + pCenter.Y, 0)
          End If

          '' 使用一个直线创建一个范围对象 译者注：此处可能有错误，因为直线只有 GeometricExtents 属性表示范围
                  '' Create an extents object using a line
          Using acLine As Line = New Line(pMin, pMax)
              eExtents = New Extents3d(acLine.Bounds.Value.MinPoint, _
                                       acLine.Bounds.Value.MaxPoint)
          End Using