Long time no see. Have moved to Florida and have taken on a new role thats taken me away from the CMMs for a while. Am dancing with the demon again and she's throwing me through "a loop". Hopefully the hivemind can help.
I want it to measure 10 parts in a row spaced out two inches from part to part. They are 1" tall circular discs...all I need is the ID.
Program will run just fine ONCE. When it finishes, it changes the THEO and TARG on me and then tries to go to all types of crazy places on the machine. I want the features to always stay at 0,0,0. My fear is that I will have to re-program this darn thing every time I run it (shouldn't have to do that).
For example, if I measure three parts...when code completes it will say "-6" in those fields.
Heres the code...can't post a model pic due to ITAR:
STARTUP =ALIGNMENT/START,RECALL:USE_PART_SETUP,LIST=YES ALIGNMENT/END MOVESPEED/ 270 LOADPROBE/4MM_50MM TIP/T1A0B0, SHANKIJK=0, 0, 1, ANGLE=0 GROUP_SETUP_INSTRUCTIONS=GROUP/SHOWALLPARAMS=YES COMMENT/OPER,NO,FULL SCREEN=YES,AUTO-CONTINUE=NO, Get everything off of the CMM's Table. Put a row of double sided sticky tape across "Row I" and across "Row L". Put parts on the tape spaced 2" apart. Press OK once complete. COMMENT/OPER,NO,FULL SCREEN=YES,AUTO-CONTINUE=NO, Readpoint alignment! Put probe directly over ID of first part. Bottom of ball is coplanar with surface of part that the thru-hole breaks through. LOOPQUESTION =COMMENT/INPUT,NO,FULL SCREEN=NO, How many parts would you like to measure? Enter a number between 1-10 Press OK once complete COMMENT/OPER,NO,FULL SCREEN=YES,AUTO-CONTINUE=NO, Press OK for CNC Measurement ENDGROUP/ID=GROUP_SETUP_INSTRUCTIONS ASSIGN/VAR_LOOPQUESTION=LOOPQUESTION.INPUT MODE/DCC PLN_THEO_XP=FEAT/PLANE,CARTESIAN,TRIANGLE,NO THEO/<0,0,0>,<1,0,0> ACTL/<0,0,0>,<1,0,0> CONSTR/PLANE,ALIGN,XPLUS RP1 =FEAT/POINT,CARTESIAN THEO/<0,0,0>,<0,0,1> ACTL/<0,0,0>,<0,0,1> READPOINT/ A1 =ALIGNMENT/START,RECALL:USE_PART_SETUP,LIST=YES ALIGNMENT/TRANS,XAXIS,RP1 ALIGNMENT/TRANS,YAXIS,RP1 ALIGNMENT/TRANS,ZAXIS,RP1 ALIGNMENT/END LOOP =LOOP/START,ID=YES,NUMBER=VAR_LOOPQUESTION,START=1,SKIP= , OFFSET:XAXIS=2,YAXIS=0,ZAXIS=0,ANGLE=0 FLY/ON MOVESPEED/ 270 TOUCHSPEED/ 5 PREHIT/0.25 RETRACT/0.25 CHECK/0.25,1 CIRXYZ1 =FEAT/CONTACT/CIRCLE/DEFAULT,CARTESIAN,IN,LEAST_SQR THEO/<0,0,0>,<0,0,1>,0.9475 ACTL/<0,0,0>,<0,0,1>,0.9475 TARG/<0,0,0>,<0,0,1> START ANG=0,END ANG=360 ANGLE VEC=<1,0,0> DIRECTION=CCW SHOW FEATURE PARAMETERS=NO SHOW CONTACT PARAMETERS=NO A2 =ALIGNMENT/START,RECALL:A1,LIST=YES ALIGNMENT/TRANS,XAXIS,CIRXYZ1 ALIGNMENT/TRANS,YAXIS,CIRXYZ1 ALIGNMENT/END FLY/ON MOVESPEED/ 270 TOUCHSPEED/ 5 PREHIT/0.1 RETRACT/0.1 CHECK/0.1,1 PLNXYZ1 =FEAT/CONTACT/PLANE/DEFAULT,CARTESIAN,OUTLINE,LEAST_SQR THEO/<0,0,0>,<0,0,1> ACTL/<0,0,0>,<0,0,1> TARG/<0,0,0>,<0,0,1> ANGLE VEC=<0.8944272,-0.4472136,0>,RADIAL SHOW FEATURE PARAMETERS=NO SHOW CONTACT PARAMETERS=NO A3 =ALIGNMENT/START,RECALL:STARTUP,LIST=YES ALIGNMENT/LEVEL,ZPLUS,PLNXYZ1 ALIGNMENT/ROTATE,XPLUS,TO,PLN_THEO_XP,ABOUT,ZPLUS ALIGNMENT/TRANS,XAXIS,CIRXYZ1 ALIGNMENT/TRANS,YAXIS,CIRXYZ1 ALIGNMENT/TRANS,ZAXIS,PLNXYZ1 ALIGNMENT/END FLY/ON MOVESPEED/ 270 TOUCHSPEED/ 5 PREHIT/0.05 RETRACT/0.05 CHECK/0.05,1 CYL_DATUM_B =FEAT/CONTACT/CYLINDER/DEFAULT,CARTESIAN,IN,LEAST_SQR THEO/<0,0,-0.0197>,<0,0,1>,0.9476,0.7323 ACTL/<0,0,-0.0197>,<0,0,1>,0.9476,0.7323 TARG/<0,0,-0.0197>,<0,0,1> START ANG=0,END ANG=360 ANGLE VEC=<1,0,0> DIRECTION=CCW SHOW FEATURE PARAMETERS=NO SHOW CONTACT PARAMETERS=NO FORMAT/TEXT,OPTIONS,ID,HEADINGS,SYMBOLS, ;MEAS,NOM,TOL,DEV,OUTTOL, , DISPLAYPRECISION/3 DIM LOC1= LOCATION OF CYLINDER CYL_DATUM_B UNITS=MM ,$ GRAPH=OFF TEXT=OFF MULT=10.00 OUTPUT=BOTH HALF ANGLE=NO AX MEAS NOMINAL +TOL -TOL DEV OUTTOL D 24.069 24.070 0.100 0.100 -0.001 0.000 ----#---- RN 0.000 0.000 0.050 0.000 0.000 0.000 #-------- END OF DIMENSION LOC1 FPTR =FILE/OPEN,P:\Customer\XXXXXXXXXXX\Reports\CTQ\000XXXXX\DATA.txt,APPEND ASSIGN/V1=LOC1.D.MEAS FILE/WRITELINE,FPTR,V1 FILE/CLOSE,FPTR,KEEP LOOP/END RECALL/ALIGNMENT,INTERNAL,STARTUP MOVE/INCREMENT,<0,0,12> MOVE/POINT,NORMAL,<10,31,-16>
Hope everyone is doing well!!! Missed you guys/gals.
