求助CAD中超级偏移的实现

我想请教大家一个lisp程序，看是否能实现以下功能：
随便画一个圆（不包含在lisp程序中），输入lisp命令后，出现选择物体框（选择物体），然后出现偏移距离框（输入距离）然后圆就自动偏移到指定的位置。
请大家帮帮忙