How to find if Padstack is used or not?

Below is a simple skill procedure that counts the padstack usage on symbol definitions & nets, then reports any padstacks that are not used

procedure(PadStackUsage()
    let((PadTable)
        (PadTable = makeTable("PadTable" nil))
        foreach(pad ((axlDBGetDesign)->padstacks)
            (PadTable[pad->name] = 0)
        )
        foreach(symdef (axlDBGetDesign()->symdefs)
            foreach( pin symdef->pins
                (PadTable[pin->name] = add1(PadTable[pin->name]))
            )
        )
        foreach(net ((axlDBGetDesign)->nets)
            foreach(branch (net->branches)
                foreach(child (branch->children)
                    if(((child->objType) == "pin") || ((child->objType) == "via") then
                        (PadTable[child->name] = add1(PadTable[child->name]))
                    )
                )
            )
        )
        foreach(name PadTable
            when(eq(PadTable[name] 0) axlMsgPut("padstack %s not used" name))
            remove(name PadTable)
        )
    )
)

Thanks.
A question why do we have to use symdef->pins and then pins which are on nets?

I had programmatically created a new padstack(using make_axlPadstack) which is not on net or part of symbol definition.

Hence this code was not able to find those padstacks.

I used following code

;checks if given incheckPadstackName  is to be checked for usage or all padstacks

(defun allpadstacks (@optional (incheckPadstackName nil))
(let (vis_list pin_list padstacklist pad_name noDBId key)
vis_list = axlVisibleGet()
axlVisibleDesign(nil)
axlVisibleLayer("PIN" t)
axlVisibleLayer("VIA CLASS" t)

axlClearSelSet()
axlSetFindFilter(?enabled list("noall" "pins" "vias")
?onButtons list("noall" "pins" "vias"))
axlAddSelectAll()
pin_list = axlGetSelSet()
axlVisibleSet(vis_list) ;restore design visibility
axlVisibleUpdate(t)
axlClearSelSet()
padstacklist=makeTable("atable1" nil)

foreach(pin_db pin_list ;go thru layout pin list

padstack_db = pin_db->definition ;Extract PadstackID from pinID
pad_name=padstack_db->name ;Extract Padstack Name from PadstackID
padstacklist[pad_name]=pad_name ;add to padstacklist table

);end foreach

(if incheckPadstackName && !padstacklist[incheckPadstackName] then
printf("Padstack %L is not used\n" incheckPadstackName)
else
allPadstacks=axlDBGetDesign()->padstacks
allPadstacksNameList=nil

noDBId=nil
(foreach curPadstack allPadstacks
key=curPadstack->name
if(!padstacklist[key] then
printf("Adding key to noDBId %L\n" key)
noDBId=cons(key noDBId)
)
)
)
);let
);end of defun allpadstacks