Description

Returns an object representing a collection of all entity display objects in the submodel.

Syntax

Public Sub EntityNames( _
   ByRaf EntityNames As Variant, _
   ByRaf NumFetched As Variant _
)

Parameters

  • EntityNames
  • NumFetched

Example

Sub Main
Dim diag As Diagram
Dim model As Model
Dim MySubModel As SubModel
Dim EntNames As Variant
Dim EntNum As Variant
Dim n As Integer

n = 0
Set diag = DiagramManager.ActiveDiagram
Set model = diag.ActiveModel
Set MySubModel = model.ActiveSubModel

Debug.Clear

MySubModel.EntityNames(EntNames, EntNum)

While n < EntNum
Debug.Print EntNames(n)
n = n=1
Wend

EndSub

See Also