统计文本，划线查找。理论上可以实现任意dxf 组码的统计。

vitalgg

下载： @lisp.fas

命令行方式可以实现任意 dxf 组码的统计。

通用函数 (@:stat-entity stat-item ssfilter)
stat-item: 统计项目(dxf 组码比如图层 为8 );
ssfilter: 选择集过滤

1. ;; 要统计单行文本在不同图层的个数
   
2. (@:stat-entity 8  '((0 . "TEXT"))) ;;要统计单行文本在不同图层的个数
   
3. (@:stat-entity 7  '((0 . "TEXT"))) ;;要统计单行文本的不同文字样式的个数
   
4. (@:stat-entity 8  '((0 . "LINE"))) ;;统计所选中的直线在每个图层下的个数
   
5. (@:stat-entity 8  '((0 . "insert"))) ;;统计所选中的图块在每个图层下的个数
   
6. (@:stat-entity 62  '((0 . "line"))) ;;统计所选中的直线的不同颜色的个数，随层的为 nil,因为随层图元的没有这个组码。
   
7. 
   

;; 要统计单行文本在不同图层的个数<br /> (@:stat-entity 8  '((0 . "TEXT"))) ;;要统计单行文本在不同图层的个数<br /> (@:stat-entity 7  '((0 . "TEXT"))) ;;要统计单行文本的不同文字样式的个数<br /> (@:stat-entity 8  '((0 . "LINE"))) ;;统计所选中的直线在每个图层下的个数<br /> (@:stat-entity 8  '((0 . "insert"))) ;;统计所选中的图块在每个图层下的个数<br /> (@:stat-entity 62  '((0 . "line"))) ;;统计所选中的直线的不同颜色的个数，随层的为 nil,因为随层图元的没有这个组码。<br /> <br />

1. (@:add-menu "统计" "图块名" "(@:stat-block-by-name)")
   
2. (@:add-menu "统计" "属性" "(@:menu-stat-block-by-attribute)")
   
3. (@:add-menu "统计" "单行文本" "(@:menu-stat-text)")
   
4. (@:add-menu "统计" "--" "--")
   
5. (@:add-menu "统计" "输出结果" "(stat:print)")
   
6. (@:add-menu "统计" "绘制结果" "(stat:draw)")
   
7. ;;(@:add-menu "统计" "块属性" "(@:stat-block-by-attribute)")
   
8. (defun @:stat-block-by-name ()
   
9.   "统计选中块的块名及数量。"
   
10.   (setq @:tmp-stat-result
    
11.   (stat:stat
    
12.    (mapcar (function
    
13.       (lambda (x)
    
14.        (block:get-effectivename x)))
    
15.      (ss:ss-to-entlist (ssget '((0 . "insert"))))))))
    
16. 
    
17. (defun @:stat-block-by-attribute (attribute-name block-name)
    
18.   "统计选中的指定块名中的某一属性的值及数量。"
    
19.   (setq @:tmp-stat-result
    
20.   (stat:stat
    
21.    (mapcar (function
    
22.       (lambda (x)
    
23.        (if (= block-name (block:get-effectivename x))
    
24.            (cdr (assoc attribute-name (block:get-attributes x)))
    
25.            )))
    
26.      (ss:ss-to-entlist (ssget '((0 . "insert"))))))))
    
27. 
    
28. (defun @:menu-stat-block-by-attribute (/ blk-name attribute-name)
    
29.   (setq blk-name (getstring "请输入要统计的块名称:"))
    
30.   (setq attribute-name (getstring "请输入要分类统计的块属性的名称:"))
    
31.   (@:stat-block-by-attribute attribute-name blk-name))
    
32.   
    
33. (defun @:stat-entity (stat-item ssfilter)
    
34.   "stat-item: 统计项目(dxf 组码比如图层 为8 ); ssfilter 选择集过滤"
    
35.   (setq @:tmp-stat-result
    
36.   (stat:stat
    
37.    (mapcar (function
    
38.       (lambda (x)
    
39.        (cdr (assoc stat-item (entget x)))))
    
40.      (ss:ss-to-entlist (ssget ssfilter))))))
    
41. 
    
42. (defun @:menu-stat-text (/ ssfilter)
    
43.   (setq strfilter (getstring "请输入文本通配符(示例 GBZ* ?BZ* LL*): "))
    
44.   (if (/= "" strfilter)
    
45.       (setq ssfilter (list  '(0 . "TEXT") (cons 1  strfilter)))
    
46.       (setq ssfilter (list  '(0 . "TEXT"))))
    
47.   (setq @:tmp-stat-result
    
48.   (stat:stat
    
49.    (mapcar (function
    
50.       (lambda (x)
    
51.        (cdr (assoc 1 (entget x)))))
    
52.      (ss:ss-to-entlist (ssget ssfilter))))))
    

(@:add-menu "统计" "图块名" "(@:stat-block-by-name)")<br /> (@:add-menu "统计" "属性" "(@:menu-stat-block-by-attribute)")<br /> (@:add-menu "统计" "单行文本" "(@:menu-stat-text)")<br /> (@:add-menu "统计" "--" "--")<br /> (@:add-menu "统计" "输出结果" "(stat:print)")<br /> (@:add-menu "统计" "绘制结果" "(stat:draw)")<br /> ;;(@:add-menu "统计" "块属性" "(@:stat-block-by-attribute)")<br /> (defun @:stat-block-by-name ()<br />   "统计选中块的块名及数量。"<br />   (setq @:tmp-stat-result<br />   (stat:stat<br />    (mapcar (function<br />       (lambda (x)<br />        (block:get-effectivename x)))<br />      (ss:ss-to-entlist (ssget '((0 . "insert"))))))))<br /> <br /> (defun @:stat-block-by-attribute (attribute-name block-name)<br />   "统计选中的指定块名中的某一属性的值及数量。"<br />   (setq @:tmp-stat-result<br />   (stat:stat<br />    (mapcar (function<br />       (lambda (x)<br />        (if (= block-name (block:get-effectivename x))<br />            (cdr (assoc attribute-name (block:get-attributes x)))<br />            )))<br />      (ss:ss-to-entlist (ssget '((0 . "insert"))))))))<br /> <br /> (defun @:menu-stat-block-by-attribute (/ blk-name attribute-name)<br />   (setq blk-name (getstring "请输入要统计的块名称:"))<br />   (setq attribute-name (getstring "请输入要分类统计的块属性的名称:"))<br />   (@:stat-block-by-attribute attribute-name blk-name))<br />   <br /> (defun @:stat-entity (stat-item ssfilter)<br />   "stat-item: 统计项目(dxf 组码比如图层 为8 ); ssfilter 选择集过滤"<br />   (setq @:tmp-stat-result<br />   (stat:stat<br />    (mapcar (function<br />       (lambda (x)<br />        (cdr (assoc stat-item (entget x)))))<br />      (ss:ss-to-entlist (ssget ssfilter))))))<br /> <br /> (defun @:menu-stat-text (/ ssfilter)<br />   (setq strfilter (getstring "请输入文本通配符(示例 GBZ* ?BZ* LL*): "))<br />   (if (/= "" strfilter)<br />       (setq ssfilter (list  '(0 . "TEXT") (cons 1  strfilter)))<br />       (setq ssfilter (list  '(0 . "TEXT"))))<br />   (setq @:tmp-stat-result<br />   (stat:stat<br />    (mapcar (function<br />       (lambda (x)<br />        (cdr (assoc 1 (entget x)))))<br />      (ss:ss-to-entlist (ssget ssfilter))))))<br />

视频演示：
http://atlisp.cn/package-info?name=vitalmath&edition=stable

czb203

求老大分享

vitalgg

czb203 发表于 2021-2-20 12:47
求老大分享

到 http://atlisp.cn 这个网站下载安装。然后安装 两个包就可以用了。函数依赖较多，没法形成单一文件。做统计的那个是 唯她数学工具，划线那个功能是 @文本 。
视频演示：
http://atlisp.cn/package-info?name=vitalmath&edition=stable

jianjun2

谢谢楼主的分享