Multiple Parts One Report ?

**John Kingston** · 02-02-2007, 08:09 PM

Are you trying to measure 1 part 100 times, or 100 parts 1 time?

You could add something like this:

L1 LABEL
YOUR CODE GOES HERE
C1.INPUT COMMENT/YESNO dO YOU WANT TO MEASURE ANOTHER PART?
IF/GOTO IFC1.INPUT=="YES"GOTO L1

The syntax might be a little off. I'm at home. I'll be in in the morning and repost if you need it. That will keep looping until you stop it, by answering no.
There are some Visual Basic scripts on the Wilcox site that send the info into an excel spreadsheet. That is another route to look at. Depends on what you want to do with the data.

**Sanjay Gandhi** · 02-02-2007, 08:29 PM

Hi !

As suggested by John, you can use lable and If command. Assign the lebel to the string from where you want to start the program again. ( i.e. after completion of manual alignment for the first time when you start the machine )

Your program for manual alignment ends here :

A1 =ALIGNMENT/START,RECALL:STARTUP,LIST=YES
ALIGNMENT/LEVEL,ZPLUS,PLN1
ALIGNMENT/ROTATE,XPLUS,TO,LIN1,ABOUT,ZPLUS
ALIGNMENT/TRANS,XAXIS,PNT1
ALIGNMENT/TRANS,YAXIS,LIN1
ALIGNMENT/TRANS,ZAXIS,PLN1
ALIGNMENT/END
LOADPROBE/1X20S
TIP/T1A90B180, SHANKIJK=0, -1, 0, ANGLE=180
L1 =LABEL/
C1 =COMMENT/INPUT,NO,'Enter the Angle of Valgus being Inspected.
,Just give whole number 5, 6 or 7'
MODE/DCC
/YOUR PROGRAM IN DCC MODE
/
/
/
/
/

PRINT/REPORT,EXEC MODE=END,$
TO_FILE=ON,AUTO=1,$
TO_PRINTER=ON,$
TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$
REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMEN SIONS=NO,$
PREVIOUS_RUNS=DELETE_INSTANCES
C2 =COMMENT/YESNO,NO,Please Place the another part
IF/C2.INPUT=="YES"
GOTO/L1
END_IF/
PRINT/REPORT,EXEC MODE=END,$
TO_FILE=ON,AUTO=1,$
TO_PRINTER=ON,$
TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$
REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMEN SIONS=NO,$
PREVIOUS_RUNS=DELETE_INSTANCES

With the above you will be able to check any nos. of parts. But you will have to insert operator input to add the part count so that you will able to identify the report for perticular sample no.

If you will not give the print command like above ( two times ) then it will print all the reports when you will finish the job. ( I don't know why ?) Also , I dont know how to print the Header after each of part run.

Hope the above will be helpful to you.

Good luck,

Sanjay Gandhi

**Zamlight** · 02-05-2007, 02:57 PM

Thank You!

I have it printing a page for each part. Is there a way to get it to post all 100 parts into an excel file? All I need is 3 measurements per part. Here is what my program looks like so far.

ALIGNMENT/END
L1 =LABEL/
MODE/DCC

::Program::

DIM LOC1= LOCATION OF CIRCLE 1.510 CIR3 UNITS=IN ,$
GRAPH=OFF TEXT=OFF MULT=10.00 OUTPUT=BOTH
AX NOMINAL +TOL -TOL MEAS DEV OUTTOL
R 0.7550 0.0050 0.0050 0.7559 0.0009 0.0000 -----#---
END OF DIMENSION LOC1
DIM LOC2= LOCATION OF CIRCLE 2.99 CIR3 UNITS=IN ,$
GRAPH=OFF TEXT=OFF MULT=10.00 OUTPUT=BOTH
AX NOMINAL +TOL -TOL MEAS DEV OUTTOL
R 1.4950 0.0050 0.0050 1.4953 0.0003 0.0000 ----#----
END OF DIMENSION LOC2
DIM DIST1= 3D DISTANCE FROM PLANE PLN1 TO PLANE PLN2, NO_RADIUS UNITS=IN ,$
GRAPH=OFF TEXT=OFF MULT=10.00 OUTPUT=BOTH
AX NOMINAL +TOL -TOL MEAS DEV OUTTOL
M 0.2800 0.0075 0.0075 0.2816 0.0016 0.0000 -----#---
PRINT/REPORT,EXEC MODE=END,$
TO_FILE=OFF,AUTO=1,$
TO_PRINTER=ON,$
TO_DMIS_REPORT=ON,FILE_OPTION=INDEX,FILENAME=,$
REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMEN SIONS=NO,$
PREVIOUS_RUNS=DELETE_INSTANCES
C1 =COMMENT/YESNO,YES,Please Place Another Part
IF_GOTO/C1.INPUT=="YES",GOTO = L1
END_IF/
PRINT/REPORT,EXEC MODE=END,$
TO_FILE=OFF,AUTO=1,$
TO_PRINTER=OFF,$
TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$
REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMEN SIONS=NO,$
PREVIOUS_RUNS=DELETE_INSTANCES

**Gary Fitzgerald** · 02-06-2007, 01:06 PM

Datapage

Datapage handles tabulating and excel spreadsheets

**John Kingston** · 02-06-2007, 01:18 PM

You can download a script from the Wilcox site. It will put the data right into an Excel spreadsheet.

**jjewell** · 02-06-2007, 01:28 PM

You can just output all the parts to one report as you are asking. Just turn on "append" where you turn report functions on.

**programmer** · 12-18-2008, 10:07 AM

Here's what i have so far:

L1 =label/
c1 =comment/input,no,enter sample size
c2 =comment/input,no,enter sample #

from here i want to have something like this:
If/goto ifc2.input>c1.input goto l1

if the sample # is greater than sample size then quit/prin the report if not i want it to repeat until the operator is done with sample size.

Multiple Parts One Report ?

Multiple Parts One Report ?

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Related Topics