【统计】批量统计多段线长度与块数量

Marckie · 发表于 2018-11-6 22:48

本帖最后由 Marckie 于 2019-1-8 14:29 编辑

大家好，本人主要从事农田水利相关的工作，工作中画图时经常需要统计管（渠）道长度、管道管件（渠系构筑物）等，有时候需要统计很多灌区，因此写了这么一个程序，希望各位多多指教！
本程序功能如下：
1、批量、按图层统计多段线长度和按块统计块的个数
2、操作时建立一个统计图层0-count，且该图层为不打印
3、若输出文字乱码，可通过修改文字样式解决

命令：tt，可自行修改

使用过程如下：
1、选择需要统计的多段线图层和块
2、自行输入文字高度和文字插入点
2、选择统计范围所在图层
3、框选范围
4、输出
演示如下：

欢迎提交各种bug！

chenccna · 发表于 2019-5-28 10:51

本帖最后由 chenccna 于 2019-6-20 23:04 编辑

我是搞建筑设计的,绘图单位默认mm,怎么改成m啊?
第229行
(entmakex (list '(0 . "TEXT") (cons 1 (strcat (car x) " 共：" (itoa (cadr x)) "条合计：" (itoa (1+ (fix (* 0.001 (caddr x)))))"米")) (cons 10 pt1) (cons 40 hei1)))
这样可以转换成米,但是无法保留小数.
(itoa (1+ (fix (* 0.001 (caddr x)))))"米"
试着改成,保留3位小数
(rtos( (itoa (1+ (fix (* 0.001 (caddr x)))))2 3)"米"
这样改也不行
求帮助...
@Marckie
问题已解决
原程序(itoa (1+ (fix (caddr x))))改为 (rtos (* 0.001 (caddr x))2 3)

hao3ren · 发表于 2019-1-7 11:14

选择对象: 指定对角点: 找到 6 个

选择对象:
指定输出文字放置点：
指定输出文字字高<5>：100

指定区域编号文字字高<20>：100

选择多段线所在图层（点选）:
请选择需要统计的范围（多段线，可框选cp）：
选择对象: 指定对角点: 找到 2 个

选择对象:

错误: 关联列表错误: ("HATCH" "BHATCH")

p-3-ianlcc · 发表于 2023-7-14 09:57

我运行後出现下面的消息：
不明的指令“N”。请按 F1 取得说明。
不明的指令“0-COUNT”。请按 F1 取得说明。
不明的指令“C”。请按 F1 取得说明。
1
*取消*
不明的指令“0-COUNT”。请按 F1 取得说明。
不明的指令“MTT”。请按 F1 取得说明。
Application Error: 22 :- 已拒绝 AutoCAD 变量设置: "clayer" "0-count"

yaokui25 · 发表于 2018-11-7 07:56

谢谢楼主分享源码

疯球 · 发表于 2018-11-7 08:29

谢谢楼主分享源码

yoyoho · 发表于 2018-11-7 19:00

谢谢! Marckie楼主分享源码程序!!!!!

jxjaxa · 发表于 2018-11-8 13:49

谢谢! Marckie楼主分享源码程序!!!!

fan_zh · 发表于 2018-11-11 16:27

虽然不需要，还是支持楼主

ynhh · 发表于 2018-11-12 09:29

谢谢包大师

xujinhua · 发表于 2018-11-13 09:05

谢谢楼主。。。我也经常要用到

rhww · 发表于 2018-11-13 12:27

谢谢楼主分享源码

JHX948954875 · 发表于 2018-11-14 09:01

谢谢楼主分享

账号		自动登录	找回密码
密码			注册

[源码] 【统计】批量统计多段线长度与块数量

本帖子中包含更多资源

评分