Trying to fix grid error in the entire library

Hi All,

I am trying to fix grid error of labels in my library using a skill code.

I have tested the below code with a particular cell view, and it is working fine.

libName="test"

res=0.01

cv=geGetWindowCellView()

foreach( txtShp setof(shp cv~>shapes shp~>objType == "textDisplays")
unless( onGrid( car( txtShp~>xy ) res ) && onGrid( cadr( txtShp~>xy ) res )
;printf("Fixing text %s \n" txtShp~>theLabel )
txtShp~>xy = snapClosest( car( txtShp~>xy) res):snapClosest( cadr( txtShp~>xy) res)
)
)

But when I try to modify this code to work on my entire library, it does not gives any error but nothing happens on the cells

libName="test"
res=0.01
procedure( rfipFixOffGridText(cv res )
let( ()
foreach( txtShp setof(shp cv~>shapes shp~>objType == "textDisplays")
unless( onGrid( car( txtShp~>xy ) res ) && onGrid( cadr( txtShp~>xy ) res )
;printf("Fixing text %s \n" txtShp~>theLabel )
txtShp~>xy = snapClosest( car( txtShp~>xy) res):snapClosest( cadr( txtShp~>xy) res)
)
)
)
)
libID=ddGetObj(libName)
all=setof(cells libID~>cells member("layout" cells~>views~>name))
foreach(cell all
cv = dbOpenCellViewByType(libID~>name cell~>name "layout" "" "a")
rfipFixOffGridText(cv res)
dbSave(cv)
dbClose(cv)
)
Please tell me where I am going wrong in my approach.

Thanks

Utkarsh