cv=geGetWindowCellView()
procedure(cutpsub(layer slotLayer  @optional (cv geGetEditCellView()))
 let((shp ovShpList ov)

 shp=setof(sh cv~>shapes sh~>lpp==slotLayer)


ovShpList=list()

foreach(sh shp 


	ov=dbGetTrueOverlaps(cv sh~>bBox layer 0)


	when(ov && listp(ov)
		foreach(ovsh ov
		unless(member(ovsh ovShpList) ovShpList=cons(ovsh ovShpList))
			)
		)
	)


dbLayerAndNot(cv layer ovShpList shp)


;foreach(sh shp dbDeleteObject(sh))

foreach(sh ovShpList dbDeleteObject(sh))
t

	))
;cutpsub(list("PSUB2" "drawing") list("NWELL" "drawing") )