文档介绍：集团标准化小组：[VVOPPT-JOPP28-JPPTL98-LOPPNN]
c中统计多条线段长度
新建文本文档。在文档中输入以下内容：
;统计cad图中线的总长度
;************** Write 集团标准化小组：[VVOPPT-JOPP28-JPPTL98-LOPPNN]
c中统计多条线段长度
新建文本文档。在文档中输入以下内容：
;统计cad图中线的总长度
;************** WriteByzhenglin****************
(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))
)
)
)
(print"totallinenumber=")
(princln)
(print"totallinelength=")
(princlll)
(terpri)
)
打开cad—>工具—>加载应用程序—>
在命令行输入tj_l然后选中所有要统计的线。
按F2查看结果