CAPPS/REPORT,DELETE
UNITS/INCH,ANGDEC
$$DATE:   2/28/2018 
DI(1)=DMEID/''
PN(1)=PARTID/'3DVA_116W8505-1'
$$TIME:   08:41:50 AM 
OP(1)=OPERID/'Your Operator'
PS(1)=PARTSN/''
CM(1)=COMMNT/'Probing program for 3DVA_116W8505-1'
R(1)=REPORT/DATE,DI(1),PN(1),TIME,OP(1),PS(1),CM(1)
OUTPUT/R(1)
$$SELECT PROBE AT TIP=1
SNSLCT/SA(PRB),0.00000,0.00000,-1.00000
RECALL/PART,'C:\CappsNC\Capps\Parts\Aat.mdl'
CAPPS/LOCKPART
F(PT1)=FEAT/POINT,CART, 2.6679, 4.7611, 2.0653, 0.8912, 0.0001, 0.4536
  MEAS/POINT,F(PT1),1
   PTMEAS/CART,2.6679,4.7611,2.0653,0.8912,0.0001,0.4536
  ENDMES
OUTPUT/FA(PT1),TA(TX22),TA(TY2),TA(TZ2),TA(TP23)
F(PT2)=FEAT/POINT,CART, 2.9379, 4.7611, 1.6652, 0.7549, 0.0003, 0.6558
  MEAS/POINT,F(PT2),1
   PTMEAS/CART,2.9379,4.7611,1.6652,0.7549,0.0003,0.6558
  ENDMES
OUTPUT/FA(PT2),TA(TX22),TA(TY2),TA(TZ2),TA(TP23)
F(PT3)=FEAT/POINT,CART, 3.2963, 4.7611, 1.3421, 0.5732, 0.0005, 0.8194
  MEAS/POINT,F(PT3),1
   PTMEAS/CART,3.2963,4.7611,1.3421,0.5732,0.0005,0.8194
  ENDMES
OUTPUT/FA(PT3),TA(TX22),TA(TY2),TA(TZ2),TA(TP23)
F(PT4)=FEAT/POINT,CART, 3.7230, 4.7611, 1.1169, 0.3549, 0.0007, 0.9349
  MEAS/POINT,F(PT4),1
   PTMEAS/CART,3.7230,4.7611,1.1169,0.3549,0.0007,0.9349
  ENDMES
OUTPUT/FA(PT4),TA(TX22),TA(TY2),TA(TZ2),TA(TP23)
F(PT5)=FEAT/POINT,CART, 4.1917, 4.7611, 1.0015, 0.1193, 0.0009, 0.9929
  MEAS/POINT,F(PT5),1
   PTMEAS/CART,4.1917,4.7611,1.0015,0.1193,0.0009,0.9929
  ENDMES
OUTPUT/FA(PT5),TA(TX22),TA(TY2),TA(TZ2),TA(TP23)
F(PT6)=FEAT/POINT,CART, 4.3046, 4.0068, 0.9919, 0.0614, 0.0009, 0.9981
  MEAS/POINT,F(PT6),1
   PTMEAS/CART,4.3046,4.0068,0.9919,0.0614,0.0009,0.9981
  ENDMES
OUTPUT/FA(PT6),TA(TX22),TA(TY2),TA(TZ2),TA(TP23)
F(PT7)=FEAT/POINT,CART, 3.8044, 4.0068, 1.0886, 0.3139, 0.0008, 0.9495
  MEAS/POINT,F(PT7),1
   PTMEAS/CART,3.8044,4.0068,1.0886,0.3139,0.0008,0.9495
  ENDMES
OUTPUT/FA(PT7),TA(TX22),TA(TY2),TA(TZ2),TA(TP23)
F(PT8)=FEAT/POINT,CART, 3.3455, 4.0068, 1.3093, 0.5474, 0.0006, 0.8369
  MEAS/POINT,F(PT8),1
   PTMEAS/CART,3.3455,4.0068,1.3093,0.5474,0.0006,0.8369
  ENDMES
OUTPUT/FA(PT8),TA(TX22),TA(TY2),TA(TZ2),TA(TP23)
F(PT9)=FEAT/POINT,CART, 2.9594, 4.0068, 1.6413, 0.7440, 0.0003, 0.6682
  MEAS/POINT,F(PT9),1
   PTMEAS/CART,2.9594,4.0068,1.6413,0.7440,0.0003,0.6682
  ENDMES
OUTPUT/FA(PT9),TA(TX22),TA(TY2),TA(TZ2),TA(TP23)
F(PT10)=FEAT/POINT,CART, 2.6703, 4.0068, 2.0608, 0.8898, 0.0001, 0.4563
  MEAS/POINT,F(PT10),1
   PTMEAS/CART,2.6703,4.0068,2.0608,0.8898,0.0001,0.4563
  ENDMES
OUTPUT/FA(PT10),TA(TX22),TA(TY2),TA(TZ2),TA(TP23)
F(PT11)=FEAT/POINT,CART, 2.6700, 3.2525, 2.0615, 0.8898, 0.0001, 0.4563
  MEAS/POINT,F(PT11),1
   PTMEAS/CART,2.6700,3.2525,2.0615,0.8898,0.0001,0.4563
  ENDMES
