[编程申请]：如何在选定的区域内分类统计

nnzj12

在选定区域内的文字数值进行统计.如图中有"果树12棵",果树19棵","花30盘"...等等,然后按不同的名称统计总数.需要结果为"果树合计31","花50"..等在图上标出

雨箭风刀

好像以前见到有人写过，你找一下

nnzj12

能告诉在什么地方有吗

xyp1964

未作统计

2. [FONT=courier new](load "xyp_lib.vlx")                        ;版本 V.20060211(2064)
   
3. ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
   
4. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
5. ★1·在acad.lsp中增加(load"xyp_lib.vlx")
   
6. ■2·在每个程序内增加(load"xyp_lib.vlx")
   
7. ■3·在command下，输入(load"xyp_lib.vlx")
   
8. ■4·在菜单.mnl中增加(load"xyp_lib.vlx")
   
9. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
   
10. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
11. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
12. |;
    
13. 
    
14. ;;;分解汉字和非汉字
    
15. (defun c:test (/ tlst)
    
16.   (CMDLA0)
    
17.   (setq        ss (ssget '((0 . "TEXT")))
    
18.         i  -1
    
19.   )
    
20.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
21.     (setq tx         (xyp-get-dxf 1 s1)
    
22.           tx-hz         (xyp-get-HZ&ENG tx 1)
    
23.           tx-eng (xyp-get-HZ&ENG tx 0)
    
24.     )
    
25.     (if        (and (null (eq tx-hz "")) (null (eq tx-ENG "")))
    
26.       (setq a         (cons tx-hz tx-ENG)
    
27.             tlst (cons a tlst)
    
28.       )
    
29.     )
    
30.   )
    
31.   (if tlst
    
32.     (setq tlst
    
33.            (vl-sort tlst
    
34.                     (function
    
35.                       (lambda (e1 e2) (> (ASCII (car e1)) (ASCII (car e2))))
    
36.                     )
    
37.            )
    
38.     )
    
39.   )
    
40.   (CMDLA1)
    
41.   tlst
    
42. )[/FONT]

[FONT=courier new](load "xyp_lib.vlx")                        ;版本 V.20060211(2064)<br /> ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)<br /> 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：<br /> ★1·在acad.lsp中增加(load"xyp_lib.vlx")<br /> ■2·在每个程序内增加(load"xyp_lib.vlx")<br /> ■3·在command下，输入(load"xyp_lib.vlx")<br /> ■4·在菜单.mnl中增加(load"xyp_lib.vlx")<br /> ■5·将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> |;<br /> <br /> ;;;分解汉字和非汉字<br /> (defun c:test (/ tlst)<br />   (CMDLA0)<br />   (setq        ss (ssget '((0 . "TEXT")))<br />         i  -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq tx         (xyp-get-dxf 1 s1)<br />           tx-hz         (xyp-get-HZ&ENG tx 1)<br />           tx-eng (xyp-get-HZ&ENG tx 0)<br />     )<br />     (if        (and (null (eq tx-hz "")) (null (eq tx-ENG "")))<br />       (setq a         (cons tx-hz tx-ENG)<br />             tlst (cons a tlst)<br />       )<br />     )<br />   )<br />   (if tlst<br />     (setq tlst<br />            (vl-sort tlst<br />                     (function<br />                       (lambda (e1 e2) (> (ASCII (car e1)) (ASCII (car e2))))<br />                     )<br />            )<br />     )<br />   )<br />   (CMDLA1)<br />   tlst<br /> )[/FONT]

xiaoquansb

楼主的思路好啊，以前见到过一个门窗统计程序，就是通过统计文字来实现的，不过要事先将文件按一层一层分号，做别的用途也行，但是不太方便，如果加上区域选定来统计那就方便多了