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
Unknown said:What is wrong with my code?
As others have written, do you want us to guess?
Does your code throw an error, or does it simply not do what you expect?
Put some Debug.Print and Debug.Assert statements in there to reassure yourself that the code does what you expect.
Debug.Printlets you, the developer, see the state of your code and confirm it does what you want.
Debug.Assert lets you validate a fact — it questions our assumptions. For example …
elArray = ee.BuildArrayFromContents iStart = LBound(elArray) iEnd = UBound(elArray) ' Show me the size of my array Debug.Print "Array size=" & CStr(iEnd - iStart) ' Assert that the array is not empty Debug.Assert (0 < (iEnd - iStart))
Regards, Jon Summers LA Solutions