vba 编程  第二课

本例将捕捉基点更改为(1,1)，并将捕捉旋转角更改为 30 度，同时打开栅格以显示这些更改。

  ' 打开活动视口的栅格
    ThisDrawing.ActiveViewport.GridOn = True

    ' 将捕捉基点更改为 1, 1
    Dim newBasePoint(0 To 1) As Double
    newBasePoint(0) = 1: newBasePoint(1) = 1
    acadDoc.ActiveViewport.SnapBasePoint = newBasePoint

    ' 将捕捉旋转角更改为 30 度（0.575 弧度）
    Dim rotationAngle As Double
    rotationAngle = 0.575
    acadDoc.ActiveViewport.SnapRotationAngle = rotationAngle

    ' 重置视口
    acadDoc.ActiveViewport = acadDoc.ActiveViewport