Skill Help

Hello…

Our Asian board suppliers require track expansion on soldermask exposed pads and vias to reduce the effects of galvanic corrosion. Our requirement definition is linewidths <= .19mm, must be increased to .2mm

To identify these within the allegro board, I repurposed the check_short_segs.il code to:

create a report

ignore vias (our vias are plugged, so expansion is not required)

report first cline segment on a pin (xy & width)

report only TOP & BOTTOM (expansion not required internally)

Although this report does help identify segments that are too small and their location, I’d like to add additional user option switches, but I’m not a code person and my Source-link and forum searches have not provide the insight to accomplish this.

I’d like to include switches for user variables:

  /r report .19    ( <= user linewidth )      Run a report with a user defined min linewidth, 0.19mm default

  /c change .20  (new linewidth )             Execute a change linewidth from the reported linewidths to a user definable width.

  /d distance .20 (track 2 pad edge intersect + distance)   Change length of first segment to track & pad intersect plus user defined distance before changing /c linewidth.

Any help would be greatly appreciated.

Thanks, Ken

; ##################################################
; Repurposed check_short_segs.il file to identify cline width of first pad entry segment on pins only.

; 02May2017 Ken

; Usage:

; To use this file, load it from the APD/Allegro command line or allegro.ilinit file

; and then issue the command

;

;

;

axlCmdRegister("fst" 'First_Seg_Track_Expansion )

defun(First_Seg_Track_Expansion ()

; Open the log file and print the header info

; ###########################################

board_name = axlGetDrawingName()

   rep_time = getCurrentTime()

   First_Cline_Segment_Rep=outfile("./First_Cline_Segment.log" "w")

   fprintf(First_Cline_Segment_Rep "First Cline Segment Report\n\n")

   fprintf(First_Cline_Segment_Rep "Time:   %s\n", rep_time)

   fprintf(First_Cline_Segment_Rep "Design: %s\n", board_name)

   fprintf(First_Cline_Segment_Rep "--------------------------------------------------------------------------\n\n")

   fprintf(First_Cline_Segment_Rep "-Layer--------------Location--------Width---------------------------------\n\n")

; Set up the find filter and select all the nets

; ##############################################

; axlSetFindFilter(?enabled '(noall invisible pins vias) ?onButtons '(noall pins vias)) ;save for ref;

   axlSetFindFilter(?enabled '(noall invisible pins vias) ?onButtons '(noall pins))

   axlClearSelSet()

   axlAddSelectAll()

   l_pin_via=axlGetSelSet()

   axlClearSelSet()

   foreach(pv l_pin_via

     unless(pv->isMech

        pin_branch=pv->branch

        pin_loc=pv->xy    

    foreach(child pin_branch->children

      if(child->objType == "path" then

            foreach(seg child->segments

               seg_startEnd=seg->startEnd

               seg_start=car(seg_startEnd)

               seg_end=cadr(seg_startEnd)

                 if(pin_loc==seg_start||pin_loc==seg_end then         

                   seg_layer=seg->layer

          seg_width=seg->width

          if(seg_width <=.18 then

            if(seg_layer == "ETCH/TOP" || seg_layer == "ETCH/BOTTOM" then                                          

              fprintf(First_Cline_Segment_Rep "%s  \t%L\t%L\n" seg_layer pin_loc seg_width)

              );endif

           );endif                        

         );endif

                   );foreach seg

                 );endif child

            );foreach child

      );unless pv->isMech

   );foreach pv

; Close the log file, refresh the graphics, and open a viewlog

; ############################################################

   close(First_Cline_Segment_Rep)

   axlShell("redisplay")

   axlShell("viewlog ./First_Cline_Segment.log")     

)

            procedure(rbg_get_segLen( l_coords )     ;This section left in for possible future reference / use;

         let( (x1 x2 y1 y2 x_len y_len h)     

            x1=xCoord(car(l_coords))             

            x2=xCoord(cadr(l_coords))            

            y1=yCoord(car(l_coords))              

            y2=yCoord(cadr(l_coords))            

            x_len=x2-x1                          

            y_len=y2-y1                          

            h=sqrt(x_len**2+y_len**2)            

           )                                    

);endproc

procedure(rbg_get_pin_radius(pin_id chk_layer)

;let( (l_pads pad pad_box px1 px2)

            pin_rad=0

            l_pads=pin_id->definition->pads

            foreach(pad l_pads

                        if(pad->type=="REGULAR"&&pad->layer==chk_layer then

                        pad_box=pad->bBox

                        px1=xCoord(car(pad_box))

                        px2=xCoord(cadr(pad_box))

                        );endif

            );foreach

            pin_rad=abs((px2-px1)/2)

;)

);endproc

;end defun - First_Seg_Track_Expansion