我正在「拾陆楼」和朋友们讨论有趣的话题，你⼀起来吧？

拾陆楼知识星球入口

 

genPinText text.rpt -cells [dbGet top.name]

set in [split [exec cat text.rpt] "\n"]

foreach line $in {

  lassign $line name x y layer cell 

  set pt_x [string trim [string range $x 2 end]]

  set pt_y [string trim [string range $y 2 end]]

  set layer_name [string trim [string range $layer 7 end]]

  switch -- [dbGet head.layers.direction] {
            Vertical   {set orientation R270}
            Horizontal {set orientation R0}
        }

  add_text -label $name -pt "$pt_x $pt_y " -layer $layer_name -height 0.1 -orient $orientation 

}

 

删除text使用如下命令:

dbDeleteObj [dbGet top.texts]