align_sym.il

ALLEGRO SKILL SAMPLE CODE

			cmpdata=cons(tcmpname cmpdata)
			ocmpdata = cons( cmpdata ocmpdata)
			ocmpmir = cons( tcmpmir ocmpmir)
			olocat = cons( tlocat olocat)
			ocmprot = cons( tcmprot ocmprot)
			nlocat=nil
			plocat = nil
			npinl = nil
			axlMsgPut("%L " npinl)
			;-------------define the new vertical orientation
			if( _ASFormData->pin == t then
				r = 1
				npinl=nthelem( i cmpgrp)->pins
				while( nthelem( r npinl) != nil
					if( nthelem( r npinl)->number == "1" then
						plocat= nthelem( r npinl)->xy
						nlocat=cons(nthelem( 2 tlocat) nlocat)
						voffs = (nthelem( 1 tlocat) - nthelem(1 plocat))
						nlocat=cons(( car(pnloc) + voffs) nlocat)
					)
					++r
				)
			else;
				nlocat=cons(nthelem( 2 tlocat) nlocat)
				nlocat=cons(nthelem( 1 locat) nlocat)
			)
			;-------------delete present stuff
			z = 1
			setq( pindat nthelem( i cmpgrp)->pins)
			while( nthelem( z pindat) != nil
				h=1
				setq(pinsel nthelem( z pindat)->branch->children)
				while( nthelem( h pinsel) != nil
					if( nthelem( h pinsel)->objType == "via" then
						dellst = cons( nthelem( h pinsel) dellst)
					)
					if( nthelem( h pinsel)->objType == "path" then
					dellst = cons( nthelem( h pinsel) dellst)
					)
					++h
				);endwhile
				axlDeleteObject(dellst)
				dellst = nil
				++z
			);endwhile
			axlDehighlightObject(nthelem( i cmpgrp))
			axlDeleteObject(nthelem( i cmpgrp))
			if( _ASFormData->pin == t then
				r = 1
				while( nthelem( r npinl) != nil
					axlDBRefreshId( nthelem( r npinl))
					++r
				);end-while
			)
			;-------------add newer symbol
			tmpnew = cons( car(axlDBCreateSymbol( cmpdata nlocat tcmpmir tcmprot)) tmpnew)
		);endif
		++i
	);endwhile
	axlDehighlightObject( elem)
	setq( elem nil)
	setq( grsel nil)
	setq( cmpgrp nil)
);end-prog
);end-defun
;-------------------relocate Hoizontal position ----------------------
	
(defun _ASMoveHorzComp (cmpgrp)
(prog ()
	i = 1
	tmpnew= nil
	ocmpdata=nil
	ocmpmir=nil
	ocmprot=nil
	olocat=nil
	while( nthelem( i cmpgrp) != nil
		if( nthelem( i cmpgrp)->refdes != cmpid then
			cmpdata=nil
			setq(tlocat nthelem( i cmpgrp)->xy)
			setq(tcmpid nthelem( i cmpgrp)->refdes)
			setq(tcmpname nthelem( i cmpgrp)->name)
			setq(tcmptype nthelem( i cmpgrp)->type)
			setq(tcmprot nthelem( i cmpgrp)->rotation)
			setq(tcmpmir nthelem( i cmpgrp)->isMirrored)
			cmpdata=cons(tcmpid cmpdata)
			cmpdata=cons(tcmptype cmpdata)
			cmpdata=cons(tcmpname cmpdata)
			ocmpdata = cons( cmpdata ocmpdata)
			ocmpmir = cons( tcmpmir ocmpmir)
			olocat = cons( tlocat olocat)
			ocmprot = cons( tcmprot ocmprot)
			nlocat=nil
			;-------------define the new horizontal orientation
			if( _ASFormData->pin == t then
				r = 1
				setq( npinl nthelem( i cmpgrp)->pins)
				while( nthelem( r npinl) != nil
					if( nthelem( r npinl)->number == "1" then
						setq( plocat nthelem( r npinl)->xy)
						voffs= nthelem( 2 tlocat) - nthelem(2 plocat)
						nlocat=cons( ( cadr(pnloc) + voffs ) nlocat)
						nlocat=cons( nthelem( 1 tlocat) nlocat)
					);endif
					++r
				);endwhile
			else
				nlocat=cons(nthelem( 2 locat) nlocat)
				nlocat=cons(nthelem( 1 tlocat) nlocat)
			);endif
			;-------------delete present stuff
			z = 1
			setq( pindat nthelem( i cmpgrp)->pins)
			while( nthelem( z pindat) != nil
				h=1
				setq(pinsel nthelem( z pindat)->branch->children)
				while( nthelem( h pinsel) != nil
					if( nthelem( h pinsel)->objType == "via" then
						dellst = cons( nthelem( h pinsel) dellst)
					)
					if( nthelem( h pinsel)->objType == "path" then
						dellst = cons( nthelem( h pinsel) dellst)
					)
					++h
				)
				axlDeleteObject(dellst)
				dellst = nil
				++z
			)
			axlDehighlightObject(nthelem( i cmpgrp))
			axlDeleteObject(nthelem( i cmpgrp))
			if( _ASFormData->pin == t then
				r = 1
				while( nthelem( r npinl) != nil
					axlDBRefreshId( nthelem( r npinl))
					++r
				);end-while
			)
			;-------------add newer symbol
			tmpnew = cons( car(axlDBCreateSymbol( cmpdata nlocat tcmpmir tcmprot)) tmpnew)
		);endif
		++i
	);endwhile
	axlDehighlightObject( elem)
	setq( elem nil)
	setq( grsel nil)
);end-prog
);end-defun

