PAD on VIA.

Try the attached code. It's not very efficient but should give you an idea about where to start.

defun( DE_viaInPinList ()
let((vias, symSide, layer, pad, padPoly, viaInPinList, outPort)
axlSetFindFilter(?enabled '("noall", "invisible", "vias"), ?onButtons '("noall", "vias"))
axlAddSelectAll()
vias = axlGetSelSet()
foreach(sym, axlDBGetDesign() ->symbols
foreach(pin, setof(pin, sym ->pins, !pin ->isThrough)
symSide = if(sym ->isMirrored, "BOTTOM", "TOP")
layer = strcat("ETCH/", symSide)
pad = axlDBGetPad(pin, layer, "REGULAR")
when(pad ->figure
padPoly = car(axlPolyFromDB(pin, ?layer layer, ?padType 'REGULAR))
when(padPoly && exists(via, vias, axlGeoPointInShape(via ->xy, padPoly) && memv(layer, via ->startEnd))
viaInPinList = cons(list(symSide, pin ->xy), viaInPinList)
)
)
)
)
if(viaInPinList then
outPort = axlDMOpenFile("MISC", "ViaInPadReport.txt", "w")
foreach(side, '("TOP", "BOTTOM")
fprintf(outPort, "%s:\n", side)
foreach(pin, setof(pin, viaInPinList, car(pin) == side)
fprintf(outPort, "\t%L\n", cadr(pin))
)
)
axlDMClose(outPort)
axlUIViewFileCreate("ViaInPadReport.txt", "Via-in-Pad Report", nil, 20:30)
else
axlUIConfirm("No via-in-pad found")
)
))

Try the attached code. It's not very efficient but should give you an idea about where to start.

defun( DE_viaInPinList ()
let((vias, symSide, layer, pad, padPoly, viaInPinList, outPort)
axlSetFindFilter(?enabled '("noall", "invisible", "vias"), ?onButtons '("noall", "vias"))
axlAddSelectAll()
vias = axlGetSelSet()
foreach(sym, axlDBGetDesign() ->symbols
foreach(pin, setof(pin, sym ->pins, !pin ->isThrough)
symSide = if(sym ->isMirrored, "BOTTOM", "TOP")
layer = strcat("ETCH/", symSide)
pad = axlDBGetPad(pin, layer, "REGULAR")
when(pad ->figure
padPoly = car(axlPolyFromDB(pin, ?layer layer, ?padType 'REGULAR))
when(padPoly && exists(via, vias, axlGeoPointInShape(via ->xy, padPoly) && memv(layer, via ->startEnd))
viaInPinList = cons(list(symSide, pin ->xy), viaInPinList)
)
)
)
)
if(viaInPinList then
outPort = axlDMOpenFile("MISC", "ViaInPadReport.txt", "w")
foreach(side, '("TOP", "BOTTOM")
fprintf(outPort, "%s:\n", side)
foreach(pin, setof(pin, viaInPinList, car(pin) == side)
fprintf(outPort, "\t%L\n", cadr(pin))
)
)
axlDMClose(outPort)
axlUIViewFileCreate("ViaInPadReport.txt", "Via-in-Pad Report", nil, 20:30)
else
axlUIConfirm("No via-in-pad found")
)
))

Thank you so much dave.

Hai dave

It shows only fully filled vias in the pad but i need to show if it liitle bit touched in the pad  that also need to show.

Hi, try this  code

axlCmdRegister( "VOP" `VOP)
(defun VOP ()
axlShell("redisplay")
originalVisible = axlVisibleGet()
designName = axlCurrentDesign()
design_path = axlGetDrawingName()
design_unit = car(axlDBGetDesignUnits())
err_count = 0
All_syms = list()

;#### Open temp files to work on ####
writeOutFile = outfile("./Via_on_pad_report.log" "w")
timeperform = fileTimeModified("Via_on_pad_report.log")
fprintf(writeOutFile, "Design name: %s\n", design_path)
fprintf(writeOutFile, "%s %s\n\n", "Check Date: ", timeToString(timeperform))
fprintf(writeOutFile, "%s\n", "------------------------------------------------")
fprintf(writeOutFile, "%-8s %-8s %-18s\n\n", "Symbol", "Layer", "Drc Location")

foreach(sym, axlDBGetDesign()->symbols
sym_refdes = sym->refdes
Sym_side = if(sym->isMirrored, "BOTTOM", "TOP");end if
Sym_pins = sym->pins

axlVisibleDesign(nil)
;axlVisibleLayer(strcat("PIN/", Sym_side t))
axlVisibleLayer(strcat("VIA CLASS/", Sym_side) t)
;axlShell("redisplay")
axlSetFindFilter(?enabled '(NOALL VIAS) ?onButtons '(NOALL VIAS))
axlClearSelSet()
foreach(pin Sym_pins
pin_pad = axlDBGetPad(pin, strcat("ETCH/", Sym_side), "REGULAR")
pin_pad_bBox = pin_pad->bBox
pin_bBox_chk = list(axlMXYAdd(pin->xy car(pin_pad_bBox)) axlMXYAdd(pin->xy lastelem(pin_pad_bBox)))
data_in_box = axlGetSelSet(axlSingleSelectBox(pin_bBox_chk))
axlClearSelSet()
foreach(via data_in_box
Via_poly = car(axlPolyFromDB(via ?padType 'REGULAR))
Pin_poly = car(axlPolyFromDB(pin ?padType 'REGULAR))
AndPoly = car(axlPolyOperation(Via_poly Pin_poly 'AND))
if(AndPoly != nil then
err_count = err_count + 1
fprintf(writeOutFile, "%-8s %-8s %-L\n", sym_refdes, Sym_side, pin->xy)
);end if
);end foreach
);end foreach
);end foreach

; Close the file and wrap up
fprintf(writeOutFile,"Total error found: %d errors\n", err_count)
fprintf(writeOutFile, "%s\n", "END OF FILE")
close(writeOutFile)

axlVisibleSet(originalVisible)
axlShell("redisplay")
if(err_count > 0 then
axlUIViewFileCreate("Via_on_pad_report.log", "Via_on_pad_report" nil )
else
axlUIConfirm("No error found.")
if(isFile("Via_on_pad_report.log") == t then deleteFile("Universal_via_check.log"));end if
); end if
);end defun VOP

Luan.

Thanks for your reply.

Here i don't want the via outer layer overlap i want inter drill of via overlapped in the pad.