cad查询多个线段长度总和

(princ "\n程序：统计线段长度 命令：xkbuild")(defun C:xkbuild (/ CURVE TLEN SS N SUMLEN) (vl-load-com) (setq S