Extending product function with VBA > The System Architect object model > Object model classes > MetaItem class > DepictsLikeType
  
DepictsLikeType
Returns whether this symbol type depicts like a given type number.
The reason to use this as opposed to DepictLikeTypeNumber is that this function follows the chain of depict-likes to test for the supplied number, whereas with DepictLikeTypeNumber you are only checking the first type reference. A type can depict-like another type and that type could also be depicted-like another type.
Parameters
iSymType As Integer
Example
Finding a pool-like type on a diagram:
Dim dgm As SA2001.Diagram
Dim smi As SA2001.MetaItem
Dim dmi as SA2001.MetaItem
Dim iPoolType As Integer
Set dgm = SA2001.Encyclopedia.GetCurrentDiagram
If Not dgm Is Nothing Then
Set dmi = dgm.MetaItem
For Each smi In dmi.SupportedMetaItems
If smi.DepictsLikeType(ETBPPOOL) Then
iPoolType = smi.TypeNumber
Exit For
End If
Next
End If
See also
MetaItem class: Attributes