What is wrong with my code?
Sub EE_Example()Dim ee As ElementEnumeratorDim es As New ElementScanCriteriaDim elArray() As ElementDim i As LongDim iStart As LongDim iEnd As LongDim elLevel As LevelDim elVariant() As VariantDim bigString As String'' set element scan criteria to find only described elements'Set elLevel = ActiveDesignFile.Levels("DRAWING TEXT")es.ExcludeAllColorses.IncludeColor 7es.ExcludeAllLevelses.IncludeLevel elLeveles.ExcludeAllTypeses.IncludeType msdElementTypeTextNode'' set enumerator from active model'Set ee = ActiveModelReference.Scan(es)'' get an element array of all elements found'elArray = ee.BuildArrayFromContentsiStart = LBound(elArray)iEnd = UBound(elArray)'' loop through array and get the second line of text'For i = iStart To iEndelVariant(i) = elArray(i).AsTextNodeElement.TextLine(2)bigString = Join(elVariant(i), ",")NextEnd Sub
Reu,
You don't say what your code is doing wrong. So we are left to speculate. I don't have access to MicroStation on the computer I typing this response on so I can't test it out now but a few things pop out at me
Rod WingSenior Systems Analyst
Answer Verified By: rashil