機器データベースを使用する

機器データベースには、測量データを収集するための機器のリストが登録されています。各機器項目に関する情報は、最小二乗法などの計算で使用されます。すべての機器リストのコレクションは、AeccSurveyDocument.EquipmentDatabases プロパティに含まれています。 各機器データベースは、個々の機器項目のコレクションです。機器データベースは AeccSurveyEquipmentDatabase 型のオブジェクトで、機器のリストを検索し、他のデータベースからリストをコピーするためのメソッドを備えています。

個々の機器項目は、AeccSurveyEquipment オブジェクトによって表されます。このオブジェクトには、機器の名前と説明、機器による角度の計測方法、角度と距離の単位、電子距離計測器 の設定、プリズムの精度とオフセット、機器の精度など、機器のさまざまな側面に関するプロパティが含まれています。

次のサンプル プログラムは、ドキュメントのデータベース内の各機器項目に関する方法を表示します。

Dim oEquipDatabases As AeccSurveyEquipmentDatabases
Dim oEquipDatabase As AeccSurveyEquipmentDatabase
Dim oEquipment As AeccSurveyEquipment
 
Set oEquipDatabases = oSurveyDocument.EquipmentDatabases
For Each oEquipDatabase In oEquipDatabases
   Debug.Print "Database: "; oEquipDatabase.Name
   Debug.Print
 
   For Each oEquipment In oEquipDatabase
   With oEquipment
      Debug.Print "----"
      Debug.Print "Item: "; .Name; "   Id: "; .Id
      Debug.Print " Description: "; .Description
      Debug.Print " Angle Type: "; .AngleType
      Debug.Print " Angle Unit: "; .AngleUnit
      Debug.Print " Azimuth Std: "; .AzimuthStandard
      Debug.Print " Wave Constant: "; .CarrierWaveConstant
      Debug.Print " Center Standard: "; .CenterStandard
      Debug.Print " Circle Standard: "; .CircleStandard
      Debug.Print " Coordinate Std: "; .CoordinateStandard
      Debug.Print " Distance Unit: "; .DistanceUnit
      Debug.Print " Edm Error: "; .EdmMmError; "mm"
      Debug.Print " Edm Error: "; .EdmPpmError; "ppm"
      Debug.Print " Edm Offset: "; .EdmOffset
      Debug.Print " Elevation Std: "; .ElevationStandard
      Debug.Print " H Collimation: "; .HorizontalCollimation
      Debug.Print " Is Prism Tilted: "; CStr(.IsTiltedPrism)
      Debug.Print " Measuring Device: "; .MeasuringDevice
      Debug.Print " Pointing Std: "; .PointingStandard
      Debug.Print " Prism Constant: "; .PrismConstant
      Debug.Print " Prism Offset: "; .PrismOffset
      Debug.Print " Prism Std: "; .PrismStandard
      Debug.Print " Revision: "; .Revision
      Debug.Print " Target Std: "; .TargetStandard
      Debug.Print " Theodolite Std: "; .TheodoliteStandard
      Debug.Print " Vertical Angle Type: "; .VerticalAngleType
      Debug.Print " V Collimation: "; .VerticalCollimation
      Debug.Print
   End With
   Next
Next