[VBA程序]：SnapRotationAngle,SnapBasePoint无效

gy_yangxiaobo

以下是acad2002帮助文件中的代码，运行无效，何故？

Dim viewportObj As AcadViewport
    Set viewportObj = ThisDrawing.Viewports.Add("NewViewport")
    Find the current snap base point
    Dim currSnapPnt As Variant
    currSnapPnt = viewportObj.SnapBasePoint
    MsgBox "The current model space snap base point is " & viewportObj.SnapBasePoint(0) & ", " & viewportObj.SnapBasePoint(1), , "SnapBasePoint Example"

    Dim newSnapPnt(0 To 1) As Double
    newSnapPnt(0) = 3#: newSnapPnt(1) = 3#
    viewportObj.SnapBasePoint = newSnapPnt
   MsgBox "The new model space snap base point is " & viewportObj.SnapBasePoint(0) & ", " & viewportObj.SnapBasePoint(1), , "SnapBasePoint Example"

    MsgBox ThisDrawing.ActiveViewport.SnapBasePoint(1)