Hi,

How is the script block "Function GetLinkObject(txt)" from a link attribute working?

thx

Hello Ahnungslos,

it is possible to set a link object by typing in the search text. For example all objects have an unique name. By typing in a name the script searches for the object and set it as linkobject.
For the search the "SearchManager" is used here.

Example
1.For this example there must exist an object in the unit tree with the name "1" beneath the project - this is the root object.
2.Create different objects beneath of this object for testing​
3.Create link attribute
4.Edit script block "Function GetLinkObject(txt)": 

Function GetLinkObject(txt)
'Returns LinkObject after editing a text
Set sMan = Project.Workset.GetSearchManager
sMan.isUserAbortAllowed = False
sMan.rootObjects.add Project.EnObs("U").Item("1")
sMan.SystemType = 8 ' 8 = Devices
sMan.AppendSearchCondition "", "PROPERTY", "NAME", "LIKE", txt
Set scanResult = sMan.start ' starting search
displayHits = 0
retrieved = sMan.retrieveData(displayHits) ' maximum count for results, 0 for all
If  scanResult.Count = 1 Then
 Set GetLinkObject = scanResult.Item(1)
End If
sMan.stop
Set sMan = Nothing
End Function

 BR

Die Allwissende Müllhalde