欢迎来到天天文库
浏览记录
ID：62202457
大小：229.05 KB
页数：5页
时间：2021-04-21
《cad中统计多条线段长度.docx》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、。新建文本文档。在文档中输入以下内容：。1。;统计cad图中线的总长度;**************WriteByzhenglin****************(defunc:tj_l(/pnee1e2lsx1x2y1y2xxyylllll)(setqln0lll0)(setqp(ssget));Selectobjects(ifp(progn;Ifanyobjectsselected(setql0n(sslengthp))(while(2、(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))3、)))(print"totallinenumber=")(princln)(print"totallinelength=")(princlll)(terpri))另存为tj_l.lsp2。打开cad—>工具—>加载应用程序—>找到并选中tj_l.lsp点加载在命令行输入tj_l然后选中所有要统计的线。。3。按F2查看结果。4。欢迎您的下载，资料仅供参考！致力为企业和个人提供合同协议，策划案计划书，学习资料等等打造全网一站式需求。5
2、(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))
3、)))(print"totallinenumber=")(princln)(print"totallinelength=")(princlll)(terpri))另存为tj_l.lsp2。打开cad—>工具—>加载应用程序—>找到并选中tj_l.lsp点加载在命令行输入tj_l然后选中所有要统计的线。。3。按F2查看结果。4。欢迎您的下载，资料仅供参考！致力为企业和个人提供合同协议，策划案计划书，学习资料等等打造全网一站式需求。5
此文档下载收益归作者所有
