调整捕捉和栅格对齐方式

AutoCAD ActiveX/VBA

 
调整捕捉和栅格对齐方式
 
 
 

可以使用栅格作为直观的定位基准,并打开“捕捉”模式以限制光标的移动。除设置间距外,还可以调整捕捉和栅格的对齐方式。也可以旋转对齐方式,或者将其设置为用于等轴测图形。

如果需要沿特定对齐方向或角度绘图,可以旋转捕捉角度。捕捉角度旋转的中心点即是捕捉基点。如果需要对齐填充图案,可以更改此点(通常设置为 0,0)。

要旋转捕捉角度,请使用 SnapRotationAngle 特性。要更改捕捉角度旋转的基点,请使用 SnapBasePoint 特性。

注意这两个特性都需要调用 Update 方法来更新 AutoCAD 显示。

有关使用和设置捕捉和栅格的详细信息,请参见《用户手册》中的“调整栅格和栅格捕捉”。

更改捕捉基点和旋转角度

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

Sub Ch3_ChangeSnapBasePoint()
    ' 打开活动视口的栅格
    ThisDrawing.ActiveViewport.GridOn = True
      
    ' 将捕捉基点更改为 1, 1
    Dim newBasePoint(0 To 1) As Double
    newBasePoint(0) = 1: newBasePoint(1) = 1
    ThisDrawing.ActiveViewport.SnapBasePoint = newBasePoint
      
    ' 将捕捉旋转角更改为 30 度(0.575 弧度)
    Dim rotationAngle As Double
    rotationAngle = 0.575
    ThisDrawing.ActiveViewport.SnapRotationAngle = rotationAngle
      
    ' 重置视口
    ThisDrawing.ActiveViewport = ThisDrawing.ActiveViewport
End Sub