[V8i SELECTseries 3 VBA], Cannot define a levels object with ActiveDesignFile.Levels

Hi Etienne,

what exactly do you want to achieve?

To iterate levels is rarely useful and other ways can be used (but it requires to know what your aim is).

With regards,

  Jan

Hi Jan,

I try to retrieve a list of element according to the level, in order to know for example their position, their length or for example if an element of level 1 intersects with an element of level 2.

Etienne Duperey said:

I try to retrieve a list of element according to the level

In such case, why to iterate all levels in active DGN file?

Etienne Duperey said:

if an element of level 1 intersects with an element of level 2.

It's about to obtain level object(s) based on their name(s). No iteration of all levels is necessary.

Regards,

  Jan

Etienne Duperey said:

I try to retrieve a list of element according to the level

Etienne Duperey said:

the CADRE_A3 does exist, but not in the active Dgn, the latter is in a Dgn referenced

If you want to build a list of lines on a particular level in all reference attachments, then you need to enumerate those models.  In each model, search for lines on that level.

Write a function that creates your scan criteria for a model...

Function ScanCriteriaForLinesOnLevel (ByVal levelName As String, ByVal oModel As ModelReference) As ScanCriteria
    Dim oLevel As Level
    Set oLevel = oModel.Levels (levelName)
    If oLevel Is Nothing Then
      Debug.Print "Level '" & levelName & "' does not exist in model '" & oModel.Name & "'"
      Exit Function
    End If
    
    Dim oCriteria As New ElementScanCriteria
    oCriteria.ExcludeAllLevels
    oCriteria.IncludeLevel oLevel
    oCriteria.ExcludeAllTypes
    oCriteria.IncludeType msdElementTypeLine
    oCriteria.IncludeType msdElementTypeLineString
    
    Set ScanCriteriaForLinesOnLevel = oCriteria
End Function

Now get a list of lines from a model...

Function GetLinesOnLevel (ByVal levelName As String, ByVal oModel As ModelReference) As Element()
    Dim oLines As ElementEnumerator
    Set oLines = oModel.Scan (ScanCriteriaForLinesOnLevel (levelName, oModel)
    GetLinesOnLevel = oLines.BuildArrayFromContents()
End Function

Now enumerate the active model and its attachments...

Dim oLines() As Element
oLines = GetLinesOnLevel (levelName, ActiveModelReference)
Dim oModel As ModelRefernce
For Each oModel In ActiveModelReference.Attachments
  oLines = GetLinesOnLevel (levelName, oModel)
Next oModel

Etienne Duperey said:

I try to retrieve a list of element according to the level

Etienne Duperey said:

the CADRE_A3 does exist, but not in the active Dgn, the latter is in a Dgn referenced

If you want to build a list of lines on a particular level in all reference attachments, then you need to enumerate those models.  In each model, search for lines on that level.

Write a function that creates your scan criteria for a model...

Function ScanCriteriaForLinesOnLevel (ByVal levelName As String, ByVal oModel As ModelReference) As ScanCriteria
    Dim oLevel As Level
    Set oLevel = oModel.Levels (levelName)
    If oLevel Is Nothing Then
      Debug.Print "Level '" & levelName & "' does not exist in model '" & oModel.Name & "'"
      Exit Function
    End If
    
    Dim oCriteria As New ElementScanCriteria
    oCriteria.ExcludeAllLevels
    oCriteria.IncludeLevel oLevel
    oCriteria.ExcludeAllTypes
    oCriteria.IncludeType msdElementTypeLine
    oCriteria.IncludeType msdElementTypeLineString
    
    Set ScanCriteriaForLinesOnLevel = oCriteria
End Function

Now get a list of lines from a model...

Function GetLinesOnLevel (ByVal levelName As String, ByVal oModel As ModelReference) As Element()
    Dim oLines As ElementEnumerator
    Set oLines = oModel.Scan (ScanCriteriaForLinesOnLevel (levelName, oModel)
    GetLinesOnLevel = oLines.BuildArrayFromContents()
End Function

Now enumerate the active model and its attachments...

Dim oLines() As Element
oLines = GetLinesOnLevel (levelName, ActiveModelReference)
Dim oModel As ModelRefernce
For Each oModel In ActiveModelReference.Attachments
  oLines = GetLinesOnLevel (levelName, oModel)
Next oModel