CAD中计算多条线段的长度

(princ "＼ｎ程序:统计线段长度　命令:zz") （ｄefｕn　C:zｚ　(/ ＣURVE　TLＥN SS N ＳUＭLEN)  (vl-load-ｃom）  (setｑ SUＭLＥN ０) (