看来您很少用宏程序，给你个看看，方不方便。
%_N_MESS_952_SPF
;$PATH=/_N_SPF_DIR


;*** MEASURING CYCLE FOR MEASURING BORE DIAMETER ***
；WITHOUT SPINDLE TURN ***
;*** LABEL : MESS952 ***
;************************************************************
;******* / PARAMETER: *******************
;* R38 = / NOMINAL DIAMETER ***
;* R80 = ***
;* LOWER TOLERANCE ?VALUE WITH ALGEBRIAC SIGN ***
;* R81 = ***
;* UPPER TOLERANCE ?VALUE WITH ALGEBRIAC SIGN ***
;******* / RESULT: *******************************
;* R50 = / ACTUAL DIAMETER ***
;* ***
;************************************************************

N100 ANFANG:
N110 R1=0
N120 ; SATZVORLAUF AKTIV / BLOCK SEARCH ACTIVE
N130 IF $P_SEARCH1==1 GOTOF ENDE
N140 SPOS=0
N150 STOPRE
N160 R26=R38/2 ; SOLLRADIUS / NOMIN. RADIUS
N170 R70=R38+R80 R71=R38+R81 ; GROESSTER D - KLEINSTER D / BIGGEST DIA - SMALLEST DIA
N180 R72=R26-5 ; RADIUS VORPOS. RECHTS / PRE-POS. RIGHT
N190 R73=R26+5 ; RADIUS ENDPOS. RECHTS / FINAL POS. RIGHT
N200 R74=-R72 ; RADIUS VORPOS. LINKS / PRE-POS. LEFT
N210 R75=-R73 ; RADIUS ENDPOS. LINKS / FINAL POS. LEFT
N220 R50=0
N230 STOPRE
N240 R98=$AA_IM[X] ; ISTPOS. X AUSLESEN / NOM. VALUE X READ OUT
N250 M58
N260 ACC[X]=10 ACC[Y]=10 ACC[Z]=10
N270 STOPRE
N280 G0 G53 G60 G40 G90 POS[X]=R98+R72 ; VORPOS. RECHTS / PRE-POS. RIGHT
N290 G4 F1
N300 MEAS=-1 G1 G53 G60 G40 G90 FA[X]=200 POS[X]=R98+R73 ; MESSEN RECHTS / MEAS.RIGHT
N310 STOPRE
N320 R94=$AA_MM[X] ; MESSERGEBNIS AUSLESEN RECHTS / READ OUT MEAS. RESULT RIGHT
N330 R01=$AC_MEA[1] ; MESSTASTER HAT GESCHALTET / PROBE HAD CONTACT
N340 IF R1==0 GOTOF OKONT
N350 STOPRE
N360 G0 G53 G60 G40 G90 FA[X]=20000 POS[X]=R98+R74 ; VORPOS. LINKS / PRE-POS. LEFT
N370 G4 F1
N380 MEAS=-1 G1 G53 G60 G40 G90 FA[X]=200 POS[X]=R98+R75 ; MESSEN LINKS / MEAS.LEFT
N390 STOPRE
N400 R96=$AA_MM[X] ; MESSERGEBNIS AUSLESEN LINKS / READ OUT MEAS. RESULT LEFT
N410 R50=0
N420 R01=$AC_MEA[1] ; MESSTASTER HAT GESCHALTET / PROBE HAD CONTACT
N430 IF R1==0 GOTOF OKONT
N440 G0 G53 G60 G40 G90 FA[X]=20000 POS[X]=R98
N450 STOPRE
N460 ACC[X]=100 ACC[Y]=100 ACC[Z]=100
N470 M57
N480 GOTOF AUSWERT
N490 OKONT:
N500 MSG ("MESSFUEHLER OHNE KONTAKT / PROBE WITHOUT CONTACT")
N510 M00
N520 STOPRE
N530 GOTOB OKONT

N540 AUSWERT:
N550 R57=R94-R96 ; POS. RECHTS - POS. LINKS
N560 R58=EICH_X_P+EICH_X_M ; EICH. X + EICH.-
N570 R50=R57+R58 ; ERGEBNIS / RESULT
N580 STOPRE
N590 IF R50>R71 GOTOF GROSS
N600 IF R50N610 STOPRE
N620 GOTOF ENDE
N630 GROSS:
N640 MSG("DURCHMESSER ZU GROSS / DIAMETER TOO BIG")
N650 M00
N660 GOTOB GROSS
N670 GOTOF ENDE
N680 KLEIN:
N690 MSG("DURCHMESSER ZU KLEIN / DIAMETER TOO SMALL")
N700 M00
N710 GOTOB KLEIN
N720 STOPRE
N730 ENDE:
N740 M17