要实现圆形涂胶的编程，可以按照以下步骤进行：
确定涂胶轨迹
首先，需要在触摸屏上设定涂胶的轨迹顺序和起始点结束点。轨迹应该是顺时针完成的圆形轨迹。
创建子程序
分别创建并编写拾取涂胶工具、放回涂胶工具以及各个轨迹（如A、B、C、D轨迹）的子程序。每个轨迹子程序可以命名为`GJ_1`、`GJ_2`、`GJ_3`、`GJ_4`等，以便于调用和管理。
编写主程序
在主程序中，使用`CallByVar`指令来调用各个轨迹子程序。主程序的逻辑可以如下：
从Home点开始，拾取涂胶工具。
按照设定的顺序（如A、B、C、D）依次调用各个轨迹子程序。
在每个轨迹子程序中，工业机器人按照指定的轨迹进行涂胶操作。
完成所有轨迹的涂胶后，工业机器人返回Home点。
PLC程序及人机界面组态设计
编写PLC程序来控制工业机器人的动作，包括启动、停止、移动到指定位置等。
设计人机界面（HMI），以便操作员可以直观地设定涂胶参数和监控涂胶过程。
调试与验证
在实际应用中，需要对程序进行调试和验证，确保工业机器人能够准确地按照设定的轨迹进行涂胶操作。
```pascal
PROGRAM CircleCoating
VAR
p_tj: POSITION；
wobj0: WORKOBJECT；
v1000, z50: VARIABLES；
tool0: TOOL；
BEGIN
// 从Home点开始
MoveLoffs（p_tj, 0, 0, 200, v1000, z50, tool0, wobj0）；
// 拾取涂胶工具
// ...
// 按照设定的顺序调用各个轨迹子程序
CallByVar（'GJ_1'）；
CallByVar（'GJ_2'）；
CallByVar（'GJ_3'）；
CallByVar（'GJ_4'）；
// 返回Home点
MoveLoffs（p_tj, 0, 0, 200, v1000, z50, tool0, wobj0）；
END.
```
请注意，这只是一个示例框架，实际编程时需要根据具体的工业机器人和控制系统进行调整。建议参考相关的技术文档和手册，以确保编程的正确性和可靠性。