文档介绍：给一个简单的源代码,你自己测试后可以修改编辑让它更符合你的要求:(princ"\n程序:统计线段长度命令:test")(defunC:TEST(/CURVETLENSSNSUMLEN)(vl-)(setqSUMLEN0)(setqSS(ssget'((0."CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC"))))(setqN0)(repeat(sslengthSS)(setqCURVE(vlax-ename->vla-object(ssnameSSN)))(setqTLEN(vlax-curve-getdistatparamCURVE(vlax-curve-getendparamCURVE)))(setqSUMLEN(+SUMLENTLEN))(setqN(1+N)))(princ(strcat"\n共选择"(itoa(sslengthSS))":"(rtosSUMLEN23)"米."))(princ))将以上代码复制在记事本内后“另存为”→“”打开CAD,运行“appload”命令加载刚保存的“”文件按命令提示“程序:统计线段长度命令:test”输入命令test选择要统计长度的线段即可。附:我的命令行操作提示命令:命令:。命令:程序:统计线段长度命令:test命令:命令:test选择对象:指定对角点:找到4个选择对象::