does leChopShape() work?

Hello,
I'm trying to chop off the GSG ends of a MMIC with SKILL code. GSG means ground signal ground and they are placed at the input and output of an RF device. The grounds are substrate vias that we refer to as VIA. The idea is to define a chop area from the edge of the device to just inside the VIAs on both sides. So I select the vias, get the bounding box and offset the distance. Then I parse x:y values from the layout bounding box & the via bounding box to define 2 chop areas. Then use leChopShape() on each database object in the layout with the defined chop areas.

The code below runs without error but there is no change to the layout. Has anyone used leChopShape() successfully?

procedure(chopOffGSG()
	let(()
		
		VIA = '("VIA" "drawing")		; variable for the via layer
		OFFSET = 63                             ; offset the x values on each side
		
		geDeselectAll();
		
		leSetAllLayerSelectable(nil);		; makes all layers unselectable
		leSetLayerSelectable(VIA t)		; turn on VIA Layer
		geSelectAllFig();			; select the vias
		l_allFig = geGetSelectedSet()		; & save it to a variable
		vBox = CCSgetBBox(l_allFig);		; get bounding box
		
		leSetAllLayerSelectable(t);		; turn on all layers
		geSelectAllFig();			; select everything
		l_allFig = geGetSelectedSet()		; & save it to a variable
		bBox = CCSgetBBox(l_allFig);		; get bounding box of layout
		
                ;left side chop area
                chopBox1 = list(caar(bBox):cadar(bBox) (caar(vBox) + OFFSET):cadadr(bBox)) 

                ; right side chop area
		chopBox2 = list((caadr(vBox) - OFFSET):cadar(bBox) cadr(bBox))
		
		
		foreach(mapcar dbFig l_allFig
			if((dbFig->objType != "label")	; labels cannot be chopped
				; then(
				    leChopShape(dbFig chopBox1 nil nil)     ; chop off left
				    leChopShape(dbFig chopBox2 nil nil)     ; chop off right
                                 )
				; else
                                    dbDeleteObject(dbFig)	; remove pesky labels
			); if	
		); foreach
		
	    ); let
	);chopOffGSG