Any Way to identify double hits (Via)?

defun( getDuplicateHoles (objs @key (tol axlMKSConvert(0.2 "mm")))
 let((obj, loc, closeObjs, dupes, p)
  while(objs
    obj = car(objs), objs = cdr(objs), loc = obj ->xy
    closeObjs = setof(o, objs, and((car(o ->startEnd) == car(obj ->startEnd) || cadr(o ->startEnd) == cadr(obj ->startEnd)), samePoint(o ->xy, loc)))
    when(closeObjs
      dupes = cons(sprintf(nil, "%s at %L clashes with %s at %L", axlPPrint(obj ->objType), obj ->xy, buildString(unique(closeObjs ~>objType), ", "), closeObjs ~>xy), dupes)
    )
  )
  if(dupes then
    p = axlDMOpenFile("MISC", "duplicateHoles.txt", "w")
    fprintf(p, "Duplicate holes:\n\n")
    foreach(dupe, dupes, fprintf(p, "%s.\n", dupe))
    axlDMClose(p)
    axlUIViewFileCreate("duplicateHoles.txt", "Duplicate holes", nil)
   else
    println("No duplicates found.")
  )
  dupes
))

defun( same (x1, x2 @optional tolp, tolm)
  unless(tolp, tolp = expt(10, -2 - cadr(axlDBGetDesignUnits())))
  cond(
    (!x1 && !x2, t); Both are nil
    (!x1 || !x2, nil) ; One, and only one, is nil
    (!tolm && abs(x1 - x2) > tolp, nil)
    (tolm && x1 - x2 > tolp, nil)
    (tolm && x2 - x1 > tolm, nil)
    (t, t)
  )
)

defun( samePoint (pt1, pt2, @optional tolp, tolm)
  unless(tolp, tolp = expt(10, -2 - cadr(axlDBGetDesignUnits())))
  and(same(car(pt1), car(pt2), tolp, tolm), same(cadr(pt1), cadr(pt2), tolp, tolm))
)

defun( getDuplicateHoles (@optional netName)
 let((oldSetData, holeObjects)
  oldSetData = list(axlGetSelSet(), axlGetFindFilter(nil), axlGetFindFilter(t))
  axlClearSelSet()
  axlSetFindFilter(?enabled '("noall", "pins", "vias", "invisible"), ?onButtons '("noall", "pins", "vias"))
  axlAddSelectAll()
  holeObjects = setof(obj, axlGetSelSet(), obj ->isThrough)
  when(netName, holeObjects = setof(obj, holeObjects, obj ->net ->name == upperCase(netName)))
  axlSetFindFilter(?enabled cons("noall", cadr(oldSetData)) ?onButtons cons("noall", caddr(oldSetData)))
  axlSingleSelectObject(car(oldSetData))
  getDuplicateObjects(holeObjects)
))

defun( getDuplicateObjects (objs @key (tol axlMKSConvert(0.2 "mm")))
 let((obj, loc, closeObjs, dupes, p)
  while(objs
    obj = car(objs), objs = cdr(objs), loc = obj ->xy
    closeObjs = setof(o, objs, and((car(o ->startEnd) == car(obj ->startEnd) || cadr(o ->startEnd) == cadr(obj ->startEnd)), samePoint(o ->xy, loc)))
    when(closeObjs
      dupes = cons(sprintf(nil, "%s at %L clashes with %s at %L", axlPPrint(obj ->objType), obj ->xy, buildString(unique(closeObjs ~>objType), ", "), closeObjs ~>xy), dupes)
    )
  )
  if(dupes then
    p = axlDMOpenFile("MISC", "duplicateHoles.txt", "w")
    fprintf(p, "Duplicate holes:\n\n")
    foreach(dupe, dupes, fprintf(p, "%s.\n", dupe))
    axlDMClose(p)
    axlUIViewFileCreate("duplicateHoles.txt", "Duplicate holes", nil)
   else
    println("No duplicates found.")
  )
  dupes
))

defun( same (x1, x2 @optional tolp, tolm)
  unless(tolp, tolp = expt(10, -2 - cadr(axlDBGetDesignUnits())))
  cond(
    (!x1 && !x2, t); Both are nil
    (!x1 || !x2, nil) ; One, and only one, is nil
    (!tolm && abs(x1 - x2) > tolp, nil)
    (tolm && x1 - x2 > tolp, nil)
    (tolm && x2 - x1 > tolm, nil)
    (t, t)
  )
)

defun( samePoint (pt1, pt2, @optional tolp, tolm)
  unless(tolp, tolp = expt(10, -2 - cadr(axlDBGetDesignUnits())))
  and(same(car(pt1), car(pt2), tolp, tolm), same(cadr(pt1), cadr(pt2), tolp, tolm))
)

Someone owes me a beer!

Thanks Dave! I will ship you a case. Name your brand :)

I will look closer as to why the report only finds pins that have the exact same xy and not ones that are slightly overlapped. Vias are also not found, but it is a tremendous start!

Much appreciated!

Free stuff always has bugs;)

I'd forgotten the tolerance. Here's the corrected function: