Hi, Can anyone tell me if they know a code to check multiple ring gauges within the same program rather then making a different program for each? I mean like something where i can put diameter in the start and it automatically check the gauge based on that diameter ? Can some one help me write that code if possible? Thank you in advance
Try playing around with something like this. I used a 1.0015" ring gage as an example.
C1 =COMMENT/INPUT,NO,FULL SCREEN=NO,
WHAT SIZE RING GAGE WOULD YOU LIKE TO CHECK? (IN INCHES)
ASSIGN/V1=C1.INPUT
C2 =COMMENT/INPUT,NO,FULL SCREEN=NO,
HOW MANY HITS WOULD YOU LIKE TO TAKE?
ASSIGN/V2=C2.INPUT
COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,OVC=NO,
PLACE PROBE AT TDC OF RING GAGE
PNT1 =FEAT/POINT,CARTESIAN
THEO/<0,0,0>,<0,0,1>
ACTL/<0,0,0>,<0,0,1>
READPOINT/
A1 =ALIGNMENT/START,RECALL:STARTUP,LIST=YES
ALIGNMENT/TRANS,XAXIS,PNT1
ALIGNMENT/TRANS,YAXIS,PNT1
ALIGNMENT/TRANS,ZAXIS,PNT1
ALIGNMENT/END
CIR1 =FEAT/CONTACT/CIRCLE/DEFAULT,CARTESIAN,IN,LEAST_SQR
THEO/<0,0,0>,<0,0,1>,V1
ACTL/<0,0,0>,<0,0,1>,1.0015
TARG/<0,0,0>,<0,0,1>
START ANG=0,END ANG=360
ANGLE VEC=<1,0,0>
DIRECTION=CW
SHOW FEATURE PARAMETERS=NO
SHOW CONTACT PARAMETERS=YES
NUMHITS=5,DEPTH=0.25,PITCH=0
SAMPLE METHOD=SAMPLE_HITS
SAMPLE HITS=0,SPACER=0
AVOIDANCE MOVE=NO
FIND HOLE=DISABLED,ONERROR=NO,READ POS=NO
SHOW HITS=NO
A2 =ALIGNMENT/START,RECALL:A1,LIST=YES
ALIGNMENT/TRANS,XAXIS,CIR1
ALIGNMENT/TRANS,YAXIS,CIR1
ALIGNMENT/END
CIR2 =FEAT/CONTACT/CIRCLE/DEFAULT,CARTESIAN,IN,LEAST_SQR
THEO/<0,0,0>,<0,0,1>,V1
ACTL/<0,0,0>,<0,0,1>,1.0015
TARG/<0,0,0>,<0,0,1>
START ANG=0,END ANG=360
ANGLE VEC=<1,0,0>
DIRECTION=CW
SHOW FEATURE PARAMETERS=NO
SHOW CONTACT PARAMETERS=YES
NUMHITS=V2,DEPTH=0.25,PITCH=0
SAMPLE METHOD=SAMPLE_HITS
SAMPLE HITS=3,SPACER=0.15
AVOIDANCE MOVE=BOTH,DISTANCE BEFORE=0.1,DISTANCE AFTER=0.1,DIRECTION=ALONG FEATURE VECTOR
FIND HOLE=DISABLED,ONERROR=NO,READ POS=NO
SHOW HITS=NO
DIM LOC1= LOCATION OF CIRCLE CIR2 UNITS=IN ,$
GRAPH=OFF TEXT=OFF MULT=1.00 OUTPUT=BOTH HALF ANGLE=NO
AX MEAS NOMINAL DEV +TOL -TOL OUTTOL
D 1.0015 V1 0.0000 0.0002 0.0002 0.0000 ----#----
END OF DIMENSION LOC1
Try playing around with something like this. I used a 1.0015" ring gage as an example.
C1 =COMMENT/INPUT,NO,FULL SCREEN=NO,
WHAT SIZE RING GAGE WOULD YOU LIKE TO CHECK? (IN INCHES)
ASSIGN/V1=C1.INPUT
C2 =COMMENT/INPUT,NO,FULL SCREEN=NO,
HOW MANY HITS WOULD YOU LIKE TO TAKE?
ASSIGN/V2=C2.INPUT
COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,OVC=NO,
PLACE PROBE AT TDC OF RING GAGE
PNT1 =FEAT/POINT,CARTESIAN
THEO/<0,0,0>,<0,0,1>
ACTL/<0,0,0>,<0,0,1>
READPOINT/
A1 =ALIGNMENT/START,RECALL:STARTUP,LIST=YES
ALIGNMENT/TRANS,XAXIS,PNT1
ALIGNMENT/TRANS,YAXIS,PNT1
ALIGNMENT/TRANS,ZAXIS,PNT1
ALIGNMENT/END
CIR1 =FEAT/CONTACT/CIRCLE/DEFAULT,CARTESIAN,IN,LEAST_SQR
THEO/<0,0,0>,<0,0,1>,V1
ACTL/<0,0,0>,<0,0,1>,1.0015
TARG/<0,0,0>,<0,0,1>
START ANG=0,END ANG=360
ANGLE VEC=<1,0,0>
DIRECTION=CW
SHOW FEATURE PARAMETERS=NO
SHOW CONTACT PARAMETERS=YES
NUMHITS=5,DEPTH=0.25,PITCH=0
SAMPLE METHOD=SAMPLE_HITS
SAMPLE HITS=0,SPACER=0
AVOIDANCE MOVE=NO
FIND HOLE=DISABLED,ONERROR=NO,READ POS=NO
SHOW HITS=NO
A2 =ALIGNMENT/START,RECALL:A1,LIST=YES
ALIGNMENT/TRANS,XAXIS,CIR1
ALIGNMENT/TRANS,YAXIS,CIR1
ALIGNMENT/END
CIR2 =FEAT/CONTACT/CIRCLE/DEFAULT,CARTESIAN,IN,LEAST_SQR
THEO/<0,0,0>,<0,0,1>,V1
ACTL/<0,0,0>,<0,0,1>,1.0015
TARG/<0,0,0>,<0,0,1>
START ANG=0,END ANG=360
ANGLE VEC=<1,0,0>
DIRECTION=CW
SHOW FEATURE PARAMETERS=NO
SHOW CONTACT PARAMETERS=YES
NUMHITS=V2,DEPTH=0.25,PITCH=0
SAMPLE METHOD=SAMPLE_HITS
SAMPLE HITS=3,SPACER=0.15
AVOIDANCE MOVE=BOTH,DISTANCE BEFORE=0.1,DISTANCE AFTER=0.1,DIRECTION=ALONG FEATURE VECTOR
FIND HOLE=DISABLED,ONERROR=NO,READ POS=NO
SHOW HITS=NO
DIM LOC1= LOCATION OF CIRCLE CIR2 UNITS=IN ,$
GRAPH=OFF TEXT=OFF MULT=1.00 OUTPUT=BOTH HALF ANGLE=NO
AX MEAS NOMINAL DEV +TOL -TOL OUTTOL
D 1.0015 V1 0.0000 0.0002 0.0002 0.0000 ----#----
END OF DIMENSION LOC1
