skill code to place all symbol cells in a virtuoso lib to top level schematic cell

Hi All,

I was trying to create a top level schematic which has all the symbol of cells in a schematic. What I have is 

##########create a test schematic with inv symbol in it ###############

cv=dbOpenCellViewByType("sc33tps_v1" "test" "schematic" nil "a")

 cv1=dbOpenCellViewByType("sc33tps_v1" "inv"  "symbol")  
  schinst=dbCreateInst(cv cv1 nil list(0 0) "R0" 1)    

this code is working fine

#############################################################

now I want to place all the cell in "sc33tps_v1" lib in test schematic and I have 

cv=dbOpenCellViewByType("sc33tps_v1" "test" "schematic" nil "a")  
lib=ddGetObj("sc33tps_v1")
foreach (cell lib~>cells
  when(ddGetObj(lib~>name cell~>name "symbol")
      cv1=dbOpenCellViewByType(lib~>name cell~>name "symbol")   
      schinst=dbCreateInst(cv cv1 nil list(0 0) "R0" 1)    
)
)
 

this code is not working . Please help to let me know what is wrong ? 

thanks 

Nhumai