在宏程序中锁定坐标通常涉及到使用G54到G59这些坐标系，这些坐标系可以存储用户定义的零点位置。以下是一个宏程序示例，用于计算并锁定特定坐标系中的点：
```
定义变量
X坐标
Y坐标
定义工具长度
定义工具直径
计算新坐标系的原点相对于当前坐标系的位置
假设G54为当前坐标系，G55为新的坐标系
X方向偏移量
Y方向偏移量
将计算结果存储在宏程序中的变量里
例如，100 = （G54 - X） / G55 - X
101 = 75 （工具长度）
102 = 20.27 （工具直径）
103 = 54.73 （另一个工具参数）
计算新坐标系下的点坐标
例如，507 = 100 + 102 （G54.1P7）
508 = 100 + 103 （G54.1P8）
506 = 508 - 101 （G54.1P6）
505 = 507 - 101 （G54.1P5）
```
在这个宏程序中，我们首先定义了一些变量来存储坐标和工具参数。然后，我们计算了新坐标系的原点相对于当前坐标系的位置，并将这些计算结果存储在宏程序中的变量里。最后，我们使用这些变量来计算新坐标系下的点坐标。
请注意，这个宏程序是一个示例，具体的实现可能会根据你的具体需求和应用场景有所不同。如果你需要更详细的帮助，请提供更多的上下文信息，例如你正在使用的数控系统、宏程序的语言版本以及你希望实现的具体功能。