Page History

You can edit the code for action parameters that involve arrays of objects.
Many action parameters in Prinergy require lists (or arrays) of objects. For example, the Refine action needs a list of input files to refine, and the Perform Loose Page Output action needs a list of pages. Many event properties are also lists. For example, the Page Approval Changed event provides a list of pages where the approval status has changed.
Working with these arrays in code is considerably more complex than working with simple assignments.

Simple array assignment

When you want to pass all the members of an event property array to an action parameter array, the code looks the same as a simple assignment:

'This takes ALL the input files from the event and gives them to the action
action.InputFiles = triggerEvent.InputFiles

Using ArrayLists

ArrayLists are useful because they are untyped and unsized . They will expand as you add to them and you can put anything in them.

'Create an ArrayList and add items to it
Dim oArray As System.Collections.ArrayList = New
System.Collections.ArrayList
oArray.AddRange(System.IO.Directory.GetFiles("c:\", "*.pdf"))
oArray.Add(someOtherObject)

Converting ArrayLists to other arrays

After you have prepared the ArrayList, you probably need to convert it into other arrays to be used within the rules—arrays that are typed and sized.
ArrayList has a ToArray method that will copy the elements of the ArrayList to an array of a given type.
 

' Converts the ArrayList into an Array of Automation Pages
Dim oAlist As System.Collections.ArrayList ' . . . fill with contents
action.Pages =
oAList.ToArray(GetType(Creo.PWS.Automation.PrinergyDataModel.Page))

The ToArray method only works if the contents of the ArrayList can be cast to the type you specify. If not, a runtime error appears. You must manually convert each item in the ArrayList to the array. For example, you cannot cast a String to a FileSystemItem, but you can use the CreateFrom factory method to create a FileSystemItem from a String.

' Converts the ArrayList into an Array of Automation FileSystemItems.
Dim oFSIArray() As Creo.PWS.Automation.PrinergyDataModel.FileSystemItem = _
New Creo.PWS.Automation.PrinergyDataModel.FileSystemItem(oAList.count
- 1) {}
For i As Integer = 0 To oAList.Count - 1
oFSIArray(i) = _
Creo.PWS.Automation.PrinergyDataModel.FileSystemItem.CreateFrom(oAList(i).T
oString)
Next i

Flattening nested arrays

Sometimes the data that you want to assign to an action parameter are spread over the members of an array in the event properties. For example, the results of a Refine action are available from an Input Files Refine OK event. When you look into that event, you see that it has the following properties:

Where are the pages? Each of the refined input files has its own list of pages that were created from it. In other words, each member of the InputFiles array contains an array of pages.
To pass a list of all the refined pages to an action such as Perform Loose Page Output, we need a way to reach into each input file and build a collection of all the pages.

'First we need to create a holder for the new list we will be building
Dim newList As System.Collections.ArrayList = New
System.Collections.ArrayList
'Now we create a counter variable and initialize to the value 0
Dim i As Integer = 0
'Next we create a loop that will go through all the input files (until
'the counter i reaches the end of the list)
Do While (i < triggerEvent.InputFiles.Length)
'We reach into the ith Input File and add its Pages array to our
list
newList.AddRange(triggerEvent.InputFiles(i).Pages)
'Increment the value of i
i = (i + 1)
Loop
'Finally, we convert our list into an Array of Pages and assign it to the
'Pages parameter of the action
action.Pages =
newList.ToArray(GetType(Creo.PWS.Automation.PrinergyDataModel.Page))

Filtering an array

Another common requirement is the ability to filter parts of a list that you are not interested in. For example, you might want a simple way to create imposition proofs of only the front surfaces of every signature in your job. You want to pass to the Imposed Proof action a list of surfaces that has all the back surfaces filtered out.

'First we need to create a holder for the new list we will be building
Dim newList As System.Collections.ArrayList = New
System.Collections.ArrayList
'Now we create a counter variable and initialize to the value 0
Dim i As Integer = 0
'Next we create a loop that will go through all the input files (until
'the counter i reaches the end of the list)
Do While (i < triggerEvent.Surfaces.Length)
'We look at the ith Surface and add it to our list if it is “Front”
If triggerEvent.Surfaces(i).Side = "Front" Then
newList.AddRange(triggerEvent.Surfaces(i))
End If
'Increment the value of i
i = (i + 1)
Loop
'Finally, we convert our list into an Array of Surfaces and assign it to
the
'Surfaces parameter of the action
action.Surfaces =
newList.ToArray(GetType(Creo.PWS.Automation.PrinergyDataModel.Surface))

Filtering and flattening arrays

Combining the two patterns for flattening and filtering gives us the most power of all. In this example, we want a list of all the refined pages that are larger than 8.5 x 11. Since we need to look at every page in order to determine its size, this requires us to introduce a second loop. The outer loop goes through all the input files, while the inner (nested) loop goes through all the refined pages for each input file.

'First we need to create a holder for the new list we will be building
Dim newList As System.Collections.ArrayList = New System.Collections.ArrayList

'Now we create a counter variable and initialize to the value 0
Dim i As Integer = 0

'Next we create a loop that will go through all the input files (until
'the counter i reaches the end of the list)
Do While (i < triggerEvent.InputFiles.Length)

'Create a second counter and make a second loop to go through all
' the pages for input file i
Dim j As Integer = 0
Do While (j < triggerEvent.InputFiles(i).Pages.Length)

'Grab the jth Page from the ith Input File
Dim thePage As Page = triggerEvent.InputFiles(i).Pages(j)

'See if the page is larger than 8.5 x 11 (in points) – if so add it to our list
If (thePage.TrimSize.x > 8.5*72 AND thePage.TrimSize.y > 11*72) Then
newList.add(thePage
End If

'Increment the value of j
j = (j + 1)
Loop

'Increment the value of i
i = (i + 1)

Loop

'Finally, we convert our list into an Array of Pages and assign it to the
'Pages parameter of the action
action.Pages = newList.ToArray(GetType(Creo.PWS.Automation.PrinergyDataModel.Page))

Sie können den Code für Aktionsparameter bearbeiten, die Arrays von Objekten umfassen.
Für viele Aktionsparameter in Prinergy sind Listen (oder Arrays) von Objekten erforderlich. Beispielsweise wird für die Aktion Refinen eine Liste von Eingabedateien für das Refining und für die Aktion Einzelseitenausgabe durchführen eine Liste von Seiten benötigt. Zahlreiche Ereigniseigenschaften bilden ebenfalls Listen. Beispielsweise stellt das Ereignis Seitengenehmigung geändert eine Liste von Seiten bereit, deren Abnahmestatus geändert wurde.
Die Arbeit mit solchen Arrays in Code gestaltet sich wesentlich komplexer als die mit einfachen Zuordnungen.

Wo befinden sich die Seiten? Zu jeder Eingabedatei, die das Refining durchlaufen haben, gibt es eine Liste von Seiten, die daraus erstellt wurden. Das heißt, jedes Element des InputFiles-Arrays enthält ein Array von Seiten.
Wenn Sie eine Liste aller einem Refining unterzogenen Seiten an eine Aktion wie Einzelseitenausgabe durchführen übergeben möchten, muss auf jede einzelne Eingabedatei zugegriffen und eine Auflistung aller Seiten erstellt werden.
'First we need to create a holder for the new list we will be building
Dim newList As System.Collections.ArrayList = New System.Collections.ArrayList
'Now we create a counter variable and initialize to the value 0
Dim i As Integer = 0
'Next we create a loop that will go through all the input files (until
'the counter i reaches the end of the list)
Do While (i < triggerEvent.InputFiles.Length)
'We reach into the ith Input File and add its Pages array to our list
newList.AddRange(triggerEvent.InputFiles.Pages)
'Increment the value of i
i = (i + 1)
Loop
'Finally, we convert our list into an Array of Pages and assign it to the
'Pages parameter of the action
action.Pages = newList.ToArray(GetType(Creo.PWS.Automation.PrinergyDataModel.Page))
Filtern eines Arrays
Häufig ist es wichtig, die irrelevanten Teile einer Liste herauszufiltern. Beispielsweise wäre es nützlich, nur die Ausschieß-Proofs für die Vorderseiten-Formen jeder Signatur im Job zu erstellen. Dazu müssten Sie an die Aktion Ausschieß-Proof eine Liste von Formen übergeben, aus der sämtliche Rückseiten-Formen herausgefiltert wurden.
'First we need to create a holder for the new list we will be building
Dim newList As System.Collections.ArrayList = New System.Collections.ArrayList
'Now we create a counter variable and initialize to the value 0
Dim i As Integer = 0
'Next we create a loop that will go through all the input files (until
'the counter i reaches the end of the list)
Do While (i < triggerEvent.Surfaces.Length)
'We look at the ith Surface and add it to our list if it is "Front"
If triggerEvent.Surfaces.Side = "Front" Then
newList.AddRange(triggerEvent.Surfaces)
End If
'Increment the value of i
i = (i + 1)
Loop
'Finally, we convert our list into an Array of Surfaces and assign it to the
'Surfaces parameter of the action
action.Surfaces =
newList.ToArray(GetType(Creo.PWS.Automation.PrinergyDataModel.Surface))
Filtern und Vereinfachen von Arrays
Wenn Sie die beiden Muster zum Vereinfachen und Filtern kombinieren, ergeben sich die meisten Optionen. In diesem Beispiel benötigen wir eine Liste aller einem Refining unterzogenen Seiten, die größer als 8,5 x 11 sind. Da jede Seite überprüft werden muss, um die Größe zu ermitteln, wird eine zweite Schleife benötigt. Die äußere Schleife durchläuft alle Eingabedateien, während die innere (geschachtelte) Schleife für jede Eingabedatei alle einem Refining unterzogenen Seiten durchläuft.
'First we need to create a holder for the new list we will be building
Dim newList As System.Collections.ArrayList = New System.Collections.ArrayList
'Now we create a counter variable and initialize to the value 0
Dim i As Integer = 0
'Next we create a loop that will go through all the input files (until
'the counter i reaches the end of the list)
Do While (i < triggerEvent.InputFiles.Length)
'Create a second counter and make a second loop to go through all
' the pages for input file i
Dim j As Integer = 0
Do While (j < triggerEvent.InputFiles.Pages.Length)
'Grab the jth Page from the ith Input File
Dim thePage As Page = triggerEvent.InputFiles.Pages(j)
'See if the page is larger than 8.5 x 11 (in points) – if so add it to our list
If (thePage.TrimSize.x > 8.5*72 AND thePage.TrimSize.y > 11*72) Then
newList.add(thePage
End If
'Increment the value of j
j = (j + 1)
Loop
'Increment the value of i
i = (i + 1)
Loop
'Finally, we convert our list into an Array of Pages and assign it to the
'Pages parameter of the action
action.Pages = newList.ToArray(GetType(Creo.PWS.Automation.PrinergyDataModel.Page))

可以编辑涉及对象数组的操作参数的代码。
印能捷中的许多操作参数需要使用由对象组成的列表（或数组）。例如，精炼操作需要输入文件列表来进行精炼，执行单页输出操作需要页面列表。许多事件属性也是列表。例如，页面审核已更改事件提供审核状态已更改的页面的列表。
在代码中使用这些数组比使用简单赋值复杂得多。

页面位于何处？每个已精炼输入文件都具有自己的基于输入文件创建的页面列表。也就是说，InputFiles 数组的每个成员都包含一个页面数组。
要将所有已精炼页面的列表传递给操作（例如执行单页输出），需要一种方式来遍历每个输入文件，并构造所有页面的集合。
'First we need to create a holder for the new list we will be building
Dim newList As System.Collections.ArrayList = New System.Collections.ArrayList
'Now we create a counter variable and initialize to the value 0
Dim i As Integer = 0
'Next we create a loop that will go through all the input files (until
'the counter i reaches the end of the list)
Do While (i < triggerEvent.InputFiles.Length)
'We reach into the ith Input File and add its Pages array to our list
newList.AddRange(triggerEvent.InputFiles.Pages)
'Increment the value of i
i = (i + 1)
Loop
'Finally, we convert our list into an Array of Pages and assign it to the
'Pages parameter of the action
action.Pages = newList.ToArray(GetType(Creo.PWS.Automation.PrinergyDataModel.Page))
过滤数组
另一种常见需求是过滤列表中不感兴趣部分的能力。例如，您可能希望使用一种简单方法来创建仅由作业中的每个帖的正面组成的拼版打样。您希望向拼版打样操作传递过滤掉所有背面的印面列表。
'First we need to create a holder for the new list we will be building
Dim newList As System.Collections.ArrayList = New System.Collections.ArrayList
'Now we create a counter variable and initialize to the value 0
Dim i As Integer = 0
'Next we create a loop that will go through all the input files (until
'the counter i reaches the end of the list)
Do While (i < triggerEvent.Surfaces.Length)
'We look at the ith Surface and add it to our list if it is "Front"
If triggerEvent.Surfaces.Side = "Front" Then
newList.AddRange(triggerEvent.Surfaces)
End If
'Increment the value of i
i = (i + 1)
Loop
'Finally, we convert our list into an Array of Surfaces and assign it to the
'Surfaces parameter of the action
action.Surfaces =
newList.ToArray(GetType(Creo.PWS.Automation.PrinergyDataModel.Surface))
过滤和合并数组
结合过滤和合并两种模式可以实现最大的功能。在此示例中，我们希望得到尺寸大于 8.5 x 11 的所有已精炼页面的列表。因为需要检查每个页面来确定其尺寸，所以这需要引入第二个循环。外部循环遍历所有输入文件，而内部（嵌套）循环遍历每个输入文件的所有已精炼页面。
'First we need to create a holder for the new list we will be building
Dim newList As System.Collections.ArrayList = New System.Collections.ArrayList
'Now we create a counter variable and initialize to the value 0
Dim i As Integer = 0
'Next we create a loop that will go through all the input files (until
'the counter i reaches the end of the list)
Do While (i < triggerEvent.InputFiles.Length)
'Create a second counter and make a second loop to go through all
' the pages for input file i
Dim j As Integer = 0
Do While (j < triggerEvent.InputFiles.Pages.Length)
'Grab the jth Page from the ith Input File
Dim thePage As Page = triggerEvent.InputFiles.Pages(j)
'See if the page is larger than 8.5 x 11 (in points) – if so add it to our list
If (thePage.TrimSize.x > 8.5*72 AND thePage.TrimSize.y > 11*72) Then
newList.add(thePage
End If
'Increment the value of j
j = (j + 1)
Loop
'Increment the value of i
i = (i + 1)
Loop
'Finally, we convert our list into an Array of Pages and assign it to the
'Pages parameter of the action
action.Pages = newList.ToArray(GetType(Creo.PWS.Automation.PrinergyDataModel.Page))

Es posible editar el código de los parámetros de acciones que impliquen matrices de objetos.
Muchos parámetros de acción en Prinergy requieren listas (o matrices) de objetos. Por ejemplo, la acción Afinar necesita una lista de archivos de entrada para afinarlos y la acción Efectuar salida de página suelta requiere una lista de páginas. Muchas propiedades de eventos son también listas. Por ejemplo, el evento Aprobación de página cambiada proporciona una lista de páginas cuyo estado de aprobación ha cambiado.
Trabajar con estas matrices en código es considerablemente más complejo que trabajar con asignaciones sencillas.

¿Dónde están las páginas? Cada uno de los archivos de entrada afinados tiene su propia lista de páginas creadas a partir de ellos. Es decir, cada miembro de la matriz InputFiles incluye una matriz de páginas.
Para pasar una lista con todas las páginas afinadas a una acción como Efectuar salida de página suelta, se necesita una forma de acceder a cada archivo de entrada y crear una colección con todas las páginas.
'First we need to create a holder for the new list we will be building
Dim newList As System.Collections.ArrayList = New System.Collections.ArrayList
'Now we create a counter variable and initialize to the value 0
Dim i As Integer = 0
'Next we create a loop that will go through all the input files (until
'the counter i reaches the end of the list)
Do While (i < triggerEvent.InputFiles.Length)
'We reach into the ith Input File and add its Pages array to our list
newList.AddRange(triggerEvent.InputFiles.Pages)
'Increment the value of i
i = (i + 1)
Loop
'Finally, we convert our list into an Array of Pages and assign it to the
'Pages parameter of the action
action.Pages = newList.ToArray(GetType(Creo.PWS.Automation.PrinergyDataModel.Page))
Filtrado de una matriz
Otro requisito frecuente es la necesidad de filtrar partes de una lista que carecen de interés. Por ejemplo, puede que desee utilizar una forma sencilla de crear pruebas de imposición sólo de los anversos de los pliegos de un trabajo. Desea pasar a la acción Prueba de imposición una lista de superficies que excluya todas las superficies de los reversos.
'First we need to create a holder for the new list we will be building
Dim newList As System.Collections.ArrayList = New System.Collections.ArrayList
'Now we create a counter variable and initialize to the value 0
Dim i As Integer = 0
'Next we create a loop that will go through all the input files (until
'the counter i reaches the end of the list)
Do While (i < triggerEvent.Surfaces.Length)
'We look at the ith Surface and add it to our list if it is "Front"
If triggerEvent.Surfaces.Side = "Front" Then
newList.AddRange(triggerEvent.Surfaces)
End If
'Increment the value of i
i = (i + 1)
Loop
'Finally, we convert our list into an Array of Surfaces and assign it to the
'Surfaces parameter of the action
action.Surfaces =
newList.ToArray(GetType(Creo.PWS.Automation.PrinergyDataModel.Surface))
Filtrado y desanidamiento de matrices
El hecho de combinar los dos patrones para desanidar y filtrar las matrices aporta la mayor capacidad de control. En este ejemplo, queremos obtener una lista con todas las páginas afinadas cuyo tamaño sea superior a 8,5 x 11. Dado que es necesario mirar todas las páginas para determinar su tamaño, resulta necesario introducir un segundo bucle. El bucle externo pasa por todos los archivos de entrada, mientras que el interno (anidado) pasa por todas las páginas afinadas de cada archivo de entrada.
'First we need to create a holder for the new list we will be building
Dim newList As System.Collections.ArrayList = New System.Collections.ArrayList
'Now we create a counter variable and initialize to the value 0
Dim i As Integer = 0
'Next we create a loop that will go through all the input files (until
'the counter i reaches the end of the list)
Do While (i < triggerEvent.InputFiles.Length)
'Create a second counter and make a second loop to go through all
' the pages for input file i
Dim j As Integer = 0
Do While (j < triggerEvent.InputFiles.Pages.Length)
'Grab the jth Page from the ith Input File
Dim thePage As Page = triggerEvent.InputFiles.Pages(j)
'See if the page is larger than 8.5 x 11 (in points) – if so add it to our list
If (thePage.TrimSize.x > 8.5*72 AND thePage.TrimSize.y > 11*72) Then
newList.add(thePage
End If
'Increment the value of j
j = (j + 1)
Loop
'Increment the value of i
i = (i + 1)
Loop
'Finally, we convert our list into an Array of Pages and assign it to the
'Pages parameter of the action
action.Pages = newList.ToArray(GetType(Creo.PWS.Automation.PrinergyDataModel.Page))

Vous pouvez modifier le code des paramètres d'action qui impliquent des matrices d'objets.
De nombreux paramètres d'action dans Prinergy requièrent des listes (ou matrices) d'objets. Par exemple, l'action Raffiner nécessite une liste de fichiers d'entrée à raffiner et l'action Réaliser une sortie de pages non-imposées requiert une liste de pages. De nombreuses propriétés d'événement sont également des listes. Par exemple, l'événement Approbation de la page modifiée fournit une liste des pages dans lesquelles l'état d'approbation a changé.
Travailler avec ces matrices codées est bien plus complexe que de travailler avec de simples affectations.

Où sont les pages ? Chacun des fichiers d'entrée raffinés dispose de sa propre liste de pages créées à partir de celle-ci. En d'autres termes, chaque membre de la matrice InputFiles contient une matrice de pages.
Pour faire passer une liste de toutes les pages raffinées à une action comme Réaliser une sortie de pages non-imposées, il nous faut un moyen pour pénétrer dans chaque fichier d'entrée et générer un ensemble de toutes les pages.
'First we need to create a holder for the new list we will be building
Dim newList As System.Collections.ArrayList = New System.Collections.ArrayList
'Now we create a counter variable and initialize to the value 0
Dim i As Integer = 0
'Next we create a loop that will go through all the input files (until
'the counter i reaches the end of the list)
Do While (i < triggerEvent.InputFiles.Length)
'We reach into the ith Input File and add its Pages array to our list
newList.AddRange(triggerEvent.InputFiles.Pages)
'Increment the value of i
i = (i + 1)
Loop
'Finally, we convert our list into an Array of Pages and assign it to the
'Pages parameter of the action
action.Pages = newList.ToArray(GetType(Creo.PWS.Automation.PrinergyDataModel.Page))
Filtrage d'une matrice
Une autre exigence courante est la possibilité de filtrer des parties d'une liste qui ne vous intéressent pas. Il se pourrait, par exemple, que vous vouliez un moyen simple pour créer des épreuves d'imposition des surfaces recto uniquement de chaque cahier de votre travail. Vous souhaitez transmettre à l'action Épreuve imposée une liste des surfaces dont les surfaces verso sont toutes éliminées par filtrage.
'First we need to create a holder for the new list we will be building
Dim newList As System.Collections.ArrayList = New System.Collections.ArrayList
'Now we create a counter variable and initialize to the value 0
Dim i As Integer = 0
'Next we create a loop that will go through all the input files (until
'the counter i reaches the end of the list)
Do While (i < triggerEvent.Surfaces.Length)
'We look at the ith Surface and add it to our list if it is "Front"
If triggerEvent.Surfaces.Side = "Front" Then
newList.AddRange(triggerEvent.Surfaces)
End If
'Increment the value of i
i = (i + 1)
Loop
'Finally, we convert our list into an Array of Surfaces and assign it to the
'Surfaces parameter of the action
action.Surfaces =
newList.ToArray(GetType(Creo.PWS.Automation.PrinergyDataModel.Surface))
Filtrage et aplatissement des matrices
La combinaison des deux motifs d'aplatissement et de filtrage vous donne le maximum de puissance. Dans cet exemple, nous voulons une liste de toutes les pages raffinées dont le format est supérieur à 21 x 28 cm. Comme nous devons examiner chaque page afin de déterminer sa taille, il nous faut introduire une seconde boucle. La boucle externe passe en revue tous les fichiers d'entrée, tandis que la boucle (imbriquée) interne passe en revue toutes les pages raffinées pour chaque fichier d'entrée.
'First we need to create a holder for the new list we will be building
Dim newList As System.Collections.ArrayList = New System.Collections.ArrayList
'Now we create a counter variable and initialize to the value 0
Dim i As Integer = 0
'Next we create a loop that will go through all the input files (until
'the counter i reaches the end of the list)
Do While (i < triggerEvent.InputFiles.Length)
'Create a second counter and make a second loop to go through all
' the pages for input file i
Dim j As Integer = 0
Do While (j < triggerEvent.InputFiles.Pages.Length)
'Grab the jth Page from the ith Input File
Dim thePage As Page = triggerEvent.InputFiles.Pages(j)
'See if the page is larger than 8.5 x 11 (in points) – if so add it to our list
If (thePage.TrimSize.x > 8.5*72 AND thePage.TrimSize.y > 11*72) Then
newList.add(thePage
End If
'Increment the value of j
j = (j + 1)
Loop
'Increment the value of i
i = (i + 1)
Loop
'Finally, we convert our list into an Array of Pages and assign it to the
'Pages parameter of the action
action.Pages = newList.ToArray(GetType(Creo.PWS.Automation.PrinergyDataModel.Page))

オブジェクトの配列を含むアクション パラメータのコードを編集できます。
Prinergy の多数のアクション パラメータでは、オブジェクトのリスト（配列）が必要になります。たとえば、リファインアクションではリファインする入力ファイルのリストが必要となり、単ページ出力の実行アクションではページのリストが必要です。また、イベント プロパティの多くもリストで表されます。たとえば、ページの承認 – 変更済みイベントでは、承認ステータスが変更されたページのリストが提供されます。
コード内でこのような配列を処理する場合、単純な割り当て処理に比べるとかなり複雑なコーディングになります。

ページの場所については、リファイン済みの各入力ファイルに固有のリストがあり、作成されたページはそこに含まれています。つまり、InputFiles の配列の各エレメントにはページの配列が含まれています。
すべてのリファイン済みページのリストを単ページ出力の実行などのアクションに渡すには、各入力ファイルを調べてすべてのページの集合を作成する必要があります。
'First we need to create a holder for the new list we will be building
Dim newList As System.Collections.ArrayList = New System.Collections.ArrayList
'Now we create a counter variable and initialize to the value 0
Dim i As Integer = 0
'Next we create a loop that will go through all the input files (until
'the counter i reaches the end of the list)
Do While (i < triggerEvent.InputFiles.Length)
'We reach into the ith Input File and add its Pages array to our list
newList.AddRange(triggerEvent.InputFiles.Pages)
'Increment the value of i
i = (i + 1)
Loop
'Finally, we convert our list into an Array of Pages and assign it to the
'Pages parameter of the action
action.Pages = newList.ToArray(GetType(Creo.PWS.Automation.PrinergyDataModel.Page))
配列のフィルタリング
一般的に、リスト内の不要な部分をフィルタリングする機能が必要な場合があります。たとえば、ジョブ内のすべての折丁の表面のみの面付けプルーフを作成するための簡単な方法が必要であるとします。この場合、面付けプルーフアクションに、すべての裏面が除外された面のリストを渡す必要があります。
'First we need to create a holder for the new list we will be building
Dim newList As System.Collections.ArrayList = New System.Collections.ArrayList
'Now we create a counter variable and initialize to the value 0
Dim i As Integer = 0
'Next we create a loop that will go through all the input files (until
'the counter i reaches the end of the list)
Do While (i < triggerEvent.Surfaces.Length)
'We look at the ith Surface and add it to our list if it is "Front"
If triggerEvent.Surfaces.Side = "Front" Then
newList.AddRange(triggerEvent.Surfaces)
End If
'Increment the value of i
i = (i + 1)
Loop
'Finally, we convert our list into an Array of Surfaces and assign it to the
'Surfaces parameter of the action
action.Surfaces =
newList.ToArray(GetType(Creo.PWS.Automation.PrinergyDataModel.Surface))
配列のフィルタリングおよびフラット化
フラット化とフィルタリングの 2 つのパターンを組み合わせることにより、機能が最大限強化されます。次の例では、8.5 x 11 よりも大きいすべてのリファイン済みページのリストを作成します。サイズを確認するために各ページを調べる必要があるので、2 つめのループを挿入する必要があります。外側のループではすべての入力ファイルを調べ、内側の（ネストした）ループでは各入力ファイルのすべてのリファイン済みページを調べます。
'First we need to create a holder for the new list we will be building
Dim newList As System.Collections.ArrayList = New System.Collections.ArrayList
'Now we create a counter variable and initialize to the value 0
Dim i As Integer = 0
'Next we create a loop that will go through all the input files (until
'the counter i reaches the end of the list)
Do While (i < triggerEvent.InputFiles.Length)
'Create a second counter and make a second loop to go through all
' the pages for input file i
Dim j As Integer = 0
Do While (j < triggerEvent.InputFiles.Pages.Length)
'Grab the jth Page from the ith Input File
Dim thePage As Page = triggerEvent.InputFiles.Pages(j)
'See if the page is larger than 8.5 x 11 (in points) – if so add it to our list
If (thePage.TrimSize.x > 8.5*72 AND thePage.TrimSize.y > 11*72) Then
newList.add(thePage
End If
'Increment the value of j
j = (j + 1)
Loop
'Increment the value of i
i = (i + 1)
Loop
'Finally, we convert our list into an Array of Pages and assign it to the
'Pages parameter of the action
action.Pages = newList.ToArray(GetType(Creo.PWS.Automation.PrinergyDataModel.Page))