• State Verified Answer
  • +1 person also asked this people also asked this
  • Replies 9 replies
  • Subscribers 32 subscribers
  • Views 1123 views
  • Users 0 members are here

[CE VBA] Select shared cells on level

brenks
Offline

Hi,

this is sample of code that I use in v8i for selecting shared cell elements on specified level. I'm trying to migrate code to CE but it seems that all shared cells from all levels are found. Workaround is to test level of every shared cell in file.
Is this some change in VBA or is this a bug? Also, I'm using Map PowerView so I'm not sure if same happens in Microstation.

Sub test()

        ActiveModelReference.UnselectAllElements


        Dim ee As ElementEnumerator

        Dim esk As New ElementScanCriteria
        Set esk = New ElementScanCriteria
        esk.ExcludeAllTypes
        esk.IncludeType msdElementTypeSharedCell
        esk.ExcludeAllLevels
        esk.IncludeLevel ActiveDesignFile.Levels.Item("8_tocke")
        Set ee = ActiveModelReference.Scan(esk)

        Dim num As Long
        num = 0
        ee.Reset

        While ee.MoveNext
        
            If ee.Current.IsSharedCellElement Then
                num = num + 1
                Debug.Print ee.Current.AsSharedCellElement.level.Name
                ActiveModelReference.SelectElement ee.Current
            
            
            End If
        
        Wend
        
        MsgBox num

End Sub

Parents Reply Children
No Data
Communities
Support and Services
Training and Learning
Social Media