Smp (surface mount pad ) without via

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)
)
)

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)
)
)

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