(princ"\n程序:统计线段长度命令:zz")(defunC:zz(/CURVETLENSSNSUMLEN)(vl-)(setqSUMLEN0)(setqSS(ssget'((0."CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC"))))(setqN0)(repeat(sslengthSS)(setqCURVE(vlax-ename->vla-object(ssnameSSN)))(setqTLEN(vlax-curve-getdistatparamCURVE(vlax-curve-getendparamCURVE)))(setqSUMLEN(+SUMLENTLEN))(setqN(1+N)))),将以下代码复制在记事本内,“另存为”→“”。(princ(strcat"\n共选择"(itoa(sslengthSS))":"(rtosSUMLEN23)"."))(princ)→菜单栏中找到“管理”(老版本“工具”)→打开“加载应用程序”(或在命令行中运行“appload”命令打开)→找到并选中“”→点“加载”→显示“。”→点“关闭”。“zz”+回车→选中所有要统计的线→选中后点鼠标右键(或回车)。→
CAD中统计多条线段长度 来自淘豆网m.daumloan.com转载请标明出处.
