Der Kennbuchstabe des Symbols ist leider nicht mit einem Statement aus der Datenbank zu lesen (wie es für den DeviceLetterCode geht). Du könntest dir aber behelfen, indem du einfach aus dem Symbolnamen den nicht-numerischen Teil ausliest und den dann verwendest. Das folgende Beispiel ermittelt diesen nicht-numerischen Teil des Symbolnamens für alle Symbole des Projekts. Die unten angehängte Funktion tut das, was du in deinem Script vielleicht brauchen kannst...
Set e3 = CreateObject( "CT.Application" )
Set prj = e3.CreateJobObject
Set sym = prj.CreateSymbolObject
e3.PutInfo 0, "List of symbols..."
symcnt = prj.GetSymbolIds( symids )
For s = 1 To symcnt
sym.SetId symids(s)
e3.PutInfo 0, " " & sym.GetName _
& " Code=" & SymbolLetterCode( sym )
Next
Function SymbolLetterCode( sym )
Dim sname = sym.GetName
SymbolLetterCode = "<unknown>"
for i = 1 to len(sname)
if( isnumeric( mid(sname,i,1) ) ) Then Exit for
Next
If( i > 1 ) Then SymbolLetterCode = Mid( sname, 1, i-1 )
End function
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP