i try to check and change the Texts inside the Draft.
I got the solution myself.
My VB Code is now working.
Code: Select all
Dim ListOfText As TopSolid.Set = TopDoc3D.Elements("$SET_ENTITIES_TEXTS") Dim TopElt As TopSolid.Element Dim TopText As TopSolid.Text For i As Integer = 1 To ListOfText.Elements.Count TopElt = ListOfText.Elements.Item(i) Try 'because there are not only TEXTs inside "$SET_ENTITIES_TEXTS" also notes are inside. TopText = TopElt '''''''''''''''''''''''''doesn't working when it is no text If TopText.String = "XX" Then TopText.String = "new text" End If Catch ex As Exception End Try Next