how to change "[@cellname]" label height and labelJustify ??

Dear all ,  

 i want to change symbol label "[@cellname]" by skill code.

but i don't know how to change height and labelJustify value by skill ?

the code is not work .

pls help it , thanks

; skill code start

procedure(SymbolCellName(libName)

let((cv libId label0)

libId=ddGetObj(libName)

foreach(cell libId~>cells

if(member("symbol" cell~>views~>name)  then

cv=dbOpenCellViewByType(libId~>name cell~>name "symbol" "" "a")
label0=if(member("[@cellName]" cv~>shapes~>theLabel) then

label0~>labelJustify~>value = "lowerLeft"
label0~>lHeight~>value = 0.1
printf("Done - cell \"%s\" \n" cv~>cellName)

)))

dbSave(cv)
dbClose(cv)

 )
)

;skill code end