How to Extract Through Holes and Slots Seperately

Hi

I am trying to extract a seperate count for Through Holes with Hole Type set as: Circle_Drill as opposed to those set as: Oval_Slot or Rectangle_Slot. Can anyone assist as I am not sure what the command to pull the Hole Type out is?

 Below is a section from my skill script that just selects all Through Hole Pads

 foreach(pin pins_list
 if(pin->isThrough == t then
  pin_xy = pin->xy
  padstack = car(pin->pads)->parent
  drill = padstack->drillDiameter
  pin_name = padstack->name
  plating = axlDBGetDrillPlating(pin_name)
  if(drill > 0 then
   if(rexMatchp("NON PLATED" plating) == nil then
    if(member(drill pdrill_list) == nil then
     pdrill_list = cons(drill pdrill_list)
    )
   else
    if(member(drill npdrill_list) == nil then
     npdrill_list = cons(drill npdrill_list)
    )
   )
   pin_count++

Regards

ahood