03-04-2012, 09:16 AM
Creio que essa macro possa te ajudar:
Code:
200 {PushMax EDITABLE} VarSetEx(ID, 3277) VarSet(X) Self.X VarSet(Y) Self.Y VarSet(Z) Self.Z VarSub(Y, 1) Map.PickUp(!ID!, -1, 0, !X!, !Y!, !Z!)<>1 VarAdd(X, 1) Map.PickUp(!ID!, -1, 0, !X!, !Y!, !Z!)<>1 VarAdd(Y, 1) Map.PickUp(!ID!, -1, 0, !X!, !Y!, !Z!)<>1 VarAdd(Y, 1) Map.PickUp(!ID!, -1, 0, !X!, !Y!, !Z!)<>1 VarSub(X, 1) Map.PickUp(!ID!, -1, 0, !X!, !Y!, !Z!)<>1 VarSub(X, 1) Map.PickUp(!ID!, -1, 0, !X!, !Y!, !Z!)<>1 VarSub(Y, 1) Map.PickUp(!ID!, -1, 0, !X!, !Y!, !Z!)<>1 VarSub(Y, 1) Map.PickUp(!ID!, -1, 0, !X!, !Y!, !Z!)