04-18-2012, 02:03 PM
Use this macro below:
Change the ID 3277 for ID of parcel.
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!)
Change the ID 3277 for ID of parcel.