欢迎来到天天文库
浏览记录
ID:40715546
大小:203.50 KB
页数:4页
时间:2019-08-06
《cad中统计多条线段长度》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库。
1、新建文本文档。在文档中输入以下内容:;统计cad图中线的总长度;**************WriteByzhenglin****************(defunc:tj_l(/pnee1e2lsx1x2y1y2xxyylllll)(setqln0lll0)(setqp(ssget));Selectobjects(ifp(progn;Ifanyobjectsselected(setql0n(sslengthp))(while(2、ssoc0(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"totallinenumber=")(p3、rincln)(print"totallinelength=")(princlll)(terpri))另存为tj_l.lsp打开cad—>工具—>加载应用程序—>找到并选中tj_l.lsp点加载在命令行输入tj_l然后选中所有要统计的线。按F2查看结果
2、ssoc0(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"totallinenumber=")(p
3、rincln)(print"totallinelength=")(princlll)(terpri))另存为tj_l.lsp打开cad—>工具—>加载应用程序—>找到并选中tj_l.lsp点加载在命令行输入tj_l然后选中所有要统计的线。按F2查看结果
此文档下载收益归作者所有