cad中统计多条线段长度

新建文本文档O 在文档中输入以下内容;统计cad图中线的总长度

・ **************

5WriteByzhe nglin ****************

(defu nc:tj」(/p nee1e2lsx1x2y1y2xxy ylllll)

(setql nO 1110)

(setqp(ssget));Selectobjects

(ifp (prog n;Ifa ny objectsselected

(setql 0n (ssle ngthp))

(while(

(if(二"LINE"(cdr(assoc0(setqe(e ntget(ss

namepl))))))

(prog n (setqe1(assoc10e)e2(assoc11e))

(setqx1(cadre1)y1(caddre1))

(setqx2(cadre2)y2(caddre2))

(setqxx(abs(-x2x1))yy(abs(-y2y1)))

(setqll(sqrt(+(*xxxx)(*yyyy))))

(setqlll(+lllll))

(setql n(+ln 1)) )

)

(setql(1+l))

(pri nt"totalli nenu mber二")

(princln)

(pri nt"totalli nele ngth二") (pri nclll) (terpri) )

另存为

打开cad—＞工具一＞加载应用

序一＞找到并选中点加载在命

令行输入tj」然后选中有要统计的线。

按F2查看结果程所