測量ユーザ設定を変更する

測量ドキュメントは、測量ユーザ設定オブジェクトへのアクセスも提供します。ユーザ設定は特定のドキュメントに固有のものではなく、特定のユーザに関連付けられるもので、ユーザが作成またはロードするすべてのドキュメントでは同じ設定が使用されます。測量ユーザ設定は、プリズム サイト、後視線、前視線、および基線の表示と外観を管理します。測量ユーザ設定は、ネットワークと測量図形のプレビューの表示方法と、ポイント、測量図形、および観測データが自動的に削除または書き出される条件を制御します。また、現在使用されている測量図形接頭語データベース、機器データベース、または機器の項目を確認または設定することもできます。測量ユーザ設定は、AeccSurveyDocument.GetUserSettings メソッドで取得します。このメソッドは、AeccSurveyUserSettings オブジェクトを返します。 ユーザ設定の変更を適用するには、変更した AeccSurveyUserSettings オブジェクトを AeccSurveyDocument.UpdateUserSettings メソッドに渡します。

Dim oUserSettings  As AeccSurveyUserSettings
Set oUserSettings = oSurveyDocument.GetUserSettings
 
' Modify and examine the current settings.
With oUserSettings
    .ShowBaseline = True
    Dim oColor As New AcadAcCmColor
    oColor.SetRGB 255, 165, 0 ' bright orange
    Set .BaselineColor = oColor
    .EraseAllFigures = False
    Debug.Print "Default layer:"; .DefaultFigureLayer
End with
 
' Save the changes to the user settings object.
oSurveyDocument.UpdateUserSettings oUserSettings