CAD坐标标注LISP

baton520

   最近看到一个还不错的坐标自动标注的LISP，总体来还不错，但还有一些小问题需要改善下，自己又不会，特地贴上来请高手帮忙看看要怎么修改。
3 |! N, v; f0 @: ^& G" R要实现功能：1，坐标标注时外框尺寸标到对角去，即和原点对角，现在不在对角。
1 D1 w, s  h/ f4 @  i* `                     2.坐标标注时只标标外框和圆的尺寸，不要圆弧也标注坐标
4 w+ k; D' h) v% u                      3.小数位置控制在1位，现在是3位
8 s0 w  `/ j2 z4 E7 L5 }

hnzkhyyl

我去看看，这样都不行