呵呵 装个湘源控规软件吧！里面有此工具GETCURLEN（曲线长度）！可以批量计算！

谢谢了楼上的，
我已经找到更的的程序了：

前几日找到一个朋友上传的lisp小程序,里面功能多多;
最典型的是量面积,并将面积直接用文本标示出来;还可以对直线长度进行文本标示;可以对CAD中的两个或多外文本进行求和以及求积.
要知道效果怎么样,下一个看!
lisp程序的加载不用说了吧:工具--加载应用程序(或加载AUTOlisp),选中你下载并解压出来的*.lisp.现在就可以在command:提示行执行命令了.
command:zc回车,按提示操作,可以标出线段长度;
command:mj回车,按提示操作,可以标出线段所围面积大小;
command:qh回车,按提示操作,可以计算两个(或多个)文本数字的和;
command:qj回车,按提示操作,可以计算两上(或多个)文本数字的积;
对6楼的留言补充一条,该lisp程序加载后,可在command:提示行输入pb来运行.
更多功能可以直接打开lisp程序,看到有c:xx()字样的一定是个可以执行的命令,输入括号前的xx回车试试,很不错!

恩 小程序不错！这些功能在湘源基本也都有！呵呵

加载后用lsd命令可以看到如下可用命令
命令: lsd BG 标高程，BGG为无下划线之标高程
ZR(左右)命令可使标注位置在选定点左右切换
ZD(自动)命令可在使用或取消自动标高之间切换
JD(精度)命令可用于改变自动标高的小数点位

MJ 计算包含选定点的最小闭合区域面积，
并把面积值写到指定点。可用JD命令改变精度

MJJ 计算选定边界、包含选定点的最小闭合区域面积，
并把面积值写到指定点。可用JD命令改变精度

ZC 计算所选物体的总长度，
并把长度值写到指定点。可用JD命令改变精度

CWW 修改指定宽度的多义线的宽度

TL 根据数据文件的数据绘制多义线

STL 根据文件数据的数据绘制曲线
数据文件须置于CAD所在路径，其格式为：
每点坐标占一行，x、y坐标可用逗号或空格隔开;
若文件有空行，将作点坐标原点处理

GY 修改圆的宽度并改为多义线
在用户自定义坐标系下可能会出错

Q1 填写0、1号图的图签

Q2 填写2、3号图的图签

ZX 最大区域视图

QH 对所选字符串(数字)求和

QJ 对所选字符串(数字)求积

Z1 将视图转到命名视图1

Z2 将视图转到命名视图2

Z3 将视图转到命名视图3

v1 将视图命名为视图1

v2 将视图命名为视图2

v3 将视图命名为视图3

xx 修改选定目标的线型比例

SL 数列相乘

FLQH 分类求和，如根据钢筋表直径数列及总长数列求各种直径钢筋的总长

SGC (色改层)把某颜色上的物体改到层上

这个程序真不错　速度很快　还是免费的。收藏了。