Your Products have been synced, click here to refresh
Make sure the script command in your partprogram is marked. It is unmarked by default when you insert it.
Other than that, what error message are you seeing?
CS1 =SCRIPT/FILENAME= C:\CMM FILES\SCRIPT BAS\OUTTOL_1.BAS FUNCTION/[COLOR="#FF0000"]Main[/COLOR],SHOW=YES,,
CS1 =SCRIPT/FILENAME= C:\CMM FILES\SCRIPT BAS\OUTTOL_1.BAS FUNCTION/[COLOR="#FF0000"]CheckOOT[/COLOR],SHOW=YES,,
Hm, ok... Try changing the "Main" in the script call in your partprogram to "CheckOOT" (or change the "CheckOOT()") in the script to "Main()" and try again.
CS1 =SCRIPT/FILENAME= C:\CMM FILES\SCRIPT BAS\OUTTOL_1.BAS FUNCTION/[COLOR="#FF0000"]Main[/COLOR],SHOW=YES,,
To:
CS1 =SCRIPT/FILENAME= C:\CMM FILES\SCRIPT BAS\OUTTOL_1.BAS FUNCTION/[COLOR="#FF0000"]CheckOOT[/COLOR],SHOW=YES,,
So dph51, I tried the assignment I mentionned upon under PC-DMIS 2014, and it works well !!!
Here are the commands I use at the end of my program :
But I have another question : Is it possible to visualize the report when we get OOT dims ? Because the report window shows nothing when its finished, we have to click "redraw the report". Is there an automatic command that able to doing this ?
ASSIGN/V1=0
ASSIGN/V2=GETPROGRAMINFO("NUMOOT","")
IF/V2==0
PRINT/REPORT,EXEC MODE=END,$
TO_FILE=ON,AUTO=6,$
TO_PRINTER=OFF,$
TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$
REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMENSIONS=NO,$
TO_EXCEL_OUTPUT=OFF,
PREVIOUS_RUNS=DELETE_INSTANCES
END_IF/
ELSE_IF/V2>0
C1 =COMMENT/INPUT,NO,FULL SCREEN=NO,
You have OOT dimensions, try again !
PRINT/REPORT,EXEC MODE=END,$
TO_FILE=OFF,AUTO=3,$
TO_PRINTER=OFF,$
TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$
REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMENSIONS=NO,$
TO_EXCEL_OUTPUT=OFF,
PREVIOUS_RUNS=DELETE_INSTANCES
END_ELSEIF/
ASSIGN/V1=GETPROGRAMINFO("numoot","") ///FIND TOTAL OUT OF TOLERANCE IF/V1>0 ///EVALUATES IF THERE ARE ANY OUT OF TOLERANCE GOTO/END ///MOVES TO END IF ANY OUT OF TOLERANCE END_IF/ ///IF NO OUT OF TOLERANCE CODE MOVES TO NEXT LINE (ENTER YOUR PRINT COMMAND HERE) END =LABEL/ ///END OF PROGRAM TETHER
© 2024 Hexagon AB and/or its subsidiaries. | Privacy Policy | Cloud Services Agreement |