CAD多线段长度计算插件(zz统计线段长度).rar
用法: 在CAD的命令行中输入Appload【或点击工具--加载应用程序】,打开加载/卸载对话框,把****.lsp文件复制到已打开的文件夹中,选择下载的附件文件,然后点击内容--加载--选中文件--点击关闭即可,文件名是****.lsp,点击加载/关闭即可。
在CAD命令行中输入ZZ,选择要统计线段长度的所有线段,结果马上出来。
或者自己编写命令到txt文件,生成响应插件。
命令如下:
(princ "n程序:(标准分享吧www.bzfxb.com)统计线段长度 命令:zz") (defun C:zz (/ CURVE TLEN SS N SUMLEN) (vl-load-com) (setq SUMLEN 0) (setq SS (ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC")))) (setq N 0) (repeat (sslength SS) (setq CURVE (vlax-ename->vla-object (ssname SS N))) (setq TLEN (vlax-curve-getdistatparam CURVE (vlax-curve-getendparam CURVE))) (setq SUMLEN (+ SUMLEN TLEN)) (setq N (1+ N)) ) (princ (strcat "n共选择 " (itoa (sslength SS)) " 条线段. 线段总长: " (rtos SUMLEN 2 3) " .")) (princ) )