发布网友 发布时间:2022-04-29 07:17
共1个回答
热心网友 时间:2022-06-21 01:34
1、建立统计多段线长度插件
新建空白的文本文档(txt文件),复制下列代码:
(princ "\n程序:统计线段长度 命令:jzkj")
(defun C:jzkj (/ 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)
)
点击文件另存为,保存类型选择“所有文件”,文件名为“统计线段长度.lsp”,保存到桌面或者任何位置(本例保存的桌面)。
天正cad打开需要统计的图纸,处理图纸,选择需要统计的楼层,快捷命令“x”进行分解,再次选择图纸,输入“xccx”消除重合线段(这一步是为了避免把重合线段统计到最终数据)。
输入“la”调出图层管理,选择梁的图层,然后“反转选择”
之后点击关闭其他图层(将反转选择图层后面的小灯泡关闭就好),这样就得到了只有梁的图纸
输入“appload”命令加载第一步建立的“统计多段线.lsp”文件,点击加载,显示加载成功
5
框选全部的梁,输入“jzkj”,得出全部线段长度,除以2即梁的长度。