Extending product function with VBA : The System Architect object model : Object model classes : MetaClass class : Class
  
Class
The class number of the object in the repository. The return values are
1 for a Diagram
2 for a Symbol
3 for a Definition
Also known as the Major Type Number.
Parameters
Data type: Long
Read-only
Example
Dim coll As SACollection, i As Integer
Set coll = sa.Encyclopedia.metamodel.MetaClasses
For i = 1 To coll.Count
Debug.Print coll.Item(i).ClassNext i
See also
MetaClass class: Attributes