CAD坐标标注LISP

baton520

   最近看到一个还不错的坐标自动标注的LISP，总体来还不错，但还有一些小问题需要改善下，自己又不会，特地贴上来请高手帮忙看看要怎么修改。
要实现功能：1，坐标标注时外框尺寸标到对角去，即和原点对角，现在不在对角。
                     2.坐标标注时只标标外框和圆的尺寸，不要圆弧也标注坐标
, @  O9 E% E. Q, U                      3.小数位置控制在1位，现在是3位
1 Q2 J. I) Y+ x" j% q( k

hnzkhyyl

我去看看，这样都不行