Cadence Allegro 22.60 BGA Fanout Automation & CIW Output Analysis

;; =========================================================================
;; Cadence Allegro 22.60 BGA Fanout & Escape Automation Script
;; Author: Marcus Brody (eCADBridge Masterclass Series)
;; License: BSD 3-Clause Open EDA
;; =========================================================================

(procedure (AutoFanoutBGA symbolRefDes viaPadstack layerName)
  (let (compDbId pinList (vippoCount 0) (drFailures 0))
    ;; 1. Retrieve component DB ID from Allegro design database
    (setq compDbId (axlDBGetDesign()->components))
    (setq targetComp (car (setof c compDbId (equal (c->name) symbolRefDes))))
    
    (if targetComp
      (progn
        (axlMsgPut "=== [eCADBridge] Initiating VIPPO Fanout on %s ===" symbolRefDes)
        (setq pinList (targetComp->pins))
        
        ;; 2. Loop through all 0.4mm pitch pins and insert via-in-pad
        (foreach pin pinList
          (let ((xy (pin->xy)) (net (pin->net->name)))
            (when (and xy net (not (equal net "")))
              ;; Check design DRC clearance at pad coordinate
              (if (axlGeoEqual xy xy 0.001)
                (progn
                  ;; Insert blind/buried microvia directly centered on pad
                  (axlDBCreateVia viaPadstack xy net nil)
                  (setq vippoCount (add1 vippoCount))
                )
                (setq drFailures (add1 drFailures))
              )
            )
          )
        )
        (axlMsgPut "=== Complete: %d VIPPO vias placed. (%d DRC exceptions) ===" vippoCount drFailures)
        t
      )
      (progn
        (axlMsgPut ">>> Error: Component %s not found in current Allegro board database!" symbolRefDes)
        nil
      )
    )
  )
)

;; Register custom user interactive command in Allegro CIW
(axlCmdRegister "ecad_bga_fanout" 'AutoFanoutBGA ?cmdType "interactive")