CAD中如何一次性统计多条直线(曲线)的长度

CAD中如何一次性统计多条直线（曲线）的长度1、打开记事本记录以下代码(defunc:tj_l(/pnee1e2lsx1x2y1y2xxyylllll)(setqln0lll0)(setqp(ssget));Selectobjects(ifp(progn;Ifanyobjectsselected(setql0n(sslengthp))(while(ln);Foreachselectedobject...(if(=LINE(cdr(assoc0(setqe(entget(ssnamepl))))))(progn(setqe1(assoc10e)e2(assoc11e))(setqx1(cadre1)y1(caddre1))(setqx2(cadre2)y2(caddre2))(setqxx(abs(-x2x1))yy(abs(-y2y1)))(setqll(sqrt(+(*xxxx)(*yyyy))))(setqlll(+lllll))(setqln(+ln1))))(setql(1+l)))))(printtotallinenumber=)(princln)(printtotallinelength=)(princlll)(terpri))2、另存为cdtj.lspcdtj自己命名，之后将能作为快捷方式使用，示例cdtj为长度统计拼音首字母3、打开CAD或天正建筑4、点击“管理”→“加载应用程序”→选择“cdtj.lsp”→“加载”→“关闭”5、在cad命令栏输入：cdtj6、“请选择需统计长度的曲线(支持直线、多段线、圆弧、圆、椭圆弧、椭圆、样条曲线):”7、“请点取结果标注位置退出:”