I WANTED CREATE VOID ON HOLES AS USING MY CODE ITS REMOVING THE SHAPE DBID

Hello,

I have developed the below code and on running it is removing the Shape DBID after first void creation as shown in snap below.

I would be thankful If anyone can help in this regard and provide a better way for void creation on multiple holes.

Thanks

("run"

airgap=axlFormGetField(form "airgap")
net_name=axlFormGetField(form "net_name")
void_size=axlFormGetField(form "void_size")

airgap = atoi(airgap)
net_name = upperCase(net_name)
void_size = atoi(void_size)

antipad_half=void_size/2

axlSetFindFilter(?enabled list("noall") ?onButtons list("noall"))
axlSetFindFilter(?enabled list("VIAS" "SHAPES") ?onButtons list("VIAS" "SHAPES"))
axlSelect()
l_vias_shapes = axlGetSelSet()
length_l_vias=length(l_vias_shapes)

l_shapes = list()
l_vias = list()

foreach(vias_shapes l_vias_shapes
when((vias_shapes->objType == "via" )
l_vias = append1(l_vias vias_shapes)
)
when((vias_shapes->objType == "shape" )
l_shapes = append1(l_shapes vias_shapes)
)
)

count=0
item_count=0

void_count=0
l_shape_void_info=nil

newshap_poly = nil
shape = nil

l_voids=nil

endType = 'ROUND

foreach(shapes,l_shapes

foreach(via,l_vias
count++

net_via=via->net->name

println("net_via")
println(net_via)

if(net_via == net_name then

list_connect=axlDBGetConnect(via t)
list_shape_layer=list()

foreach(connect list_connect
when(connect->objType=="shape" list_shape_layer=append1(list_shape_layer connect->layer))
)

list_shape_layer=unique(list_shape_layer)

l_airgap = axlAirGap(via shapes nil t)
object1_xy=car(cadr(l_airgap))
object2_xy=cadr(cadr(l_airgap))
airgapsize = nth(2,cadr(l_airgap))

if( member(car(l_layers_visible) list_shape_layer)== nil && airgapsize < airgap then

via_xy=via->xy
l_location=list(via_xy,antipad_half)

l_db=axlDBCreateCircle(l_location,'0,skill_layer)

circle_db=car(car(l_db))

l_poly_circle = axlPolyFromDB(circle_db ?layer skill_layer)

axlDeleteObject(circle_db)

l_poly_shape = axlPolyFromDB(shapes)
l_poly_void = (axlPolyOperation l_poly_shape l_poly_circle 'ANDNOT)
newshp = axlDBOpenShape(shapes->shapeBoundary car(l_poly_void))
foreach(poly,l_poly_void
axlDBCreateVoid(shapes,poly)
) ;; l_poly_shape_new
axlDBCreateCloseShape(newshp)
axlShapeDynamicUpdate(shapes t)

)

)
)
)

axlClearSelSet()

) ;; run