抽取PAD中心坐标与Label

procedure(pad_center()
	let((cv cvsel out shp shape padarea padcenter textName layerName xtext ytext xpad ypad)
		cv=geGetEditCellView()
		filename=strcat(cv~>cellName ".txt")
		out=outfile(filename)
		all_pad_layer = setof( tmp cv~>shapes tmp~>lpp==list("CB" "drawing")
		all_pad_label = setof( tmp cv~>shapes tmp~>lpp==list("CB" "label"&&tmp~>objType=="label")

		foreach(shp all_pad
			padarea = shp~>bBox
			padcenter = hiBoxCenter(shp~>bBox)
			xpad = car(padcenter)
			ypad = cadr(padcenter)
			padarea_x1 = xCoord(xCoord(padarea))
			padarea_y1 = yCoord(xCoord(padarea))
			padarea_x2 = xCoord(yCoord(padarea))
			padarea_y2 = yCoord(yCoord(padarea))
			i=1
			foreach(label all_pad_label
				xtext = xCoord(label~>xy)
				ytext = yCoord(label~>xy)
				when(xtext>padarea_x1&&xtext<padarea_x2&&ytext>padarea_y1&&ytext<padarea_y2
					textName = shape~>theLabel
					xpad=float(xpad)
					ypad=float(ypad)
					fprintf(out "%d\t%s\t%f\t%f\t\n" i textName xpad ypad)
					i++
				)	
			); foreach
		);foreach
		close(out)
	);
);
hiSetBindkey("Layout" "j" "pad_center()")

基本思想是：首先要flatten layout, 让CB,labe浮在顶层
将所有的PAD做成一个CELL，Label也全加上，打散全部，从PAD的某个相关层，抽取其中心坐标，如“CB”之类，首先取当前CELL所有的shapes,进行判断，是否是”CB”且是”drawing”,如果是则进行取其bBOX的值,这是一个区域，不管是什么形状的，其bBox都是一个表示矩形的左下、右上坐标的一个list。然后这个值可以通过hiBoxCenter来计算中心，然后输出其X与Y的值.然后利用padarea 这个list，用geSelectArea，去选择这个区域内的所有东西，这样进行所选形状遍历就可以选到Label，若是你的Label标的出了这个框就选不到了，选不到的当然是不规范的Label了。接下来就可取到Label的名字、层次、层次类型、X坐标、Y坐标，然后就可以输出了。

这也有许多可改进的地方，如：某个PAD没有Label或者是用其它不合适的层打的Label，可以进行输出警告（这个在检查BUMP的时候比较有用）。还有应用就是比较Label的XY是否与PAD的中心是一样的，这个要求有点变态，但对出LEF有好处。还有就是做一个图形界面。去选识别层，就不用修改程序了，变得更通用些吧！

大家可以发挥一下，其实可以不做CELL，也不用打散，直接在原来的总图cellview里，去遍历所有的CELL，一层一层往下找（当然限定一下找的范围会快很多，比如：Ins == ”*PAD*“），然后将取得的list传给geSelectArea，去选当前的Label，然后一起输出。

呵呵，我仅在这里抛砖欢迎大家拍玉~~~~~~~~~