统计单行文本汉字和后续数字的累计和

newer · 发表于 2018-1-11 08:54:00

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

来源见编程申请帖子：http://bbs.xdcad.net/thread-711508-1-1.html

(defun c:XDTB_TJHZNUM+ (/ hz lst pt ss txt txt1 var x xw y)
(if (and
(xdrx_initssget "\n选取要统计的文字<退出>:")
(setq ss (xdrx_ssget '((0 . "TEXT"))))
)
(progn
(xdrx_begin)
(xdrx_sysvar_push '("dimzin" 0))
(setq lst (mapcar
'(lambda (x)
(setq txt (xdrx_getpropertyvalue x "textstring"))
(setq txt1 (xd::string:regexps "[\\u4e00-\\u9fa5]{1,}[0-9.]+"
txt ""
)
)
(if txt1
(setq lst (mapcar
'(lambda (y)
(setq hz (xd::string:regexps "[\\u4e00-\\u9fa5]{0,}"
y ""
)
)
(setq xw (xd::string:regexps "(-?[0-9]+)(\\.[0-9]+)?"
y ""
)
)
(list (car hz) (atof (car xw)))
)
txt1
)
)
)
)
(xdrx_pickset->ents ss)
)
lst (apply
'append
lst
)
lst (xd::list:groupbyindex lst 0.1)
lst (vl-sort lst '(lambda (x y)
(< (car x) (car y))
)
)
lst (mapcar
'(lambda (x)
(list (car x) (rtos (apply
'+
(cdr x)
) 2 1
)
)
)
lst
)
lst (append
(list (list "统计表" nil) '("名称" "数量"))
lst
)
)
(if (not #miaomu-tj-height)
(setq #miaomu-tj-height 3.5)
)
(if (setq var (getreal (xdrx_prompt "\n字高<" #miaomu-tj-height ">:" t)))
(setq #miaomu-tj-height var)
)
(if (setq pt (getpoint "\n表格插入点:"))
(progn
(xd::text:init 1)
(XD::Table:MakeFromList lst pt #miaomu-tj-height (/ #miaomu-tj-height
2.0
)
)
)
)
(xdrx_sysvar_pop)
(xdrx_end)
)
)
(princ)
)

(defun c:XDTB_TJHZNUM+ (/ hz lst pt ss txt txt1 var x xw y) 
  (if (and 
        (xdrx_initssget "\n选取要统计的文字<退出>:") 
        (setq ss (xdrx_ssget '((0 . "TEXT")))) 
      ) 
    (progn 
      (xdrx_begin) 
      (xdrx_sysvar_push '("dimzin" 0)) 
      (setq lst (mapcar 
                  '(lambda (x) 
                     (setq txt (xdrx_getpropertyvalue x "textstring")) 
                     (setq txt1 (xd::string:regexps "[\\u4e00-\\u9fa5]{1,}[0-9.]+" 
                                                    txt "" 
                                ) 
                     ) 
                     (if txt1 
                       (setq lst (mapcar 
                                   '(lambda (y) 
                                      (setq hz (xd::string:regexps "[\\u4e00-\\u9fa5]{0,}" 
                                                                   y "" 
                                               ) 
                                      ) 
                                      (setq xw (xd::string:regexps "(-?[0-9]+)(\\.[0-9]+)?" 
                                                                   y "" 
                                               ) 
                                      ) 
                                      (list (car hz) (atof (car xw))) 
                                    ) 
                                   txt1 
                                 ) 
                       ) 
                     ) 
                   ) 
                  (xdrx_pickset->ents ss) 
                ) 
            lst (apply 
                  'append 
                  lst 
                ) 
            lst (xd::list:groupbyindex lst 0.1) 
            lst (vl-sort lst '(lambda (x y) 
                                (< (car x) (car y)) 
                              ) 
                ) 
            lst (mapcar 
                  '(lambda (x) 
                     (list (car x) (rtos (apply 
                                           '+ 
                                           (cdr x) 
                                         ) 2 1 
                                   ) 
                     ) 
                   ) 
                  lst 
                ) 
            lst (append 
                  (list (list "统计表" nil) '("名 称" "数 量")) 
                  lst 
                ) 
      ) 
      (if (not #miaomu-tj-height) 
        (setq #miaomu-tj-height 3.5) 
      ) 
      (if (setq var (getreal (xdrx_prompt "\n字高<" #miaomu-tj-height ">:" t))) 
        (setq #miaomu-tj-height var) 
      ) 
      (if (setq pt (getpoint "\n表格插入点:")) 
        (progn 
          (xd::text:init 1) 
          (XD::Table:MakeFromList lst pt #miaomu-tj-height (/ #miaomu-tj-height 
                                                              2.0 
                                                           ) 
          ) 
        ) 
      ) 
      (xdrx_sysvar_pop) 
      (xdrx_end) 
    ) 
  ) 
  (princ) 
)

yuren008 · 发表于 2018-1-11 09:01:08

支持楼主上传，辛苦了。

kqqt6236 · 发表于 2018-1-12 00:05:26

谢谢分享。

zhouzhiy · 发表于 2018-1-20 08:38:40

谢谢楼主分享！

yzhyxh · 发表于 2018-1-20 08:53:38

kiwiairui · 发表于 2018-1-20 11:08:24

huangpc27 · 发表于 2018-5-2 11:20:53

不错的软件，感谢分享啊

7079977a · 发表于 2019-1-30 16:59:58

好东西，真的不错，收藏了！

sicky111 · 发表于 2019-1-31 13:15:54

谢谢分享。

香远益清 · 发表于 2019-11-25 20:01:28

这个对园林绿化等做工程量统计有意义，收藏了，谢谢

猪八戒悟能 · 发表于 2019-11-26 15:03:05

感谢楼主的分享

wxb19880825 · 发表于 2020-7-26 15:06:08

每日逛逛论坛，看看有什么好东西

Herealone · 发表于 2021-3-26 09:00:30

谢楼主分享

zhgcjl · 发表于 2022-4-20 21:59:59

8888辛苦，辛苦了

LXH刚开始 · 发表于 2022-4-24 08:29:19

不错，不错，就是看不到肉容。

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

[统计] 统计单行文本汉字和后续数字的累计和

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。