cad统计线段长度方法

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