AGI STK Objects 11 Send comments on this topic.
IAgOnePtAccessResultCollection Collection
Windows






Windows & Linux

Description

Represents the data sets for one point access.

Object Model

Public Properties

Public Property CountReturns the number of elements in a collection.
Public Property ItemGiven an index, returns an element in the collection.

Example

Compute an access for one point
[C#]Copy Code
IAgOnePtAccess onePtAccess = facility.CreateOnePointAccess("Satellite/Satellite1"); 
 
// Configure properties (if necessary) 
onePtAccess.StartTime = "1 Jan 2012 12:00:00.000"
onePtAccess.StopTime = "1 Jan 2012 13:00:00.000"
onePtAccess.StepSize = 120
onePtAccess.SummaryOption = AgEOnePtAccessSummary.eOnePtAccessSummaryDetailed; 
 
// Compute results 
IAgOnePtAccessResultCollection results = onePtAccess.Compute(); 
 
// Print results 
for (int i = 0; i < results.Count; i++) 

    IAgOnePtAccessResult result = results[i]; 
 
    Console.WriteLine("Time: {0}, HasAccess: {1}", result.Time, result.AccessSatisfied); 
 
    for (int j = 0; j < result.Constraints.Count; j++) 
    { 
        IAgOnePtAccessConstraint constraint = result.Constraints[j]; 
        Console.WriteLine("Constraint: {0}, Object {1}, Status {2}, Value {3}"
            constraint.Constraint, 
            constraint.ObjectPath, 
            constraint.Status, 
            constraint.Value); 
    } 

 

Compute an access for one point
[Visual Basic .NET]Copy Code
Dim onePtAccess As IAgOnePtAccess = facility.CreateOnePointAccess("Satellite/Satellite1")

' Configure properties (if necessary)
onePtAccess.StartTime = "1 Jan 2012 12:00:00.000"
onePtAccess.StopTime = "1 Jan 2012 13:00:00.000"
onePtAccess.StepSize = 120
onePtAccess.SummaryOption = AgEOnePtAccessSummary.eOnePtAccessSummaryDetailed

' Compute results
Dim results As IAgOnePtAccessResultCollection = onePtAccess.Compute()

' Print results
Dim i As Integer = 0
While i <>
    Dim result As IAgOnePtAccessResult = results(i)

    Console.WriteLine("Time: {0}, HasAccess: {1}", result.Time, result.AccessSatisfied)

    Dim j As Integer = 0
    While j <>
        Dim constraint As IAgOnePtAccessConstraint = result.Constraints(j)
        Console.WriteLine("Constraint: {0}, Object {1}, Status {2}, Value {3}", constraint.Constraint, constraint.ObjectPath, constraint.Status, constraint.Value)
        System.Math.Max(System.Threading.Interlocked.Increment(j),j - 1)
    End While
    System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)
End While

© 2018 Analytical Graphics, Inc. All Rights Reserved.