Creating Oblong route keep out

Try this. The only thing is when the vias are not at 0 or 90 degrees. You need to calculate the angle and pass it to the axlTransformObject function.

defun( createOvalRKO ()
let( (w h r pth new_pth l_sel via1 via2 midXY )
axlSetFindFilter(?enabled '("noall" "vias") ?onButtons "vias")
when(axlSingleSelectBox()
    l_sel = axlGetSelSet()
    if(length(l_sel)==2
    then
        via1 = car(l_sel)
        via2 = cadr(l_sel)
        midXY = axlMidPointLine(list(via1->xy via2->xy))
        h = axlDistance(via1->xy via2->xy)
        w =    atof(axlEnterString(?prompts list("Enter width of antipad:")))
        w = w/2.0
        h = h/2.0+w
        if(w>h
        then r= h, pth= axlMakeDynamicsPath( list( list( w-r:h -w+r:h)   list( -w+r:h -w+r:-h 0.0 -w+r:0.0 r) list( -w+r:-h w-r:-h) list( w-r:-h w-r:h 0.0 w-r:0.0 t)))
        else r= w, pth= axlMakeDynamicsPath( list( list( -w:h-r -w:-h+r) list( -w:-h+r w:-h+r 0.0 0.0:-h+r r) list( w:-h+r w:h-r)   list( w:h-r -w:h-r 0.0 0.0:h-r t)))
        )
        shp = car(axlDBCreateShape(pth t "ROUTE KEEPOUT/ALL" nil nil) )
        when(shp
            ;TODO: determine the angle between via1->xy and via2->xy. Use this value for axlTransformObject
            axlTransformObject(shp ?move midXY ?angle 0.0)
            axlMsgPut("Route Keepout created at %L" midXY)
        )
    else
        axlMsgPut("Too few or many elements selected. Please only select 2.")
    )
)
))

Try this. The only thing is when the vias are not at 0 or 90 degrees. You need to calculate the angle and pass it to the axlTransformObject function.

defun( createOvalRKO ()
let( (w h r pth new_pth l_sel via1 via2 midXY )
axlSetFindFilter(?enabled '("noall" "vias") ?onButtons "vias")
when(axlSingleSelectBox()
    l_sel = axlGetSelSet()
    if(length(l_sel)==2
    then
        via1 = car(l_sel)
        via2 = cadr(l_sel)
        midXY = axlMidPointLine(list(via1->xy via2->xy))
        h = axlDistance(via1->xy via2->xy)
        w =    atof(axlEnterString(?prompts list("Enter width of antipad:")))
        w = w/2.0
        h = h/2.0+w
        if(w>h
        then r= h, pth= axlMakeDynamicsPath( list( list( w-r:h -w+r:h)   list( -w+r:h -w+r:-h 0.0 -w+r:0.0 r) list( -w+r:-h w-r:-h) list( w-r:-h w-r:h 0.0 w-r:0.0 t)))
        else r= w, pth= axlMakeDynamicsPath( list( list( -w:h-r -w:-h+r) list( -w:-h+r w:-h+r 0.0 0.0:-h+r r) list( w:-h+r w:h-r)   list( w:h-r -w:h-r 0.0 0.0:h-r t)))
        )
        shp = car(axlDBCreateShape(pth t "ROUTE KEEPOUT/ALL" nil nil) )
        when(shp
            ;TODO: determine the angle between via1->xy and via2->xy. Use this value for axlTransformObject
            axlTransformObject(shp ?move midXY ?angle 0.0)
            axlMsgPut("Route Keepout created at %L" midXY)
        )
    else
        axlMsgPut("Too few or many elements selected. Please only select 2.")
    )
)
))