How to convert All LVT Cells to HVT cells wise versa

How to convert All LVT Cells to HVT cells wise versa

proc lvttohvt {lvt cell}   {
          set a [get_flat_cells -filter "ref_name=~*LVT*]
          foreach_in_collection bb $a {
                    set cell [get_attribute $$bb ref_name]
                     regsub "LVT" $cell "HVT" hvtname
                     size_cell $bb $hvtname
                }
   }