求助，简单的智能标注

sxh_why

哪位大侠有现成lisp，共享一下，或者帮忙编一下，对高手来说是very easy。

我的设想是：

1：先选择单个线段或者圆或者圆弧，然后自动判断采用相应的标注命令：DIMLINEAR或者DIMDIAMETER或者DIMRADIUS。(不好意思，自己找到了龙版主的帖子http://bbs.mjtd.com/forum.php?mod=viewthread&tid=7884，蛮好用的)

2：这个命令也可以是先选择多个线段或者圆或者圆弧，然后依次对各个对象发出相应的标注命令：DIMLINEAR或者DIMDIAMETER或者DIMRADIUS。