FindAnnularRing_6C.pas

{....................................................................}
{ Summary   This script checks checks IAR and OAR                    }
{           Conflicting pads and vias have been reported             }
{                                                                    }
{                                                                    }
{ Created by: Henk de Jonge, Transfer BV, The Netherlands            }
{ Date: 15-11-2011                                                   }
{ This script has to be used with Pattern Class 6 and Drill Class C  }
{....................................................................}

Procedure FindAnnularRingClass6C;
Var

    Board                   : IPCB_Board;
    Track                   : IPCB_Track;
    Pad                     : IPCB_Pad;
    Via                     : IPCB_Via;
    ViaIteratorHandle       : IPCB_BoardIterator;
    PadIteratorHandle       : IPCB_BoardIterator;
    TheLayerStack           : IPCB_LayerStack;
    ReportList              : TStringList;
    Tolerance               : Float;
    IAR                     : Float;
    OAR                     : Float;
    Via_Afm                 : Float;
    Hole_Afm                : Float;
    Pad_AfmX                : Float;
    Pad_AfmY                : Float;
    Hole_Width              : Float;
    AnnularRing             : Float;
    Layer                   : TLayer;
    ViaXPos                 : Float;
    ViaYPos                 : Float;
    PadXPos                 : Float;
    PadYPos                 : Float;
    PadXAnnularRing         : Float;
    PadYAnnularRing         : Float;
    PCBOriginX              : Float;
    PCBOriginY              : Float;
    NumOfLayers             : Integer;


