How to dump out blockages into a file 

Hi all,

I want to dump out placement blockage (hard,soft,partial) into file is there any utility in encounter gui to do so,as we can do to dump out the marco place,By using save "place" utility in gui

and vice versa to dump routing blockages.

 So can any one guide me if there's any utility in GUI and even command based woul be good .

Regards,

Anurag

You can write them out in a DEF file:

defOutBySection -noComps -noNets -pBlockages -rBlockages myBlockages.def

pBlockages is the placement blockages (all kinds) and rBlockages is the routing blockages. 

HI Kari,

Thanks for the Command

But Partial Blockages are not being dumped ,I tried even loading the DEF file but the partial blockage are no where seen

This is a tcl command-based solution for dumping out the placement (including soft, partial & hard) /routing blockages from Encounter session:

################################################################################
# Procedure to save blockages into tcl command
# Usage: saveBlockages -type <placement | routing | all> -outFile <output_tcl_file>
################################################################################
proc saveBlockages {args} {

    global env

    # Get blockage type
    if {[regexp {\-type} $args]} {
 set blockageType [lindex $args [expr [lsearch $args -type] + 1]]
    }

    # Get output file
    if {[regexp {\-outFile} $args]} {
 set outfile [lindex $args [expr [lsearch $args -outFile] + 1]]
    }

    # Help
    set helpString "Usage : saveBlockages \
                                \-type <placement | routing | all> \
                                \-outFile <file_name> \
                                \-help"

    if {[regexp {\-help} $args] || $args == ""} {
        puts $helpString
        return 0
    }

    # Main code
    ############################################################ 

    set f [open $outfile w]

    # Placement blockages
    if {$blockageType == "placement" || $blockageType == "all"} {

 foreach pblkgType [dbGet -u top.fPlan.pBlkgs.type] {

     foreach obsPtr [dbGet -p top.fPlan.pBlkgs.type $pblkgType] {
  set obsName [dbGet $obsPtr.name]
  set box [exl [dbGet $obsPtr.boxes]]
  
  switch -- $pblkgType {

      "hard" {
   puts $f "createObstruct -box $box -name $obsName"
      }
      "partial" {
   set density [dbGet $obsPtr.density]
   puts $f "createDensityArea -name $obsName $box $density"
      }
      "soft" {
   set density [dbGet $obsPtr.density]
   puts $f "createDensityArea -name $obsName $box $density"
      }
  }
     }
 }

    }

    # Routing blockages
    if {$blockageType == "routing" || $blockageType == "all"} {
 
 foreach rBlkPtr [dbGet top.fPlan.rBlkgs] {
     set name [dbGet ${rBlkPtr}.name]
     set attr [dbGet ${rBlkPtr}.attr]
     set layer [dbGet ${rBlkPtr}.layer.name]
     foreach box [exl [dbGet ${rBlkPtr}.boxes]] {
  puts $f "createRouteBlk -box ${box} -layer ${layer} -name ${name}"
  
     }
 }
    }
   
    close $f
}

################################################################################
# Procedure to split the list
################################################################################
proc exl {singleList} {
        set mylist {}
        foreach item $singleList {
                set mylist [concat $mylist $item]
        }
        return $mylist
}