Automatically export CDL by skill

Dear sir:

 I want to write a code to export CDL.

Firstly,I use si -batch command,but it seems to take a long time to export every cdl netlist.

So,I write another code which seems executes faster as follow:

libName="lvs_test"
runDir="./lvs_run/"

if(!isContextLoaded("transUI") then
    loadContext(strcat(prependInstallPath("etc/context/transUI.cxt")))
)

cellList='("cell1" "cell2" "cell3" "cell4")

foreach(name cellList

;transCdlOutDisplay(transCdlOutForm)
transCdlOutForm->cdlOLibName->value = libName
transCdlOutForm->cdlOTopCell->value = name
transCdlOutForm->cdlOViewName->value = "schematic"
transCdlOutForm->cdlONetlistFile->value = strcat(name ".cdl")
transCdlOutForm->cdlORunDir->value = runDir
transCdlOutForm->cdlOResistorValue->value = 0.0
transCdlOutForm->cdlODiodeCheck->value = "area"
transCdlOutForm->cdlOCheckLDD->value =  t
hiFormDone(transCdlOutForm)
hiRegTimer("hiDBoxOK(simNetNoOp6)" 10)
hiRegTimer("hiDBoxOK(simNetNoOp5)" 11)
)

There is an other problem.As the celllist,I want to export cell1,cell2,cell3 and cell4 .But,the script just can export cell2,cell3,cell4,missing the cell1.Can anyone help me to find the problem in my script?

 Thank you very much!