概要 - スナップとグリッドの配列を調整する(VBA/ActiveX)

グリッドを視覚的ガイドラインとして使用し、スナップ モードをオンにすることで、カーソルの動作を限定することができます。

間隔の調整だけでなく、スナップおよびグリッドの配列の調整もできます。配列を回転させたり、アイソメ図面用に設定することができます。

特定の位置や角度に沿って作図する必要がある場合、スナップ角度を回転できます。スナップ角度回転の中心点は、スナップ基点です。ハッチング パターンを位置合わせする必要がある場合は、通常 0,0 に設定されるこの点を変更すればいいのです。

スナップ角度を回転するには、SnapRotationAngle プロパティを使用します。スナップ角度回転の起点を変更するには、SnapBasePoint プロパティを使用します。

注: どちらのプロパティでも、Update メソッドを呼び出して AutoCAD の画面表示を更新する必要があります。

スナップ基点と回転角度を変更する

以下の例は、スナップ基点を(1,1)、スナップ回転角度を 30 度に変更します。変更が表示されるよう、グリッドはオンに設定します。

Sub Ch3_ChangeSnapBasePoint()
  ' Turn on the grid for the active viewport
  ThisDrawing.ActiveViewport.GridOn = True

  ' Change the snap base point to 1, 1
  Dim newBasePoint(0 To 1) As Double
  newBasePoint(0) = 1: newBasePoint(1) = 1
  ThisDrawing.ActiveViewport.SnapBasePoint = newBasePoint

  ' Change the snap rotation angle to 30 degrees (0.575 radians)
  Dim rotationAngle As Double
  rotationAngle = 0.575
  ThisDrawing.ActiveViewport.SnapRotationAngle = rotationAngle

  ' reset the viewport
  ThisDrawing.ActiveViewport = ThisDrawing.ActiveViewport
End Sub