I can't see your jpeg but I am assuming that you already have a form with the appropriately named fields.
Here's some (unverified) code to get you going:
defun( Eddie_stripJviaKO (formFile)
let((form, symbols, fieldName)
form = axlFormCreate(gensym(), formFile, nil, 'Eddie_stripJviaKO_callBack, nil)
; 1. Run command to look for the Jconnectors (J01, J02...J80) on a brd file.
symbols = setof(s, axlSelectByName("REFDES", "J??", t), rexMatchp("J[0-8][0-9]", s ->refdes))
for(i, 1, 80
fieldName = strcat("J", substring(sprintf(nil, "0%d", i), -2))
if(exists(s, symbols, s ->refdes == fieldName) then
; 2. Place a checkmark on the checklist box identfying the Jconnectors found.
axlFormSetField(form, fieldName, t)
axlFormSetFieldEditable(form, fieldName, t)
; 3. Deactivate (grayed out) checkbox of Jconnectors not found.
axlFormSetField(form, fieldName, nil)
axlFormSetFieldEditable(form, fieldName, nil)
defun( Eddie_stripJviaKO_callBack (form)
; 4. Run a command to delete the Via KO Shape on the Jconnectors found (using a known x-y location). -- Use Apply to run the delete command.
foreach(field, setof(f, form ->fields, rexMatchp("J[0-8][0-9]", f) && axlFormGetField(form, f))
symbol = car(axlSelectByName("REFDES", field, t))
axlDeleteObject(setof(shp, symbol ->children, shp ->layer == strcat("VIA KEEPOUT/", if(symbol ->isMirrored, "BOTTOM", "TOP"))))
; 5. Click OK button to finish/close the UI checklist form.