Skill for removing voids?

This is my best effort with regards to a regular script. "Drag_start" and "drag_stop" are not documented and I've noticed that changing the numbers tends to make the script fail. Originally that comes from macro recorder of course. 

The script kills (most) voids for whatever shape is under the cursor at the time. 

Allegro script
# start time: Wed Sep 28 11:27:52 2016
# Version: 17.2-2016 S005 (v17-2-50AQ) Windows SPB 64-bit Edition
version 17.2

#setwindow pcb
trapsize 599
shapeedit
shape void delete
pick_to_grid -cursor

# Macro file: coordinates are relative to pick on replay.

#pick_origin
drag_start rel grid -112.155 86.513
drag_stop rel 235.813 -148.821
pick rel grid 0 0
#prepopup rel 0.000 0.000
done
#shapeedit

# stop time: Wed Sep 28 11:28:26 2016

here is some simple skill code that should delete all the voids in a design:

procedure(delete_voids()
    let((o_shape)
        (axlClearSelSet)
        (axlSetFindFilter ?enabled list("noall" "voids" "INVISIBLE") ?onButtons list("noall" "voids"))
        axlAddSelectAll()
        foreach(void axlGetSelSet()
            (o_shape = axlDBOpenShape(void->parent nil))
            axlShapeDeleteVoids(void)
            axlDBCreateCloseShape(o_shape)
        )
    )
)
axlCmdRegister("delete_voids" 'delete_voids ?cmdType "general")

it runs without any issues for me in 16.6 and 17.2 S018