要找到工件找正宏程序，您可以按照以下步骤操作：
测量工件位置
使用百分表或寻边器测量工件的位置偏差。
通过探针测量工件的位置偏差，并将结果存储在系统变量中，例如 `5041`、`5042`、`5043` 分别存储 X、Y、Z 轴的偏差值。
计算偏差
根据测量结果计算工件的位置偏差。
例如，使用反正切函数计算偏转角，并将结果存储在系统变量中，例如 `5204`。
调整坐标系
通过调整工件坐标系（G54-G59）偏移来校正工件位置。
根据计算出的偏差值，将相应的坐标系偏移量写入到 G54-G59 坐标系中。
编写宏程序
使用数控编程语言（如 M代码或 G代码）编写宏程序，实现自动找正功能。
示例程序可能包括以下步骤：
测量并存储工件位置偏差。
计算偏转角度。
调整坐标系偏移。
根据计算结果更新 G54-G59 坐标系。
测试和验证
在实际加工中测试宏程序，确保其能够准确找正工件位置。
根据测试结果进行必要的调整，以确保程序的准确性和可靠性。
```plaintext
% O0001 自动找正程序
101=5021 将点E的机床坐标X值赋于101
M00
手动,将寻边器移到工件的点F
102=5021 自动,将点F的机床坐标X值赋于102
M00
手动,将寻边器移到工件的点D
113=5022 自动,将点D的机床坐标Y值赋于113
M00
手动,将寻边器移到工件的点A
104=5021 自动,将点A的机床坐标X值赋于104
114=5022 将点A的机床坐标Y值赋于114
M00
手动,将寻边器移到工件的点B
105=5021 自动,将点B的机床坐标X值赋于105
115=5022 将点B的机床坐标Y值赋于115
M00
IF[19 EQ 0]THEN
19=1;
ENDIF
3=[102-101]/2+101 将点E和点F的X值求取中间值,即“分中”的X坐标
4=[114-113]/2+113 将点D和点A的Y值求取中间值,即“分中”的Y坐标
5=ATAN[115-114]/[105-104] 求得旋转角度
2501+19]=3 将求得的X坐标写入到对应的G54~G59坐标系中
2601+19]=4 将求得的Y坐标写入到对应的G54~G59坐标系中
515=5 将角度值存入全局变量中,以便程序调用
M02
```
请注意，这只是一个示例程序，您可能需要根据您的具体需求和机床类型进行调整和优化。在编写和测试宏程序时，请确保遵循安全操作规程，并在有经验的指导下进行。
