Hi there, We have vba code that works perfectly with Microstation but we are unable to get it to work with Navigator.
The code is unable to detect any construction class elements using vba programming. 1. Place a block that has construction class into a design file and open with Navigator. 2. Run the code below to count the construction elements. Thanks, Regan ' Here is the code: Public Sub ScanForBlocks() ' search for any existing Construction blocks Dim oScan As New ElementScanCriteria Dim oElEnum As ElementEnumerator oScan.ExcludeAllClasses oScan.ExcludeAllTypes oScan.IncludeType msdElementTypeShape oScan.IncludeClass msdElementClassConstruction Set oElEnum = ActiveModelReference.Scan(oScan) numConstructionBlocksFound = ProcessElementsC(oElEnum) If numConstructionBlocksFound = 1 Then PlaceFenceFromConBlockPoints End Sub Private Function ProcessElementsC(oElEnum As ElementEnumerator) As Long 'returns number of blocks found On Error Resume Next Dim oEl As Element ProcessElementsC = 0 While oElEnum.MoveNext Set oEl = oElEnum.Current ProcessElementsC = ProcessElementsC + 1 ' increment con blocks found myPts = oEl.AsShapeElement.GetVertices 'store construction block points to place the fence later Wend Exit Function err: MsgBox "ProcessElements error #" & err.Number & vbCrLf & err.Description End Function