Smp (surface mount pad ) without via

Hai David kindly thanks for your reply and support  and one more thing now also some problem found.

Here the two smd are connected by trace but there is  no via in this  two pins i want to check fan out only here in this two smd pins has no fanout but it is not highlighting can you please check it.

Below is my final iteration of this code ( I removed highlighting single-pin nets )

procedure(Hilite_UnConnectedPins(@optional (SmdOnly nil))
let((NetPinCnt PinCnt PinList ViaList)
(PinCnt=0)
if(SmdOnly then
axlMsgPut("SMD only")
else
axlMsgPut("all pins")
)
foreach(net (axlDBGetDesign)->nets
(NetPinCnt = 0)
foreach(branch (net->branches)
(PinList = setof(c (branch->children) ((c->objType) == "pin")))
(ViaList = setof(c (branch->children) ((c->objType) == "via")))
(NetPinCnt = NetPinCnt + length(PinList))
; when(and(eq(1 length(PinList)) eq(0 length(ViaList)))
; if(SmdOnly then
; unless(car(PinList)->isThrough
; axlHighlightObject(car(PinList) t)
; PinCnt++
; )
; else
; axlHighlightObject(car(PinList) t)
; PinCnt++
; )
; )
when(eq(0 length(ViaList))
if(SmdOnly then
(ViaList = setof(c PinList ((c->isThrough) == t)))
when(eq(0 length(ViaList))
axlHighlightObject(PinList t)
(PinCnt=PinCnt+length(PinList))
)
else
when(eq(1 length(PinList))
axlHighlightObject(car(PinList) t)
PinCnt++
)
)
)
)
when(and(eq(1 NetPinCnt) SmdOnly)
axlDehighlightObject(PinList t)
PinCnt--
)
)
axlMsgPut("%d Pins Highlighted" PinCnt)
)
)

Thanks a lot david