【ABB】显示机器人系统内所有工具tool

1.想通过UIListView显示ABB机器人系统内所有工具TOOL名字并选择，如何实现？

2. 可以通过SetDataSearch "tooldata"\InTask\GlobalSym；来设置搜索全局内所有tooldata类型数据。

3. 通过函数 GetNextSym(name_tool,block\Recursive)来获取2中设置需要搜索的数据并把名字赋值给字符串name_tool

4. 具体代码如下：

PROC show_tool()

        VAR num counter;

        VAR listitem list_tool{250};

        VAR string name_tool;

        VAR datapos block;

        VAR num defIndex;

        VAR num list_item_tool;

        VAR btnres answer;

        counter:=1;

        SetDataSearch "tooldata"\InTask\GlobalSym;

        WHILE GetNextSym(name_tool,block\Recursive) DO

            !获取所有tooldata数据，并把tooldata数据名字赋值给字符串name_tool

            list_tool{counter}:=["",name_tool];

            !将名字存入listitem数据中

            counter:=counter+1;

        ENDWHILE

        !弹窗显示

        list_item_tool:=UIListView(\Result:=answer\Header:="select tool",list_tool\Buttons:=btnOKCancel\Icon:=iconInfo\DefaultIndex:=defIndex);

        IF answer=resOK tpwrite "you select "+list_tool{list_item_tool}.text;

    ENDPROC