Via Overlapp

Hi,

Already Developed skill code via overlapped by via it checks only the through hole via in between layer's blind and buried vias if overlaps means its not showing I will attach the code below can anyone please update finding blind and buried vias if they overlapped.

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, tol)))
    when(closeObjs
      dupes = cons(sprintf(nil, "%s at %L %s %s clashes with %s at %L", axlPPrint(obj ->objType), obj ->xy, car(obj->startEnd), cadr(obj->startEnd), 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))
)