OUTPUT/FA(PT11),TA(TX22),TA(TY2),TA(TZ2),TA(TP23)
F(PT12)=FEAT/POINT,CART, 2.9590, 3.2525, 1.6420, 0.7440, 0.0003, 0.6682
  MEAS/POINT,F(PT12),1
   PTMEAS/CART,2.9590,3.2525,1.6420,0.7440,0.0003,0.6682
  ENDMES
OUTPUT/FA(PT12),TA(TX22),TA(TY2),TA(TZ2),TA(TP23)
F(PT13)=FEAT/POINT,CART, 3.3452, 3.2525, 1.3100, 0.5474, 0.0006, 0.8369
  MEAS/POINT,F(PT13),1
   PTMEAS/CART,3.3452,3.2525,1.3100,0.5474,0.0006,0.8369
  ENDMES
OUTPUT/FA(PT13),TA(TX22),TA(TY2),TA(TZ2),TA(TP23)
F(PT14)=FEAT/POINT,CART, 3.8041, 3.2525, 1.0893, 0.3139, 0.0008, 0.9495
  MEAS/POINT,F(PT14),1
   PTMEAS/CART,3.8041,3.2525,1.0893,0.3139,0.0008,0.9495
  ENDMES
OUTPUT/FA(PT14),TA(TX22),TA(TY2),TA(TZ2),TA(TP23)
F(PT15)=FEAT/POINT,CART, 4.3043, 3.2525, 0.9927, 0.0614, 0.0009, 0.9981
  MEAS/POINT,F(PT15),1
   PTMEAS/CART,4.3043,3.2525,0.9927,0.0614,0.0009,0.9981
  ENDMES
OUTPUT/FA(PT15),TA(TX22),TA(TY2),TA(TZ2),TA(TP23)
F(PT16)=FEAT/POINT,CART, 3.8488, 2.4982, 1.0758, 0.2913, 0.0008, 0.9566
  MEAS/POINT,F(PT16),1
   PTMEAS/CART,3.8488,2.4982,1.0758,0.2913,0.0008,0.9566
  ENDMES
OUTPUT/FA(PT16),TA(TX22),TA(TY2),TA(TZ2),TA(TP23)
F(PT17)=FEAT/POINT,CART, 3.4796, 2.4982, 1.2303, 0.4777, 0.0006, 0.8785
  MEAS/POINT,F(PT17),1
   PTMEAS/CART,3.4796,2.4982,1.2303,0.4777,0.0006,0.8785
  ENDMES
OUTPUT/FA(PT17),TA(TX22),TA(TY2),TA(TZ2),TA(TP23)
F(PT18)=FEAT/POINT,CART, 3.1498, 2.4982, 1.4567, 0.6478, 0.0005, 0.7618
  MEAS/POINT,F(PT18),1
   PTMEAS/CART,3.1498,2.4982,1.4567,0.6478,0.0005,0.7618
  ENDMES
OUTPUT/FA(PT18),TA(TX22),TA(TY2),TA(TZ2),TA(TP23)
F(PT19)=FEAT/POINT,CART, 2.8725, 2.4982, 1.7454, 0.7872, 0.0003, 0.6168
  MEAS/POINT,F(PT19),1
   PTMEAS/CART,2.8725,2.4982,1.7454,0.7872,0.0003,0.6168
  ENDMES
OUTPUT/FA(PT19),TA(TX22),TA(TY2),TA(TZ2),TA(TP23)
F(PT20)=FEAT/POINT,CART, 2.6587, 2.4982, 2.0838, 0.8955, 0.0000, 0.4451
  MEAS/POINT,F(PT20),1
   PTMEAS/CART,2.6587,2.4982,2.0838,0.8955,0.0000,0.4451
  ENDMES
OUTPUT/FA(PT20),TA(TX22),TA(TY2),TA(TZ2),TA(TP23)
F(PT21)=FEAT/POINT,CART, 2.6693, 1.7439, 2.0629, 0.8898, 0.0001, 0.4563
  MEAS/POINT,F(PT21),1
   PTMEAS/CART,2.6693,1.7439,2.0629,0.8898,0.0001,0.4563
  ENDMES
OUTPUT/FA(PT21),TA(TX22),TA(TY2),TA(TZ2),TA(TP23)
F(PT22)=FEAT/POINT,CART, 2.9584, 1.7439, 1.6435, 0.7440, 0.0003, 0.6682
  MEAS/POINT,F(PT22),1
   PTMEAS/CART,2.9584,1.7439,1.6435,0.7440,0.0003,0.6682
  ENDMES
OUTPUT/FA(PT22),TA(TX22),TA(TY2),TA(TZ2),TA(TP23)
F(PT23)=FEAT/POINT,CART, 3.3446, 1.7439, 1.3115, 0.5474, 0.0006, 0.8369
  MEAS/POINT,F(PT23),1
   PTMEAS/CART,3.3446,1.7439,1.3115,0.5474,0.0006,0.8369
  ENDMES
OUTPUT/FA(PT23),TA(TX22),TA(TY2),TA(TZ2),TA(TP23)
F(PT24)=FEAT/POINT,CART, 3.8035, 1.7439, 1.0908, 0.3139, 0.0008, 0.9495
  MEAS/POINT,F(PT24),1
   PTMEAS/CART,3.8035,1.7439,1.0908,0.3139,0.0008,0.9495
  ENDMES
OUTPUT/FA(PT24),TA(TX22),TA(TY2),TA(TZ2),TA(TP23)
F(PT25)=FEAT/POINT,CART, 4.3037, 1.7439, 0.9941, 0.0614, 0.0009, 0.9981
  MEAS/POINT,F(PT25),1
   PTMEAS/CART,4.3037,1.7439,0.9941,0.0614,0.0009,0.9981
  ENDMES
OUTPUT/FA(PT25),TA(TX22),TA(TY2),TA(TZ2),TA(TP23)
$$*******************************************************************
$$ FIRST DECLARE THE STRING VARIABLES TO STORE FOLLOWING INFORMATION
$$*******************************************************************
DECL/STRING,FILE_NAME,FILE_EXTENSION,FILE_PATH,FULL_PATH
$$**********************************************************************
$$ OBTAIN/KEYBRD COMMAND WILL OPEN A PROMPT WINDOW FOR THE OPERATOR 
$$ TO ENTER THE FILE NAME AND ASSIGN IT TO FILE_NAME VARIABLE 
$$ PLEASE REFER TO DMIS COMMANDS MANUAL UNDER HELP SECTION FOR MORE 
$$ INFO ON OBTAIN/KEYBRD COMMAND
$$**********************************************************************
FILE_NAME=OBTAIN/KEYBRD,'ENTER FILENAME'
$$*********************************************************
$$ SINCE THE FILE_EXTENSION WON'T BE CHANGED IT COULD BE 
$$ ASSIGN TO A CONSTANT (HARD CODED) AS BELOW
$$ KEEP IN MIND THAT FILE EXTENSIONS STARTS WITH . AND 
$$ FOLLOWED BY LOWER-CASE LETTERS
$$*********************************************************
FILE_EXTENSION='.csv'
$$*****************************************************************************
$$ IN THIS EXAMPLE, FILE_PATH IS ALSO ASSIGNED TO A CONSTANT.
$$ ALTERNATIVELY, IT CAN BE ALTERED DURING EXECUTION BY THE OPERATOR
$$ USING THE OBTAIN/KEYBRD COMMAND AS SHOWN ABOVE. 
$$
$$ IMPORTANT NOTE: CAPPS DOES NOT AUTO-COMPLETE DIRECTORY PATHS, WHICH
$$ MEANS IF A OBTAIN/KEYBRD COMMAND IS USE TO RETRIVE PATH, OPERATOR
$$ IS FULLY RESPONSIBLE TO ENTER CORRECT PATH USING : AND \ CHARACTERS
$$
$$ IMPORTANT NOTE: CAPPS DOES NOT CREATE FOLDERS UNDER A GIVEN DIRECTORY
$$ I.E.: USING THE PATH GIVEN BELOW, IF C:\Reports PATH DOES NOT HAVE A
$$ FOLDER NAMED Inspection_Reports, HARD CODING IT INTO A VARIABLE
$$ OR ENTERING SUCH PATH INFORMATION TO OBTAIN/KEYBRD PROMPT NEITHER CREATE
$$ A FOLDER, NOR SAVE THE REPORT FILE
$$*******************************************************************************
FILE_PATH='C:\Reports'
$$**************************************************************************
$$ TO PREVENT TYPOS \ CHARACTER IS STORED INTO A VARIABLE NAMED BACK_SLASH
$$**************************************************************************
DECL/STRING,BACK_SLASH
BACK_SLASH='\'
$$**************************************************************
$$ ALL VARIABLES CAN BE COMBINED TOGETHER USING CONCAT COMMAND
$$ AND STORED IN FULL_PATH VARIABLE AS SHOWN BELOW
$$ PLEASE REFER TO DMIS COMMANDS MANUAL UNDER HELP SECTION 
$$ FOR MORE INFO ON CONCAT COMMAND
$$**************************************************************
FULL_PATH=CONCAT(FILE_PATH_MAIN,BACK_SLASH,FILE_NAME,FILE_EXTENSION)
$$******************************************************************
$$ IN THE BELOW EXAMPLE A NEW REPORT FILE IS SAVED 
$$ BY INCREMENTING THE FILE NAME BY ONE AFTER A PROGRAM EXECUTION
$$ 
$$ IMPORTANT NOTE: IF A VARIABLE IS GOING TO BE USED FOR DEFINING A 
$$ FILE PATH AS AS IN THIS EXAMPLE, THE VARIABLE NAME MUST BE PRECEED
$$ BY A @ BETWEEN SINGLE QUOTES TO POINT THE VALUE IT IS HOLDING
$$*******************************************************************
SAVE/REPORT,INCREMENT, '@FULL_PATH'