Criando um Timestamp

This is used to create a unique timestamp inside a part program. Typically can be used to identify each execution/report with a unique file name.

$$Begin Example


DECL/CHAR,100, time_stamp

DECL/CHAR,200, STR3

DECL/CHAR,200, STR2

$$Assign the time_stamp


time_stamp = ASSIGN/ STIMESTAMP()

$$ Read the report folder of ARCO


STR2=ASSIGN/GETENV('ARCOREPORTFOLDER')

$$Create a Unique file name with time stamp at the end of the name


STR3=ASSIGN/CONCAT(str2,'output_',time_stamp,'.mea')

$$Create Dummy Point and Tolerances


F(q)=FEAT/POINT,CART,00,0,0,0,0,1

FA(q)=FEAT/POINT,CART,00,0,0,0,0,1

T(CORTOL_1)=TOL/CORTOL,XAXIS,-0.1000,0.1000

T(CORTOL_2)=TOL/CORTOL,YAXIS,-0.1000,0.1000

T(CORTOL_3)=TOL/CORTOL,ZAXIS,-0.1000,0.1000

$$Build the output


DID(OUT_FILE)=DEVICE/STOR,STR3

OPEN/DID(OUT_FILE),FDATA,V(TEXT),OUTPUT,OVERWR

OUTPUT/FA(Q),TA(CORTOL_1),TA(CORTOL_2),TA(CORTOL_3)

CLOSE/DID(OUT_FILE)