cad统计线段长度方法

给一个简单的源代码，你自己测试后可以修改编辑让它更符合你的要求：(princ "\n程序：统计线段长度 命令：test")(defun C:TEST (/ CURVE TLEN SS N SUMLEN