;;The first step would be to convert the existing shape into a polygon: (ShapeList = (axlGetSelSet)) foreach(shape ShapeList if(((shape->objType) == "shape") then (PolyList = axlPolyExpand( axlPolyFromDB( shape ?layer (shape->layer) ?padType "REGULAR") Radius 'ACU_BLUNT)) ;;then contract the outline & build the new shape (Offset = (axlMKSConvert -0.15 "MM") (layer = "ROUTE KEEPOUT/ALL") foreach( poly PolyList (RectList = axlPolyExpand(poly Offset 'ACU_BLUNT)) foreach( result RectList (dbids = (axlDBCreateShape result t layer nil nil)) ) ) )
↧