Changing footprint text size in entire library

After some time I'm back to this topic. I've not been able to figure this out after a bit of trying. Can anyone help me out?

Here is the code I have now, based upon what was provided by B Bruekers:

procedure(xxxSilkSizeUpdater()
pcre = pcreCompile(".DRA" 1)

; avoid confirmation during interactions
noconfirmStatus = axlGetVariable("NOCONFIRM")
axlSetVariable("NOCONFIRM", t)
findFilterEnabledList = axlGetFindFilter(t)
findFilterOnList = axlGetFindFilter()

done = 0

; get list of all footprints at the corporate library location
;footprintList = pcreMatchList(pcre getDirFiles(strcat(axlGetVariable("CDS_SITE") "/footprints")))
footprintList = pcreMatchList(pcre getDirFiles("."))

footprintListLength = length(footprintList)

foreach(footprint footprintList
axlMsgPut("Updating %s (%d/%d symbols processesed...)" footprint done++ footprintListLength)

if(axlOpenDesignForBatch(footprint "wf") then
;do change here
axlMsgPut("%s" footprint)

axlClearSelSet()
axlSetFindFilter(?enabled list("noall" "text") ?onButtons list("noall" "text"))
;axlMsgPut("%L" axlSelectByName("REFDES" "*" t))
axlMsgPut("%L" axlDBGetDesign()->prop->??)

;save and compile symbol
axlCompileSymbol()
else
axlUIConfirm(sprintf(nil "Could not open %s!" footprint) 'error)
)
)

axlSetVariable("NOCONFIRM", noconfirmStatus)
axlSetFindFilter(?enabled findFilterEnabledList ?onButtons findFilterOnList)
)

The intent would be that this is launched from an Allegro instance in the directory with all library footprints. It could also have a hard-coded path using $CDS_SITE.

It appears to work in that it opens each footprint would allow work to be done, but there are two issues:

1. Footprints which haven't been opened in a while still generate a blocking UI to update them. The NOCONFIRM variable nor opening in axlOpenDesignForBatch() in "wf" mode help here.

2. I haven't figured out how to grab just the ref des text. I'm sure I can figure this out, I just haven't gotten there yet.

My original idea was to use a command script to run through all files. Something like the following in a CMD file (we run Windows):

set noconfirm=t
for %%f IN (*.dra) DO start /wait allegro -product allegro_performance -s test_symbol.scr %%f

But that didn't seem fruitful so I posted here.

Any help?

I have done something similar several times over the years.

I found that the best way is to preempt the checks. To this end I have used code like this:

......

problem = "ignore"
and(
fileName = cadr(axlDMFileParts(file))
psmFile = strcat(psmPath, fileName, ".psm")
problem = "nopsm"
isFile(psmFile)
problem = "noopen"
axlOpenDesign(?design file, ?mode "wf")
problem = "noTxtChange"
refdesTxtdbid = car(AFn_findTypeObjects("TEXT", ?layers "REF DES/ASSEMBLY_TOP"))
!member(refdesTxtdbid ->textBlock, '("1", "2"))
txtRot = refdesTxtdbid ->rotation
(member(txtRot, '(0.0, 90.0)) || (non0rot = cons(sprintf(nil, "%2.1f degrees. %s", txtRot, file), non0rot)))
loc = refdesTxtdbid ->xy
hgt = axlGetParam(strcat("paramTextBlock:" refdesTxtdbid ->textBlock)) ->height
newTextdbid = TLU_assyTopRef(?returnObjId t)
newTextBlk = newTextdbid ->textBlock
newHgt = axlGetParam(strcat("paramTextBlock:" newTextBlk)) ->height
;problem = "tooFarToMove"
or(axlDistance(loc, newTextdbid ->xy) < 0.32
newTextdbid ->rotation != txtRot
and(
AFn_transformObject(newTextdbid, ?move axlMXYSub(loc, newTextdbid ->xy))
if(zerop(txtRot)
then AFn_transformObject(newTextdbid, ?move list(0.0, (hgt - newHgt) / 2.0))
else AFn_transformObject(newTextdbid, ?move list((newHgt - hgt) / 2.0, 0.0))
)
)
)

problem = "compiled"

problem = "nosave"
axlSaveDesign(?design file, ?mode "nocheck", ?noMru t)
problem = "nocompile"
psmFile = strcat(psmPathOut, cadr(axlDMFileParts(file)), ".psm")
axlCompileSymbol(?symbol psmFile, ?silent t, ?silentOnOverwrite t)
problem = "compiled"
)

....

Some of this code won't make sense to you but it gives the idea.

Thanks Dave! It looks like the sneaky stuff is in the AFn_findTypeObjects() function.