Extending product function with VBA : The System Architect object model : Object model classes : Encyclopedia class : Encyclopedia class: Methods : GetFilteredDefinitions
  
GetFilteredDefinitions
Returns a filtered definition collection of an encyclopedia.
Parameters
Data type: SAObjects
Syntax
Encyclopedia Object.GetFilteredDefinitions(WildCardName, SAType)
Parameters
Encyclopedia Object
Use: Required
Data type: Object
Any instantiated Encyclopedia class
WildCardName
Use: Required
Data type: String
Filter criteria (for example,"C*" = all definitions starting with "C")
Wildcard search is case sensitive.
SAType
Use: Required
Data type: Long
Type of System Architect definition that is being retrieved (for example, DFXPROCESS or 3). See the DEFNS.BAS file in the System Architect directory for a list of System Architect definitions and their internal constant names and numbers.
Example
The following returns all process definitions beginning with "C".
Dim oCollectionofDefinitions As SAObjects
Set oCollectionofDefinitions = oEncyclopedia.GetFilteredDefinitions("C*", DFXPROCESS)
Call oCollectionofDefinitions.ReadAll
The SAObjects collection will not be fully populated until the Complete flag for the collection is true. GetFilteredDefinitions should be used in conjunction with either ReadAll or IsMoreThan methods.
Finding definitions with a period in the name
To find definitions that contain a period or dot in its name it should be enclosed with triple quotation marks. For example, to find a BPMN Process named google.com, use:
Set WA1 = encSA.GetFilteredDefinitions("""google.com""", 603)
or:
Set WA1 = encSA.GetFilteredDefinitions(Chr(34) & "google.com" & Chr(34), 603)
Note (Chr(34) provides double quotation marks, making it easier to see that there are three sets of quotation marks.
See also
Encyclopedia class: Methods