Getprograminfo

Trying to start converting our PDMIS program to output to a PDF. I've gotten all of the variables setup to store the reports based on things like part name, time, date. But I'm trying to add an if/then statement to change the file name to indicate that a dimension failed.

I've search the forums here and people are using:

ASSIGN/NUMOOT=GETPROGRAMINFO("NUMOOT")

But it always reads a 0.

I'm using v2013, is it not the correct code for this version? Am I missing something before this line? Will it always show 0 offline? (I forced a nominal to make it OOT)

Parents

chadjac over 3 years ago

TEMP =FEAT/CONTACT/VECTOR POINT/DEFAULT,CARTESIAN
THEO/<0,0,0>,<0,-1,0>
ACTL/<0,0,0>,<0,-1,0>
TARG/<0,0,0>,<0,-1,0>
SHOW FEATURE PARAMETERS=NO
SHOW CONTACT PARAMETERS=NO
DIM LOC1= LOCATION OF POINT TEMP UNITS=IN ,$
GRAPH=OFF TEXT=OFF MULT=1.00 OUTPUT=BOTH HALF ANGLE=NO
AX NOMINAL +TOL -TOL MEAS DEV OUTTOL
X 1.0000 0.0020 0.0020 0.0000 -1.0000 0.9980 <--------
END OF DIMENSION LOC1
ASSIGN/V1=GETPROGRAMINFO("NUMOOT")
ASSIGN/DATE=SYSTEMDATE("MMdyyyy")
ASSIGN/TIME=SYSTEMTIME("HHmmss")
ASSIGN/JOB=12345
ASSIGN/REJECT="_____REJECTED_____"
$$ NO,
************************************************
IF/V1=="0"
ASSIGN/REPORT_NAME="W:\\CMM\\PCDMIS\\"+JOB+"__DATE__"+DAT E+"__TIME__"+TIME+"__.PDF"
END_IF/
ELSE/
ASSIGN/REPORT_NAME="W:\\CMM\\PCDMIS\\"+JOB+"__DATE__"+DAT E+"__TIME__"+TIME+"__"+REJECT+"__.PDF"
END_ELSE/
PRINT/REPORT,EXEC MODE=END,$
TO_FILE=ON,OVERWRITE=REPORT_NAME,$
TO_PRINTER=OFF,$
TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$
REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMEN SIONS=NO,$
PREVIOUS_RUNS=KEEP_INSTANCES

Here's the code I'm working with. The Assign/job will eventually be set with an operator comment.

Reply

chadjac over 3 years ago

TEMP =FEAT/CONTACT/VECTOR POINT/DEFAULT,CARTESIAN
THEO/<0,0,0>,<0,-1,0>
ACTL/<0,0,0>,<0,-1,0>
TARG/<0,0,0>,<0,-1,0>
SHOW FEATURE PARAMETERS=NO
SHOW CONTACT PARAMETERS=NO
DIM LOC1= LOCATION OF POINT TEMP UNITS=IN ,$
GRAPH=OFF TEXT=OFF MULT=1.00 OUTPUT=BOTH HALF ANGLE=NO
AX NOMINAL +TOL -TOL MEAS DEV OUTTOL
X 1.0000 0.0020 0.0020 0.0000 -1.0000 0.9980 <--------
END OF DIMENSION LOC1
ASSIGN/V1=GETPROGRAMINFO("NUMOOT")
ASSIGN/DATE=SYSTEMDATE("MMdyyyy")
ASSIGN/TIME=SYSTEMTIME("HHmmss")
ASSIGN/JOB=12345
ASSIGN/REJECT="_____REJECTED_____"
$$ NO,
************************************************
IF/V1=="0"
ASSIGN/REPORT_NAME="W:\\CMM\\PCDMIS\\"+JOB+"__DATE__"+DAT E+"__TIME__"+TIME+"__.PDF"
END_IF/
ELSE/
ASSIGN/REPORT_NAME="W:\\CMM\\PCDMIS\\"+JOB+"__DATE__"+DAT E+"__TIME__"+TIME+"__"+REJECT+"__.PDF"
END_ELSE/
PRINT/REPORT,EXEC MODE=END,$
TO_FILE=ON,OVERWRITE=REPORT_NAME,$
TO_PRINTER=OFF,$
TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$
REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMEN SIONS=NO,$
PREVIOUS_RUNS=KEEP_INSTANCES

Here's the code I'm working with. The Assign/job will eventually be set with an operator comment.

Children

No Data