Begin
    // Obtain the PCB document interface
    Board := PCBServer.GetCurrentPCBBoard;
    If Board = Nil Then Exit;

    SetCursorBusy;

    //Showmessage('Layer: ' + FloatToStr(Layer));
    RunProcess('PCB:DeSelect');

    //Create the list with reports
    ReportList := TStringList.Create;
    ReportList.Add('Inner and Outer Annular Ring violations report:');
    ReportList.Add('_______________________________________________');
    ReportList.Add('');
    ReportList.Add('VIAS');
    ReportList.Add('');

    // PHD = finished hole size + 0.100mm for via's (no more difference for holes <= 0.45 mm)
    // IAR = 1/2 * (Inner pad diameter - PHD)
    // OAR = 1/2 * (Outer pad diameter - PHD)
    // ToleranceS is Tolerance for holes Smaller then 0.45mm --  not valid
    // ToleranceL is Tolerance for holes Larger then 0.45mm  --  not valid

    Tolerance  := 0.10;
    OAR        := 0.125;
    IAR        := 0.125;

    //Obtain the PCB Current Origin, needed for X and Y coordinates
    PCBOriginX := CoordToMMs(Board.XOrigin);
    PCBOriginY := CoordToMMs(Board.YOrigin);

    // VIAS
    ViaIteratorHandle := Board.BoardIterator_Create;
    ViaIteratorHandle.AddFilter_ObjectSet(MkSet(eViaObject));
    ViaIteratorHandle.AddFilter_LayerSet(AllLayers);
    ViaIteratorHandle.AddFilter_Method(eProcessAll);
    Via := ViaIteratorHandle.FirstPCBObject;

    TheLayerStack := Board.LayerStack;
    NumOfLayers := TheLayerStack.SignalLayerCount;

    While Via <> Nil Do
    Begin
         Via.Selected := true;
         ViaXPos := CoordToMMs(Via.X) - PCBOriginX;
         ViaYPos := CoordToMMs(Via.Y) - PCBOriginY;

         // eTopLayer is 1 ; eBottomLayer is 32
         For Layer := eTopLayer to eBottomLayer Do
         Begin
              If (Layer = 1) or (Layer = 32) Then
              Begin
                Hole_Afm := CoordToMMs(Via.Holesize);
                Via_Afm  := CoordToMMs(Via.SizeOnLayer[Layer]);
                If (Via_Afm <> 0) Then
                  Begin
                    AnnularRing := (Via_afm - Tolerance - Hole_Afm)/2;
                    If (AnnularRing < OAR) Then
                    Begin
                      ReportList.Add('OAR Violation for Via on ' +
                      Layer2String(Layer) +
                      ' on location: ' +
                      FloatToStr(ViaXPos) +
                      ',' +
                      FloatToStr(ViaYPos) +
                      ' ; ' +
                      'Outer Annular Ring ' +
                      FloatToStr(AnnularRing) +
                      ' is smaller dan OAR Rule: ' +
                      FloatToSTr(OAR));
                    End;
                End;
              End
              Else
              Begin
                If Layer < NumOfLayers Then
                Begin
                  Hole_Afm := CoordToMMs(Via.Holesize);
                  Via_Afm  := CoordToMMs(Via.SizeOnLayer[Layer]);
                  If (Via_Afm <> 0) Then
                  Begin
                    AnnularRing := (Via_afm - Tolerance - Hole_Afm)/2;
                    If (AnnularRing < IAR) Then
                    Begin
                      ReportList.Add('IAR Violation for Via on ' +
                      Layer2String(Layer) +
                      ' on location: ' +
                      FloatToStr(ViaXPos) +
                      ',' +
                      FloatToStr(ViaYPos) +
                      ' ; ' +
                      'Inner Annular Ring ' +
                      FloatToStr(AnnularRing) +
                      ' is smaller dan IAR Rule: ' +
                      FloatToSTr(IAR));
                    End;
                  End;
                End;
              End;
         End;
         Via.Selected := false;
         Via := ViaIteratorHandle.NextPCBObject;
    End;
    Board.BoardIterator_Destroy(ViaIteratorHandle);

    ReportList.Add('');
    ReportList.Add('PADS:');
    ReportList.Add('');

    // PADS
    PadIteratorHandle := Board.BoardIterator_Create;
    PadIteratorHandle.AddFilter_ObjectSet(MkSet(ePadObject));
    PadIteratorHandle.AddFilter_LayerSet(AllLayers);
    PadIteratorHandle.AddFilter_Method(eProcessAll);
    Pad := PadIteratorHandle.FirstPCBObject;

    While Pad <> Nil Do
    Begin
         Pad.Selected := true;
         PadXPos := CoordToMMs(Pad.X) - PCBOriginX;
         PadYPos := CoordToMMs(Pad.Y) - PCBOriginY;

         Hole_Width := 0.0;
         For Layer := MinLayer to MaxLayer Do
         Begin
             if (Layer = 74) Then
             Begin
               Hole_Width := CoordToMMs(Pad.HoleSize);
             End;
         End;

         if Hole_Width > 0 Then
         Begin
           // eTopLayer is 1 ; eBottomLayer is 32
           For Layer := eTopLayer to eBottomLayer Do
           Begin
              If (Layer = 1) or (Layer = 32) Then
              Begin
                Pad_AfmX := CoordToMMs(Pad.XSizeOnLayer[Layer]);
                Pad_AfmY := CoordToMMs(Pad.YSizeOnLayer[Layer]);
                If (Pad_AfmX <> 0) And (Pad_AfmY <> 0) Then
                Begin
                  PadXAnnularRing := (Pad_afmX - Tolerance - Hole_Width)/2;
                  If (PadXAnnularRing < OAR) Then
                  Begin
                    ReportList.Add('OAR Violation for Pad-X on ' +
                    Layer2String(Layer) +
                    ' on location: ' +
                    FloatToStr(PadXPos) +
                    ',' +
                    FloatToStr(PadYPos) +
                    ' ; ' +
                    'Outer Annular Ring ' +
                    FloatToStr(PadXAnnularRing) +
                    ' is smaller dan OAR Rule: ' +
                    FloatToSTr(OAR));
                  End;
                  PadYAnnularRing := (Pad_afmY - Tolerance - Hole_Width)/2;
                  If (PadYAnnularRing < OAR)  Then
                  Begin
                    ReportList.Add('OAR Violation for Pad-Y on ' +
                    Layer2String(Layer) +
                    ' on location: ' +
                    FloatToStr(PadXPos) +
                    ',' +
                    FloatToStr(PadYPos) +
                    ' ; ' +
                    'Outer Annular Ring ' +
                    FloatToStr(PadYAnnularRing) +
                    ' is smaller dan OAR Rule: ' +
                    FloatToSTr(OAR));;
                  End;
                End;
              End
              Else
              Begin
                If Layer < NumOfLayers Then
                Begin
                  Pad_AfmX := CoordToMMs(Pad.XSizeOnLayer[Layer]);
                  Pad_AfmY := CoordToMMs(Pad.YSizeOnLayer[Layer]);
                  If (Pad_AfmX <> 0) And (Pad_AfmY <> 0) Then
                  Begin
                    PadXAnnularRing := (Pad_afmX - Tolerance - Hole_Width)/2;
                    If (PadXAnnularRing < IAR) Then
                    Begin
                      ReportList.Add('IAR Violation for Pad-X on ' +
                      Layer2String(Layer) +
                      ' on location: ' +
                      FloatToStr(PadXPos) +
                      ',' +
                      FloatToStr(PadYPos) +
                      ' ; ' +
                      'Inner Annular Ring ' +
                      FloatToStr(PadXAnnularRing) +
                      ' is smaller dan IAR Rule: ' +
                      FloatToSTr(IAR));
                    End;
                    PadYAnnularRing := (Pad_afmY - Tolerance - Hole_Width)/2;
                    If (PadYAnnularRing < IAR) Then
                    Begin
                      ReportList.Add('IAR Violation for Pad-Y on ' +
                      Layer2String(Layer) +
                      ' on location: ' +
                      FloatToStr(PadXPos) +
                      ',' +
                      FloatToStr(PadYPos) +
                      ' ; ' +
                      'Inner Annular Ring ' +
                      FloatToStr(PadYAnnularRing) +
                      ' is smaller dan IAR Rule: ' +
                      FloatToSTr(IAR));
                    End;
                  End;
                End;
              End;
           End;
         End;
         Pad.Selected := false;
         Pad := PadIteratorHandle.NextPCBObject;

    End;
    ReportList.SaveToFile('C:\TEMP\AnnularRing.txt');
    ReportList.Free;
    Showmessage('Output completed. See C:\TEMP\AnnularRing.txt for results.');
    Board.BoardIterator_Destroy(PadIteratorHandle);
    ResetCursor;
End;
{..............................................................................}