2013-03-04 05:37 AM
2013-03-04 08:27 AM
DIM subtractedFooting []
DIM finished[]
GROUP 'Pile' !!!!Group for Solid operation
BLOCK pileSize, pileSize, pileFootingDeptht
ENDGROUP
GROUP 'Footing'
BLOCK footingSize, footingSize, footingDepth
ENDGROUP
FOR k = 0 TO A STEP pileCentres
ADDX k
GOSUB 100:
NEXT k
KILLGROUP 'Footing'
KILLGROUP 'Pile'
END
100: ! Piles
subtractedFooting[k+1] = SUBGROUP('Footing', 'Pile')
finished[k+1] = SUBGROUP(subtractedFooting[k+1], 'Pile')
PLACEGROUP finished [k+1]
KILLGROUP finished [k+1]
RETURN
FOR k = 0 TO A STEP pileCentres PLACEGROUP finished ADDx k NEXT k
2013-03-04 12:15 PM