Allegro利用Skill实现BGA封装的自动扇出功能

procedure(bga_fanout(RefDes)
	logFile = "./bga_fanout_debug.log"                  ;LogFile Used for Debug
	
	bga_fanout_version()								;Display the version
	notdone = t
	/*
	bga_fanout_popup = axlUIPopupDefine(nil (list		;Define the menu
					(list "Done" 'bga_fanout_done )
					(list "Cancel" 'bga_fanout_cancel))
					)
					*/
	;axlUIPopupSet(bga_fanout_popup) ;by lyn
	while(notdone
	bg_log = outfile(logFile)
	fprintf(bg_log "======== Bga Fanout Debug Message ========\n")
	axlClearSelSet()
	axlSetFindFilter(?enabled list("noall" "symbols") ?onButtons (list "noall" "symbols"))
	;axlSingleSelectPoint();
	;axlSelectByName("COMPONENT" "U187");自己选择位号
	axlSelectByName("COMPONENT" RefDes);
	SelBga = car(axlGetSelSet())	
	lowerLeftPin = nil
	lowerRightPin = nil
	upperLeftPin = nil
	upperRightPin = nil
	centerPoint = nil
	beginPoint = nil
	endPoint = nil
	isBga = t
	BgaSize = 0

	when(length(SelBga->pins) < 6
		isBga = nil
		fprintf(bg_log "The Device isn't Bga!\n")
	);end when
	
	when(SelBga && isBga
		fprintf(bg_log "%s\n" SelBga)
		fprintf(bg_log "Symbol name: %s\n\n" SelBga->name)
		;fprintf(bg_log "lowerLeftPin: (%P)\n" lowerLeftPin)
		;fprintf(bg_log "upperRightPin: (%s)\n" upperRightPin)
		pin_definition = car(SelBga->pins)->definition->name
		count_pin_name = 0
		pin_name_index = 0
		for(i 1 4
			temp_pin = nth(i SelBga->pins)
			when(temp_pin->isThrough == t
				isBga = nil
			);end when
			if(pin_definition == temp_pin->definition->name
				then
					count_pin_name = count_pin_name + 1
				else
					pin_name_index = i
			);end if
		);end for
		fprintf(bg_log "count_pin_name %d\n" count_pin_name)
		fprintf(bg_log "pin_name_index %d\n" pin_name_index)
		fprintf(bg_log "pin_definition: %s\n\n" pin_definition)
		when(count_pin_name < 3
			pin_definition = nth(pin_name_index SelBga->pins)->definition->name
		);end if
		fprintf(bg_log "pin_definition: %s\n" pin_definition)
		if(SelBga->isMirrored
			then
				pinLayer = "Etch/BOTTOM"
			else
				pinLayer = "Etch/TOP"
		);end if	
		
		;Compute the Symbol wether is Bga and the centerPoint			
		foreach(bga_pin SelBga->pins
			when(bga_pin->definition->name == pin_definition
				;initialize then Coordinate
				when(lowerLeftPin == nil
					lowerLeftPin = bga_pin->xy
					upperRightPin = bga_pin->xy
					lowerRightPin = bga_pin->xy
					upperLeftPin = bga_pin->xy
				);end when
				;fprintf(bg_log "Pin name: %s\n" bga_pin->name)
				;fprintf(bg_log "Pin's Net: %s\n" bga_pin->net->name)
				;fprintf(bg_log "Pin's Number: %s\n" bga_pin->number)
				;fprintf(bg_log "Pin's Coordinate: (%P)\n" bga_pin->xy)
				when(bga_pin->number == "C1"
					beginPoint = bga_pin->xy
				);end when
				when(bga_pin->number == "C2"
					endPoint = bga_pin->xy
				);end when
				when(xCoord(bga_pin->xy) <= xCoord(lowerLeftPin) && yCoord(bga_pin->xy) <= yCoord(lowerLeftPin)
					lowerLeftPin = bga_pin->xy
				)
				when(xCoord(bga_pin->xy) >= xCoord(upperRightPin) && yCoord(bga_pin->xy) >= yCoord(upperRightPin)
					upperRightPin = bga_pin->xy
				)
				when(xCoord(bga_pin->xy) >= xCoord(lowerRightPin) && yCoord(bga_pin->xy) <= yCoord(lowerRightPin)
					lowerRightPin = bga_pin->xy
				)
				when(xCoord(bga_pin->xy) <= xCoord(upperLeftPin) && yCoord(bga_pin->xy) >= yCoord(upperLeftPin)
					upperLeftPin = bga_pin->xy
				)			
				;fprintf(bg_log "Pin's definition: %s\n" bga_pin->definition->name)
				;fprintf(bg_log "Pin's ID: %s\n" bga_pin)	
				pinPadName = axlDBGetPad(bga_pin pinLayer "REGULAR")
				;fprintf(bg_log "Pin's pad figure: %s\n" pinPadName->figureName)	
				when(bga_pin->isThrough == t || pinPadName->figureName != "CIRCLE"
					isBga = nil
					axlUIWPrint(nil "- The Device isn't Bga!Please select again! -\n")
				);end when	
				fprintf(bg_log "\n")
			);end when
		);end foreach
		if(isBga
			then
				fprintf(bg_log "The Device is Bga!\n")
				when(xCoord(lowerLeftPin) > xCoord(upperLeftPin)
					lowerLeftPin = xCoord(upperLeftPin):yCoord(lowerLeftPin)
				);end when
				when(yCoord(lowerLeftPin) > yCoord(lowerRightPin)
					lowerLeftPin = xCoord(lowerLeftPin):yCoord(lowerRightPin)
				);end when
				when(xCoord(upperRightPin) < xCoord(lowerRightPin)
					upperRightPin = xCoord(lowerRightPin):yCoord(upperRightPin)
				);end when
				when(yCoord(upperRightPin) < yCoord(upperLeftPin)
					upperRightPin = xCoord(upperRightPin):yCoord(upperLeftPin)
				);end when
				fprintf(bg_log "lowerLeftPin: (%P)\n" lowerLeftPin)
				fprintf(bg_log "upperRightPin: (%P)\n" upperRightPin)
				fprintf(bg_log "lowerRightPin: (%P)\n" lowerRightPin)
				fprintf(bg_log "upperLeftPin: (%P)\n\n" upperLeftPin)
				centerPoint = xCoord(upperRightPin)-(xCoord(upperRightPin)-xCoord(lowerLeftPin))/2:yCoord(upperRightPin)-(yCoord(upperRightPin)-yCoord(lowerLeftPin))/2
				fprintf(bg_log "centerPoint: (%P)\n\n" centerPoint)
				
				;Get Bga Size(Absolute value)				
				BgaSize =  abs(xCoord(beginPoint) - xCoord(endPoint))/2
				fprintf(bg_log "xCoord: %f %f\n" xCoord(nth(6 SelBga->pins)->xy) xCoord(nth(7 SelBga->pins)->xy))
				when(BgaSize == 0 
					BgaSize =  abs(yCoord(beginPoint) - yCoord(endPoint))/2
					fprintf(bg_log "yCoord: %f %f\n" yCoord(nth(6 SelBga->pins)->xy) yCoord(nth(7 SelBga->pins)->xy))
					fprintf(bg_log "selected Pin: (%P) (%P)\n\n" nth(6 SelBga->pins)->xy nth(7 SelBga->pins)->xy)
				);end when
				fprintf(bg_log "BgaSize is : %f\n" BgaSize)
				
				;Create Clines And Vias
				;fanoutVia = car(axlUIDataBrowse('PADSTACK '(RETRIEVE_NAME) "Please Select A Via..." t)) ;Select the Via to Fanout
				fanoutVia="Via8d16";需要自己指定过孔，可从焊盘库中查找
				if(fanoutVia
					then
					/*
					bga_pin = car(SelBga->pins)
					when(bga_pin->definition->name == pin_definition && bga_pin->net->name != ""
								lineWidth = 6;axlCNSDesignValueGet(bga_pin->net "MIN_LINE_WIDTH")
								pinNet = bga_pin->net->name
								fanout_dir(centerPoint bga_pin->xy)
								linePath = list(bga_pin->xy xCoord(bga_pin->xy)+x*BgaSize:yCoord(bga_pin->xy)+y*BgaSize)
								axlDBCreateLine(linePath lineWidth pinLayer pinNet)
								axlDBCreateVia(fanoutVia cadr(linePath) pinNet)
								axlUIWPrint(nil "Fanout NET \"%s\" At %P" pinNet bga_pin->xy)
							);end when
					*/
						foreach(bga_pin SelBga->pins
							when(bga_pin->definition->name == pin_definition && bga_pin->net->name != ""
								lineWidth = 6;axlCNSDesignValueGet(bga_pin->net "MIN_LINE_WIDTH")
								pinNet = bga_pin->net->name
								fanout_dir(centerPoint bga_pin->xy)
								linePath = list(bga_pin->xy xCoord(bga_pin->xy)+x*BgaSize:yCoord(bga_pin->xy)+y*BgaSize)
								axlDBCreateLine(linePath lineWidth pinLayer pinNet)
								axlDBCreateVia(fanoutVia cadr(linePath) pinNet)
								axlUIWPrint(nil "Fanout NET \"%s\" At %P" pinNet bga_pin->xy)
							);end when
						);end foreach
						
						
						axlUIWPrint(nil "- BGA Fanout Success! -")
						notdone = nil
						axlCancelEnterFun()	
					else
						axlUIWPrint(nil "- BGA Fanout Failed! -")
						notdone = nil
						axlCancelEnterFun()	
				);end if
												
			else
				fprintf(bg_log "The Device isn't Bga!\n")
		)
	);end when
	axlDehighlightObject(SelBga)
	close(bg_log)
	;axlUIViewFileCreate(logFile "Bga Fanout Debug Message" nil)
	);end while
);end procedure

procedure(fanout_dir(centerPoint CurrentPoint)
	if(xCoord(centerPoint) >= xCoord(CurrentPoint)
		then
			x = -1
		else 
			x = 1		
	);end if
	if(yCoord(centerPoint) >= yCoord(CurrentPoint)
		then
			y = -1
		else 
			y = 1		
	);end if
);end procedure

procedure(bga_fanout_done()
	axlUIWPrint(nil "- Done -")
	notdone = nil
	axlCancelEnterFun()		
)

;Cancel Command
procedure(bga_fanout_cancel()
	axlUIWPrint(nil "- Cancel -")
	notdone = nil 
	axlCancelEnterFun()
		
)

procedure(bga_fanout_version()
	axlUIWPrint(nil "------ Bga Fanout V1.0 ---- Written By VivienLuo  ------")
	axlUIWPrint(nil "------ E-mail : admin@allegro-skill.com ------ Mar 16, 2013 ------")
);End Procedure