How to expand/contract multiple voids at the same time?

I wrote a simple skill routine to resize voids in static shapes ( it won't work on dynamic shapes )

below is the skill code:

procedure((resize_voids size)
let((child parent VoidList oldPolys NewPolys AddPolys NewShp)
if(or(fixp(size) floatp(size)) then
(axlSetFindFilter ?enabled list("noall" "voids") ?onButtons list("noall" "voids"))
(axlClearSelSet)
(axlAddSelectBox)
axlMsgPut("%d voids selected" length(axlGetSelSet()))
when(axlGetSelSet()
(child = car(axlGetSelSet()))
(parent = child->parent)
when(parent->parentGroups
axlClearSelSet()
axlMsgPut("Can not edit Voids in Dynamic Shapes")
)
(parent = nil)
)
when(axlGetSelSet()
(VoidList = axlGetSelSet())
(axlClearSelSet)
foreach(dbid VoidList
unless(parent
(parent=dbid->parent)
(NewShp = axlDBOpenShape(parent nil))
)
(oldPolys = axlPolyFromDB(dbid))
;axlMsgPut("%d oldPolys" length(oldPolys))
(AddPolys = list())
foreach(poly oldPolys
(newPolys = axlPolyExpand(poly size 'none))
foreach(new newPolys
(AddPolys = cons(new AddPolys))
)
)
;axlMsgPut("%d newPolys" length(newPolys))
axlShapeDeleteVoids(dbid)
foreach(poly AddPolys
axlDBCreateVoid(NewShp poly)
)
)
axlDBCreateCloseShape(NewShp)
)
else
axlMsgPut("input value was not an int or float")
)
)
)

Below are the commands in Allegro:

skill 'load "resize_voids.ils"'

skill 'resize_voids -1'

I wrote a simple skill routine to resize voids in static shapes ( it won't work on dynamic shapes )

below is the skill code:

procedure((resize_voids size)
let((child parent VoidList oldPolys NewPolys AddPolys NewShp)
if(or(fixp(size) floatp(size)) then
(axlSetFindFilter ?enabled list("noall" "voids") ?onButtons list("noall" "voids"))
(axlClearSelSet)
(axlAddSelectBox)
axlMsgPut("%d voids selected" length(axlGetSelSet()))
when(axlGetSelSet()
(child = car(axlGetSelSet()))
(parent = child->parent)
when(parent->parentGroups
axlClearSelSet()
axlMsgPut("Can not edit Voids in Dynamic Shapes")
)
(parent = nil)
)
when(axlGetSelSet()
(VoidList = axlGetSelSet())
(axlClearSelSet)
foreach(dbid VoidList
unless(parent
(parent=dbid->parent)
(NewShp = axlDBOpenShape(parent nil))
)
(oldPolys = axlPolyFromDB(dbid))
;axlMsgPut("%d oldPolys" length(oldPolys))
(AddPolys = list())
foreach(poly oldPolys
(newPolys = axlPolyExpand(poly size 'none))
foreach(new newPolys
(AddPolys = cons(new AddPolys))
)
)
;axlMsgPut("%d newPolys" length(newPolys))
axlShapeDeleteVoids(dbid)
foreach(poly AddPolys
axlDBCreateVoid(NewShp poly)
)
)
axlDBCreateCloseShape(NewShp)
)
else
axlMsgPut("input value was not an int or float")
)
)
)

Below are the commands in Allegro:

skill 'load "resize_voids.ils"'

skill 'resize_voids -1'