求大神帮忙写个偏移画矩形的lisp

那个猎人

我是做设计的，平时玻璃提料需要在分格的基础上四周偏移才能出玻璃尺寸。不知能不能实现自动生成玻璃轮廓。
具体过程是这样的，点击白色中间区域，先判断区域内是否为矩形，不是就提示。是矩形的话就提示输入左右上下需要偏移的距离（A,B,C,D）,可以为正负，然后根据四个尺寸，每个边偏移相应的距离，生成红色或者粉红色的玻璃轮廓。
求大神帮忙。