[求助]：求助超级偏移的lisp程序

hbshyjch

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

hbshyjch

我的意思就是cd（lisp的程序命令）后出现提示：“请选择要偏移的物体”然后选择物体（也就是圆）；
然后出现提示：“请选择基准边”选择一条边；然后又提示:“请选择要偏移的距离”输入距离（也就是相对基准边的偏移距离）；
然后再提示：“请选择基准边”然后选择另一条边；然后又提示:“请选择要偏移的距离”输入距离（这步也可直接回车默认只选择一个边为参照）；然后回车
所画圆就到了现在的位置距离一个边150，距离另一个边100。
请帮帮忙