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
Hi,
What is this routine doing, and what do you want it to do?
I don't think you need the "()" in the elVariant dim statement
I think you may want:
elVariant = elArray(i).AsTextNoteElement.TextLine(2)
bigString = bigString & elVariant & ", "
--Robert