Allegro skill Symbols overlap

Why don't you use Setup>Constraints>DFA Constraint Spreadsheet ???

I added some code to the original skill I provided to calculate the size of the overlap...

procedure(Check_Overlap()
let((Layers ShapeLayer Shapes Shape poly1 poly2 l_result bbox llx lly urx ury Dx Dy)
(Layers = list("PLACE_BOUND_TOP" "PLACE_BOUND_BOTTOM"))
foreach( Layer Layers
(axlClearSelSet)
(ShapeLayer = strcat("PACKAGE GEOMETRY/" Layer))
axlVisibleDesign(nil)
axlVisibleLayer(ShapeLayer t)
axlSetFindFilter(?enabled list("noall" "shapes" ) ?onButtons list("noall" "shapes" ))
(axlAddSelectAll)
(Shapes = axlGetSelSet())
(axlClearSelSet)
(Shape = car(Shapes))
(Shapes = cdr(Shapes))
while( and(Shape listp(Shapes))
foreach( Remaining Shapes
;axlMsgPut("Checking between %s and %s" Shape->parent->refdes Remaining->parent->refdes)
when( axlGeoIsBoxOverlap(Shape->bBox Remaining->bBox)
;axlMsgPut("ERROR: Overlap between %s and %s" Shape->parent->refdes Remaining->parent->refdes)
(poly1 = (axlPolyFromDB Shape))
(poly2 = (axlPolyFromDB Remaining))
(l_result = (axlPolyOperation poly1 poly2 'AND))
if( null(l_result) then
axlMsgPut(list axlPolyErrorGet())
else
foreach( poly l_result
(bbox = (poly->bBox))
(llx = caar(bbox))
(lly = cadar(bbox))
(urx = caadr(bbox))
(ury = cadadr(bbox))
(Dx = (urx - llx))
(Dy = (ury - lly))
if( Dx < Dy then
axlMsgPut("ERROR: Overlap %f between %s and %s" Dx Shape->parent->refdes Remaining->parent->refdes)
else
axlMsgPut("ERROR: Overlap %f between %s and %s" Dy Shape->parent->refdes Remaining->parent->refdes)
)
)
)
)
)
(Shape = car(Shapes))
(Shapes = cdr(Shapes))
)
)
t
)
)

I will try it~

Thanks Dave so much~