;-------------------Parameter form data ------------------
defun( _ASInitParmForm  () ; 
(prog ()
(let ( form)
	form = axlFormCreate( (gensym) "align_sym.form" '(se outer) '_ASParmCallBk t )
	_ASFormPtr = form
	if( ( _ASFormData == nil ) then
		setq( _ASFormData  t)
		(axlFormBuildPopup form "class" '(("Any" "Any") ("IC" "IC") ("IO" "IO") ("DISCRETE" "DISCRETE")))
		(axlFormSetField form "class" "Any")
		putprop( _ASFormData  "Any" 'class)
		(axlFormSetField form "horizontal" t) 
		putprop( _ASFormData t 'horizontal) 
		(axlFormSetField form "vertical" nil) 
		putprop( _ASFormData nil 'vertical) 
		(axlFormSetField form "pin" nil) 
		putprop( _ASFormData nil 'pin) 
		(axlFormSetField form "origin" t) 
		putprop( _ASFormData t 'origin) 
		(axlFormSetField form "top" t) 
		putprop( _ASFormData t 'top) 
		(axlFormSetField form "bottom" nil) 
		putprop( _ASFormData nil 'bottom) 
		(axlFormSetField form "both" nil) 
		putprop( _ASFormData nil 'both) 
		(axlFormSetField form "group" t) 
		putprop( _ASFormData t 'group) 
		(axlFormSetField form "window" nil) 
		putprop( _ASFormData nil 'window) 
		(axlFormSetField form "tolerance" nil) 
		putprop( _ASFormData nil 'tolerance) 
		(axlFormSetField form "tol" 250.000 )
		putprop( _ASFormData 250.000 'tol) 
	axlFormDisplay( form)
	);end-if
);end-let
);end-prog
);end-defun

;---------------Form Call Back-----------------------------------------------
defun( _ASParmCallBk (form)
 case( get(_ASFormPtr 'curField)
	( "class" putprop( _ASFormData get(_ASFormPtr 'curValue) 'class))
	( "horizontal" putprop( _ASFormData get(_ASFormPtr 'curValue) 'horizontal))	
	( "vertical" putprop( _ASFormData get(_ASFormPtr 'curValue) 'vertical))	
	( "pin" putprop( _ASFormData get(_ASFormPtr 'curValue) 'pin))	
	( "origin" putprop( _ASFormData get(_ASFormPtr 'curValue) 'origin))	
	( "top" putprop( _ASFormData get(_ASFormPtr 'curValue) 'top))	
	( "bottom" putprop( _ASFormData get(_ASFormPtr 'curValue) 'bottom))	
	( "both" putprop( _ASFormData get(_ASFormPtr 'curValue) 'both))	
	( "group" putprop( _ASFormData get(_ASFormPtr 'curValue) 'group))	
	( "window" putprop( _ASFormData get(_ASFormPtr 'curValue) 'window))	
	( "tolerance" putprop( _ASFormData get(_ASFormPtr 'curValue) 'tolerance))	
	( "tol" putprop( _ASFormData get(_ASFormPtr 'curValue) 'tol))	
	( "done" _ASDone() )
	( "cancel"  _ASCancel() )
);case
);end-defun
;--------------- Pop up while selecting but not by group --------------------
defun( _ASPopUpA ()
	popupA = axlUIPopupDefine( nil
			(list (list "Done" '_ASDone)
				(list "Oops" '_ASoops)
				(list "Cancel" '_ASCancel)))
	axlUIPopupSet( popupA )
);end-defun
;--------------- Pop up for group selection --------------------------------
defun( _ASPopUpB ()
	popupB = axlUIPopupDefine( nil
		(list (list "Complete" '_AScomplete)
			(list "Oops" '_ASoops)
			(list "Cancel" '_ASCancel)))
	axlUIPopupSet( popupB )
);end-defun
;--------------- Cancel Call--------------------------------
defun( _ASCancel ()
(prog ()
	i=1
	pindat = nil
	pinsel = nil
	dellst = nil
	while( nthelem( i tmpnew) != nil
		z = 1
		setq( pindat nthelem( i tmpnew)->pins)
		while( nthelem( z pindat) != nil
			h=1
			setq(pinsel nthelem( z pindat)->branch->children)
			while( nthelem( h pinsel) != nil
				if( nthelem( h pinsel)->objType == "via" then
					dellst = cons( nthelem( h pinsel) dellst)
				)
				if( nthelem( h pinsel)->objType == "path" then
					dellst = cons( nthelem( h pinsel) dellst)
				)
				++h
			)
			axlDeleteObject(dellst)
			dellst = nil
			++z
		);endwhile
		axlDeleteObject(nthelem( i tmpnew))
		if( _ASFormData->pin == t then
			r = 1
			while( nthelem( r npinl) != nil
				axlDBRefreshId( nthelem( r npinl))
				++r
			);end-while
		)
		++i
	);end-while
	i = 1
	while( nthelem( i ocmpdata) != nil
			axlDBCreateSymbol( 
			nthelem(i ocmpdata)
			nthelem(i olocat) 
			nthelem(i ocmpmir) 
			nthelem(i ocmprot)
			)
			++i
	);end-while
	elem = nil
	cmpgrp = nil
	_ASDone()
);end-prog
);endfun
;----------------- DONE Call--------------------------------
defun( _ASDone ()
(prog ()
	setq( grsel t)
	if( elem != nil then axlDehighlightObject( elem))
	if( cmpgrp != nil then axlDehighlightObject( cmpgrp))
	setq( grsel t)
	setq( fini t)
	if(isFile("align_sym.form") then
		deleteFile("align_sym.form")
	)
	setq( elem nil)
	setq( cmpgrp nil)
	axlFormClose(_ASFormPtr)
	axlCancelEnterFun()
	axlClearSelSet()
	axlCloseFindFilter()
	axlUIPopupSet( nil)
)
);end-fun
;--------------- Complete Picks ----------------------------
defun( _AScomplete ()
(prog ()
	setq( grsel t)
	axlCancelEnterFun()
	_ASPopUpA()
	setq( efound nil)
)
);end-defun
;--------------- Oops command-------------------------------
defun( _ASoops ()
(prog ()
	if( cmpgrp != nil then
		axlDehighlightObject( car( cmpgrp))
		cmpgrp = cdr(cmpgrp)
		good = nil
		gelem = nil
	else
		axlDehighlightObject( elem)
		elem = nil
		efound = nil
	);end-if
	if( elem == nil then axlMsgPut( "Nothing In Buffer To Oops."))
	axlCancelEnterFun()
	return( cmpgrp)
);endprog
);end-defun		
;--------------- initialize variables -------------------
defun( _ASInitVar ()
(prog ()
elem = nil
mpinl = nil
pnloc = nil
plocat = nil
mlocat = nil
gelem = nil
dellst = nil
pindat = nil
pinsel = nil
tmpnew = nil
ocmpdata=nil
ocmpmir=nil
ocmprot=nil
olocat=nil
_ASFormData = nil
_ASFormPtr = nil
fini = nil
tol = 0
axlUIPopupSet( nil)
fini = nil
cmpgrp = nil
);end-prog
);end-defun
;-----------------create form file -------------
defun( _ASCreateFormFile ()
	
	frmfle = outfile("align_sym.form")
	fprintf( frmfle "FILE_TYPE=FORM_DEFN VERSION=2\nFORM\nFIXED\n")
	fprintf( frmfle "PORT 67 13\nHEADER \"Component Alignment Form\"\n")
	fprintf( frmfle "POPUP <CURSPOP>\"Any\"\"1\",\"IC\"\"2\",\"IO\"\"3\",\"DISCRETE\"\"4\".\n")
	fprintf( frmfle "POPUP <PRINTP>\"to File\"\"0\",\"to Printer\"\"1\",\"to Script\"\"2\".\n")
	fprintf( frmfle "\nTILE\n\n")
	fprintf( frmfle "TEXT \"Class:\"\nTLOC 32 18\nTGROUP \"Select Mode\"\nENDTEXT\n")

	fprintf( frmfle "FIELD top\nFLOC 3 12\n FGROUP\"Alignment Layer\"\nCHECKLIST\"Top\" \"alg\"\n ENDFIELD\n\n")
	fprintf( frmfle "FIELD bottom\nFLOC 3 14\nFGROUP \"Alignment Layer\"\nCHECKLIST \"Bottom\" \"alg\"\nENDFIELD\n\n")
	fprintf( frmfle "FIELD both\nFLOC 3 16\nFGROUP \"Alignment Layer\"\nCHECKLIST \"Both\" \"alg\"\nENDFIELD\n\n")
	fprintf( frmfle "FIELD horizontal\nFLOC 3 5\nFGROUP \"Direction\"\nCHECKLIST \"Horizontal\" \"dirg\"\nENDFIELD\n\n")
	fprintf( frmfle "FIELD vertical\nFLOC 3 7\nFGROUP \"Direction\"\nCHECKLIST \"Vertical\" \"dirg\"\nENDFIELD\n\n")
	fprintf( frmfle "FIELD origin\nFLOC  35 7\nFGROUP \"Alignment Point\" \nCHECKLIST \"Origin\" \"alpg\"\nENDFIELD\n\n")
	fprintf( frmfle "FIELD pin\nFLOC  35 5\nFGROUP \"Alignment Point\" \nCHECKLIST \"Pin 1\" \"alpg\"\nENDFIELD\n\n")
	fprintf( frmfle "FIELD group\nFLOC  25 12\nFGROUP \"Select Mode\"\nCHECKLIST \"Group\" \"slmg\"\nENDFIELD\n\n")
	fprintf( frmfle "FIELD window\nFLOC  25 14\nFGROUP \"Select Mode\"\nCHECKLIST \"Window\" \"slmg\"\nENDFIELD\n\n")
	fprintf( frmfle "FIELD tolerance\nFLOC  25 16\nFGROUP \"Select Mode\"\nCHECKLIST \"Tolerance\" \"slmg\"\nENDFIELD\n\n")
	fprintf( frmfle "FIELD tol\nFLOC  40 16\nFGROUP \"Select Mode\"\nREALFILLIN 10 10\n DECIMAL 4\nENDFIELD\n\n")
	fprintf( frmfle "FIELD class\nFLOC 40 18\nFGROUP \"Select Mode\"\nENUMSET 12\nPOP \"CURSPOP\"\nENDFIELD\n\n")
	fprintf( frmfle "FIELD done\nFLOC 2 22\n MENUBUTTON \"Done\" 9 3\nENDFIELD\n\n")
	fprintf( frmfle "FIELD print\nFLOC 28 22\n MENUBUTTON \"Print\" 9 3\n POP \"PRINTP\"\nENDFIELD\n\n")
	fprintf( frmfle "FIELD cancel\nFLOC 55 22\n MENUBUTTON \"Cancel\" 9 3\nENDFIELD\n\n")
 
	fprintf( frmfle "GROUP \"Alignment Layer\"\nGLOC 2 10\nGSIZE 20 11\nENDGROUP\n\n")
	fprintf( frmfle "GROUP \"Direction\"\nGLOC 2 2\nGSIZE 30 8\nENDGROUP\n\n")
	fprintf( frmfle "GROUP \"Alignment Point\"\nGLOC 34 2\nGSIZE 30  8\nENDGROUP\n")
	fprintf( frmfle "GROUP \"Select Mode\"\nGLOC 24 10\nGSIZE 40 11\nENDGROUP\n\n")
	fprintf( frmfle "\nENDTILE\n\nENDFORM\n")
	close(frmfle)
);end-defun