Create Route Keep Out Using Screw Hole and NPTH...

 Hello everyone, i am developing a module that will create RKO on inner layer

for Screw Hole and NPTH Hole...

I used axlPolyFromDB, and i targeted symbol pin as target,

although i made it work already, i am not satisfied by its speed and credibility

I have to search through its deepest property,

here is my code, pls help me to make it short and to enhanced its speed and credibility

            (unless shapeDbid
                myComp=axlDBGetDesign()->symbols
                (when myComp
                    (foreach pinSelected myComp
                         (when pinSelected->name==itemName
                            symbolPins=pinSelected->pins
                            (when symbolPins
                                (foreach symPinSelected symbolPins
                                padCntr=0
                                    selectedPin=symPinSelected->pads
                                    (foreach _xx selectedPin
                                         (unless pinSelected->component
                                             (unless pinSelected->net->name
                                                (when _xx->objType=="pad"
                                                    (when _xx->type == "REGULAR"
                                                        (when _xx->layer == "PIN/SOLDERMASK_TOP" || _xx->layer == "PIN/SOLDERMASK_BOTTOM"
                                                            ++padCntr
                                                            (unless padCntr>1 ;avoid repeatation
                                                                polyList = car(axlPolyFromDB(car(_xx->figure), ?layer itemLayer ?padType 'REGULAR))
                                                                polyList = car(axlPolyExpand(polyList 20 "NONE"))
                                                                shapeCreatedDBid=axlDBCreateShape(polyList t itemLayer)
                                                                (when listp(shapeCreatedDBid)
                                                                    shapeCreatedDBid=car(shapeCreatedDBid)
                                                                )
                                                                axlDBCreatePropDictEntry("FR_SKILL_HOLECHECK" "string" , list("shapes"))
                                                                axlDBAddProp(shapeCreatedDBid list("FR_SKILL_HOLECHECK" itemName))
                                                                axlDBAddProp(shapeCreatedDBid list("FIXED" t))
                                                                printf("%s for %s  created.\n" itemLayer itemName)
                                                            )
                                                        )
                                                    )
                                                )
                                             )
                                         )
                                    )                                   
                                )
                            )
                         )
                    )
                )       
            )

as you noticed i used "padCntr" to avoid repeatation, because each pins could find attributes with thesame type, pad, layer and objType