I have seen alot on Looping measurement steps, but I have not seen anything (or at least couldn't find) about how you would loop a series of DIM statements. I have a group of repetitive features and the loop works good, except all the shows on the report is the last dimension in the loop. It does not show the previous 7 dimensions.
The code works. It loops through all steps the right amount of times. But it only shows the last lop on the report. Am I wasting my time here with this - I mean does it not work?
The code works. It loops through all steps the right amount of times. But it only shows the last lop on the report. Am I wasting my time here with this - I mean does it not work?
Code:
COMMENT/DOC,NO,************** ,WALL THICKNESS ,************** ASSIGN/TOTALSLICES = 8 WALLTHICKNESS=LOOP/START, ID = NO, NUMBER = TOTALSLICES, START = 1, SKIP = , OFFSET: XAXIS = 0, YAXIS = 0, ZAXIS = 0, ANGLE = 0 COMMENT/REPT, ,WALL THICKNESS ASSIGN/WALLTHICK1 = "WALLTHICK1_" + WALLTHICKNESS ASSIGN/FP1 = "FWD_PT1_" + WALLTHICKNESS ASSIGN/AP1 = "AFT_PT1_" + WALLTHICKNESS ASSIGN/WALLTHICKNOM = .085 DIM WALLTHICK1= 3D DISTANCE FROM POINT FP1 TO POINT AP1, NO_RADIUS UNITS=IN ,$ GRAPH=OFF TEXT=OFF MULT=1.00 OUTPUT=BOTH AX MEAS NOMINAL +TOL -TOL DEV OUTTOL M 0.0847 WALLTHICKNOM 0.0060 0.0060 -0.0003 0.0000 ----#---- ASSIGN/WT[((WALLTHICKNESS-1)*3)+1] = WALLTHICK1.M.MEAS COMMENT/DOC,NO,******************* ASSIGN/WALLTHICK2 = "WALLTHICK2_" + WALLTHICKNESS ASSIGN/FP2 = "FWD_PT2_" + WALLTHICKNESS ASSIGN/AP2 = "AFT_PT2_" + WALLTHICKNESS DIM WALLTHICK2= 3D DISTANCE FROM POINT FP2 TO POINT AP2, NO_RADIUS UNITS=IN ,$ GRAPH=OFF TEXT=OFF MULT=1.00 OUTPUT=BOTH AX MEAS NOMINAL +TOL -TOL DEV OUTTOL M 0.0861 WALLTHICKNOM 0.0060 0.0060 0.0011 0.0000 -----#--- ASSIGN/WT[((WALLTHICKNESS-1)*3)+2] = WALLTHICK2.M.MEAS COMMENT/DOC,NO,******************* ASSIGN/WALLTHICK3 = "WALLTHICK3_" + WALLTHICKNESS ASSIGN/FP3 = "FWD_PT3_" + WALLTHICKNESS ASSIGN/AP3 = "AFT_PT3_" + WALLTHICKNESS DIM WALLTHICK3= 3D DISTANCE FROM POINT FP3 TO POINT AP3, NO_RADIUS UNITS=IN ,$ GRAPH=OFF TEXT=OFF MULT=1.00 OUTPUT=BOTH AX MEAS NOMINAL +TOL -TOL DEV OUTTOL M 0.0835 WALLTHICKNOM 0.0060 0.0060 -0.0015 0.0000 ---#----- ASSIGN/WT[((WALLTHICKNESS-1)*3)+3] = WALLTHICK3.M.MEAS COMMENT/DOC,NO,******************* LOOP/END
Comment