設定は、フィールドで行われる測量機器セッションを表します。機器はコントロール ポイントまたは前回の観測ポイントに設置され、別のポイントの参照方向(後視)が行われます。次に、設定と後視の方向を基準として測量方式で地表上の位置が決定されます。これらの位置は「観測」と呼ばれ、AeccSurveyObservation オブジェクトによって表されます。 個々の設定オブジェクトには、観測オブジェクトのコレクションが含まれています。観測オブジェクトは、角度、距離、鉛直、緯度、経度、北座標、東座標、標高のすべてまたは一部で構成されます。観測オブジェクトには、観測機器の性質を説明する一連のプロパティも含まれています。
ネットワーク内の設定のコレクションは、AeccNetwork.Setups プロパティに保持されます。 新しい設定をネットワークに追加するには、コレクションの Create メソッドを使用します。 Create は、指定された位置の新しい設定を AeccSurveySetups コレクションに追加し、作成された AeccSurveySetup オブジェクトの参照を返します。
次の例では、ポイント 3004 の位置を後視として使用してポイント 3001 に設定を作成します。次に、別の位置の観測を作成して、ID として 3002 を割り当てます。
Dim oSetups As AeccSurveySetups Dim oSetup1 As AeccSurveySetup Set oSetups = oSurveyNetwork.Setups ' Create a setup at 3001 with a backsight at 3004 (the ' backsight direction should be calculated automatically). Set oSetup1 = oSetups.Create(3001, 3004) Debug.Print "Direction:"; oSetup1.BacksightDirection Debug.Print "Orientation:"; oSetup1.BacksightOrientation ' Now any observation angle is based on the line ' from 3001 to 3004. Dim oObservations As AeccSurveyObservations Set oObservations = oSetup1.Observations Dim oObservation1 As AeccSurveyObservation ' On setup "Station:3001, Backsight:3004" create an observation ' of point 3002. ' Angle = 90 degrees (1.57079633 radians) ' Angle Type = Angle ' Distance = 100# ' Distance Type = Slope ' Vertical = 90 degrees (1.57079633 radians) ' Vertical Type = Vertical Angle ' Target Height = 0# ' Target Type = Prism Set oObservation1 = oObservations.Create( _ 3002, _ aeccSurveyAngleTypeAngle, _ 1.57079633, _ aeccSurveyDistanceTypeSlope, _ 100#, _ aeccSurveyVerticalTypeVerticalAngle, _ 1.57079633, _ aeccSurveyTargetTypePrism, _ 0#, _ "From setup <Station:3001, Backsight:3004> to Point 3002") ' From this survey equipment data, the location of point ' 3002 can be determined: Debug.Print "Point 3002 at:"; oObservation1.Easting; Debug.Print ", "; oObservation1.Northing