Extending product function with VBA : The System Architect object model : Object model classes : MetaItem class : Class
  
Class
The class of the object. The valid 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 sa As SA2001.Application
Set sa = New SA2001.Application
With sa.Encyclopedia.MetaModel.MetaClasses.Item(1).SupportedMetaItems.Item(1)
Debug.Print .ClassEnd With
See also
MetaItem class: Attributes