Extract Pads in PadStack

I'm trying to get a list of pads from the padstack. Unforntunately when I run this on a top surface mount pad I get a pad for all the layers in the design even though the pad exists only on the top. Any ideas?  Looks like some others are trying to do the same thing.

defun( ExportSelect ()
 let((segs selectbox cl_list netdata psxy paddbid pslist padlayer )
    axlClearSelSet()
    axlSetFindFilter(?enabled list("noall" "clines" "vias" "pins")
                     ?onButtons list("noall" "clines" "vias" "pins"))
    selectbox = axlSingleSelectBox()
    ;Run if something is selected
    if( selectbox != nil then
     netdata = axlGetSelSet()
     foreach( sdbid netdata
     case( sdbid->objType
      ("path" cl_list = cons(sdbid cl_list))
      ("pin"
       psxy = sdbid->xy
       paddbid = sdbid->definition
       pslist = paddbid->pads
       foreach(pad pslist
        padlayer = pad->layer
        psdtype = pad->type
        sprintf(padstr "%s,%s,%s,%L" paddbid psdtype padlayer psxy)
        println(padstr)
       )
      )
      ("via" via = (sdbid->name))
     )
    )
    ;Write the Cline segment file in "Show Element" format
    axlShowObjectToFile(cl_list "segs.txt")
  )
   axlClearSelSet()
   axlDehighlightObject(netdata)
 )
)

 Here is the output from a surface mount top pad...

"dbid:153548140,REGULAR,PIN/SOLDERMASK_TOP,(413.9291 8220.0)"
"dbid:153548140,REGULAR,PIN/SOLDERMASK_BOTTOM,(413.9291 8220.0)"
"dbid:153548140,REGULAR,PIN/PASTEMASK_TOP,(413.9291 8220.0)"
"dbid:153548140,REGULAR,PIN/PASTEMASK_BOTTOM,(413.9291 8220.0)"
"dbid:153548140,REGULAR,PIN/FILMMASKTOP,(413.9291 8220.0)"
"dbid:153548140,REGULAR,PIN/FILMMASKBOTTOM,(413.9291 8220.0)"
"dbid:153548140,REGULAR,ETCH/TOP,(413.9291 8220.0)"
"dbid:153548140,THERMAL,ETCH/TOP,(413.9291 8220.0)"
"dbid:153548140,ANTI,ETCH/TOP,(413.9291 8220.0)"
"dbid:153548140,REGULAR,ETCH/GND,(413.9291 8220.0)"
"dbid:153548140,THERMAL,ETCH/GND,(413.9291 8220.0)"
"dbid:153548140,ANTI,ETCH/GND,(413.9291 8220.0)"
"dbid:153548140,REGULAR,ETCH/INNER1,(413.9291 8220.0)"
"dbid:153548140,THERMAL,ETCH/INNER1,(413.9291 8220.0)"
"dbid:153548140,ANTI,ETCH/INNER1,(413.9291 8220.0)"
"dbid:153548140,REGULAR,ETCH/VCC,(413.9291 8220.0)"
"dbid:153548140,THERMAL,ETCH/VCC,(413.9291 8220.0)"
"dbid:153548140,ANTI,ETCH/VCC,(413.9291 8220.0)"
"dbid:153548140,REGULAR,ETCH/VC2,(413.9291 8220.0)"
"dbid:153548140,THERMAL,ETCH/VC2,(413.9291 8220.0)"
"dbid:153548140,ANTI,ETCH/VC2,(413.9291 8220.0)"
"dbid:153548140,REGULAR,ETCH/INNER2,(413.9291 8220.0)"
"dbid:153548140,THERMAL,ETCH/INNER2,(413.9291 8220.0)"
"dbid:153548140,ANTI,ETCH/INNER2,(413.9291 8220.0)"
"dbid:153548140,REGULAR,ETCH/GD2,(413.9291 8220.0)"
"dbid:153548140,THERMAL,ETCH/GD2,(413.9291 8220.0)"
"dbid:153548140,ANTI,ETCH/GD2,(413.9291 8220.0)"
"dbid:153548140,REGULAR,ETCH/BOTTOM,(413.9291 8220.0)"
"dbid:153548140,THERMAL,ETCH/BOTTOM,(413.9291 8220.0)"
"dbid:153548140,ANTI,ETCH/BOTTOM,(413.9291 8220.0)"