cad中统计多条线段长度.doc

《cad中统计多条线段长度.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、新建文本文档。在文档中输入以下内容：;统计cad图中线的总长度;**************WriteByzhenglin****************(defunc:tj_l(/pnee1e2lsx1x2y1y2xxyylllll)(setqln0lll0)(setqp(ssget));Selectobjects(ifp(progn;Ifanyobjectsselected(setql0n(sslengthp))(while(

2、dr(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)))))(print"totallinenum

3、ber=")(princln)(print"totallinelength=")(princlll)(terpri))另存为tj_l.lsp打开cad—>工具—>加载应用程序—>找到并选中tj_l.lsp点加载在命令行输入tj_l然后选中所有要统计的线。按F2查看结果