2 new questions

hi, all:

I have 2 new questions,

1. following is a script to get all the timing paths in SOCE after buildTimingGraph, but is doesn't work, pls help me! The bold characters is the main command.

proc getDesignPath { } {
 set FILE [open list.tmp w]
 dbForEachHeadPath [dbgHead] dpath {
  set type [dbObjType $dpath]
  if { $type == "dbcObjPath" } {
   puts $FILE "Path: [dbPathId $dpath]"
   dbForEachPathTerm $dpath termPtr {
    if { [dbObjType $termPtr] == "dbcObjTerm" } {
     set instPtr [dbTermInst $termPtr]
     puts $FILE "[dbInstName $instPtr]/[dbTermName $termPtr]"
    } else {
     puts $FILE "[dbFTermName $termPtr]"
    }
   }
  }
 }
 close $FILE
}

2. How to get all the via cells in SOCE, that means to get all the via definitions in LEF tech file within SOCE.

Thanks!