Smp (surface mount pad ) without via

Below is a simple function that will highlight unconnected pins 

procedure(Hilite_UnConnectedPins()
let((PinCnt)
(PinCnt=0)
foreach(net (axlDBGetDesign)->nets
foreach(branch (net->branches)
when(eq(1 length(branch->children))
foreach(child (branch->children)
when(((child->objType) == "pin")
axlHighlightObject(child t)
PinCnt++
)
)
)
)
)
axlMsgPut("%d Pins Highlighted" PinCnt)
)
)

Hai david thanks for your reply i want to highlight if the smd didn't have fan out 

This is fan out smd pin

In this image didt have a fanout if it like this means i want to highlight

For this can you share me the code please.

I added an option argument to the function to limit the highlighting to smd pins, below is the journal file entries from the test run:

Command > hilite_unconnectedpins t
SMD only
426 Pins Highlighted
110 Net(s) dehighlighted..
Command > hilite_unconnectedpins
all pins
528 Pins Highlighted
Command >

the updated code is shown below:

procedure(Hilite_UnConnectedPins(@optional (SmdOnly nil))
let((PinCnt)
(PinCnt=0)
if(SmdOnly then
axlMsgPut("SMD only")
else
axlMsgPut("all pins")
)
foreach(net (axlDBGetDesign)->nets
foreach(branch (net->branches)
when(eq(1 length(branch->children))
foreach(child (branch->children)
when(((child->objType) == "pin")
if(child->isThrough then
unless(SmdOnly
axlHighlightObject(child t)
PinCnt++
)
else
axlHighlightObject(child t)
PinCnt++
)
)
)
)
)
)
axlMsgPut("%d Pins Highlighted" PinCnt)
)
)axlCmdRegister( "Hilite_UnConnectedPins" 'Hilite_UnConnectedPins ?cmdType "general")

Hai david thanks for your reply but some smd pins are not showing.

Here in this image it has a branch but didn't have an via it is not highlighting  i want to check fanout but it is not showing can you please re correct the code please.

OK, below is the 3rd iteration of this code:

procedure(Hilite_UnConnectedPins(@optional (SmdOnly nil))
let((PinCnt PinList ViaList)
(PinCnt=0)
if(SmdOnly then
axlMsgPut("SMD only")
else
axlMsgPut("all pins")
)
foreach(net (axlDBGetDesign)->nets
foreach(branch (net->branches)
(PinList = setof(c (branch->children) ((c->objType) == "pin")))
(ViaList = setof(c (branch->children) ((c->objType) == "via")))
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++
)
)
)
)
axlMsgPut("%d Pins Highlighted" PinCnt)
)
)