cad统计线段长度方法.pdfVIP

精品文档 给一个简单的源代码，你自己测试后可以修改编辑让它更符合你的要求： (princ \n 程序：统计线段长度 命令： test) (defun C:TEST (/ CURVE TLEN SS N SUMLEN) (vl-load-com) (setq SUMLEN 0) (setq SS (ssget ((0 . CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC)))) (setq N 0) (repeat (sslength