晓东工具使用发现的问题-文字统计功能

显示全部楼层 · 发表于 2018-5-29 23:06:25

提示: 作者被禁止或删除内容自动屏蔽

newer · 发表于 2018-5-29 23:30:52

把下面的拷贝回去，试试。

(defun c:XDTB_TJTEXT( / hz i key lst pt ss txt val x xw y)
(defun _prompt ()
(xdrx_prompt
"\n当前方式："
(if (= 0 #xd-tongji-text-mode)
"文字自身统计"
"文字内数字求和"
)
)
(princ)
)
(defun _KEYWORD (key)
(cond
((= key "D")
(if (= 1 #xd-tongji-text-mode)
(setq #xd-tongji-text-mode 0)
(setq #xd-tongji-text-mode 1)
)
)
)
(_prompt)
)
(xdrx_begin)
(if (not #xd-tongji-textheight)
(setq #xd-tongji-textheight 3.5)
)
(if (not #xd-tongji-text-mode)
(setq #xd-tongji-text-mode 0)
)
(if (setq val (getreal
(xdrx_prompt "\n字高<" #xd-tongji-textheight ">:" t)
)
)
(setq #xd-tongji-textheight val)
)
(_prompt)
(xdrx_initget "D")
(if (and (xdrx_initssget
"\n选取要统计的文字[统计方式(D)]<退出>"
"D"
""
"_KEYWORD"
)
(setq ss (xdrx_ssget '((0 . "*TEXT"))))
)
(progn
(setq lst (xdrx_entity_getproperty ss "textstring"))
(if (= 0 #xd-tongji-text-mode)
(progn
(setq
lst (xd::list:groupbyindex lst 1.0)
lst (mapcar '(lambda (x) (list (car x) (length (cdr x))))
lst
)
lst (vl-sort lst '(lambda (x y) (< (car x) (car y))))
)
)
(progn
(xdrx_sysvar_push '("dimzin" 0))
(setq lst (mapcar
'(lambda (x)
(setq txt (xdrx_getpropertyvalue x "textstring"))
(if (and
(setq hz (xd::string:regexps
"[\\u4e00-\\u9fa5]{0,}"
txt
""
)
)
(setq xw (xd::string:regexps
"(-?[0-9]+)(\\.[0-9]+)?"
txt
""
)
)
)
(list (car hz) (atof (car xw)))
)
)
(xdrx_pickset->ents ss)
)
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
)
)
)
)
(setq i 0
lst (mapcar '(lambda (x) (cons (itoa (setq i (1+ i))) x))
lst
)
)
(setq lst (cons (list "序号" "名称" "数量") lst)
lst (cons (list "统计表" nil nil)
lst
)
)
(if (setq pt (getpoint "\n表格插入点<退出>:"))
(progn
(xd::text:init 1)
(xd::table:makefromlist
lst
pt
#xd-tongji-textheight
(/ #xd-tongji-textheight 2.0)
)
)
)
)
)
(xdrx_end)
(princ)
)

(defun c:XDTB_TJTEXT( / hz i key lst pt ss txt val x xw y) 
  (defun _prompt () 
    (xdrx_prompt 
      "\n当前方式：" 
      (if (= 0 #xd-tongji-text-mode) 
        "文字自身统计" 
        "文字内数字求和" 
      ) 
    ) 
    (princ) 
  ) 
  (defun _KEYWORD (key) 
    (cond 
      ((= key "D") 
       (if (= 1 #xd-tongji-text-mode) 
         (setq #xd-tongji-text-mode 0) 
         (setq #xd-tongji-text-mode 1) 
       ) 
      ) 
    ) 
    (_prompt) 
  ) 
  (xdrx_begin) 
  (if (not #xd-tongji-textheight) 
    (setq #xd-tongji-textheight 3.5) 
  ) 
  (if (not #xd-tongji-text-mode) 
    (setq #xd-tongji-text-mode 0) 
  ) 
  (if (setq val        (getreal 
                  (xdrx_prompt "\n字高<" #xd-tongji-textheight ">:" t) 
                ) 
      ) 
    (setq #xd-tongji-textheight val) 
  ) 
  (_prompt) 
  (xdrx_initget "D") 
  (if (and (xdrx_initssget 
             "\n选取要统计的文字[统计方式(D)]<退出>" 
             "D" 
             "" 
             "_KEYWORD" 
           ) 
           (setq ss (xdrx_ssget '((0 . "*TEXT")))) 
      ) 
    (progn 
      (setq lst (xdrx_entity_getproperty ss "textstring")) 
      (if (= 0 #xd-tongji-text-mode) 
        (progn 
          (setq 
            lst (xd::list:groupbyindex lst 1.0) 
            lst        (mapcar        '(lambda (x) (list (car x) (length (cdr x)))) 
                        lst 
                ) 
            lst        (vl-sort lst '(lambda (x y) (< (car x) (car y)))) 
          ) 
        ) 
        (progn 
          (xdrx_sysvar_push '("dimzin" 0)) 
          (setq        lst (mapcar 
                      '(lambda (x) 
                         (setq txt (xdrx_getpropertyvalue x "textstring")) 
                         (if (and 
                               (setq hz        (xd::string:regexps 
                                          "[\\u4e00-\\u9fa5]{0,}" 
                                          txt 
                                          "" 
                                        ) 
                               ) 
                               (setq xw        (xd::string:regexps 
                                          "(-?[0-9]+)(\\.[0-9]+)?" 
                                          txt 
                                          "" 
                                        ) 
                               ) 
                             ) 
                           (list (car hz) (atof (car xw))) 
                         ) 
                       ) 
                      (xdrx_pickset->ents ss) 
                    ) 
                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 
                    ) 
          ) 
        ) 
      ) 
      (setq i        0 
            lst        (mapcar        '(lambda (x) (cons (itoa (setq i (1+ i))) x)) 
                        lst 
                ) 
      ) 
      (setq lst (cons (list "序 号" "名 称" "数 量") lst) 
            lst (cons (list "统 计 表" nil nil) 
                       lst 
                 ) 
      ) 
      (if (setq pt (getpoint "\n表格插入点<退出>:")) 
        (progn 
          (xd::text:init 1) 
          (xd::table:makefromlist 
            lst 
            pt 
            #xd-tongji-textheight 
            (/ #xd-tongji-textheight 2.0) 
          ) 
        ) 
      ) 
    ) 
  ) 
  (xdrx_end) 
  (princ) 
)

wxb19880825 · 发表于 2020-3-25 20:46:41

为什么要隐藏，那就回复一个

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

小康_U8y3Y 该用户已被删除	发表于 2018-5-29 23:06:25 \| 显示全部楼层 \|阅读模式【广而告之】积分规则、D豆获取攻略窝窝空间装扮攻略提示: 作者被禁止或删除内容自动屏蔽
小康_U8y3Y 该用户已被删除	论坛插件加载方法发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
	回复使用道具举报提升卡置顶卡沉默卡变色卡千斤顶

[求助] 晓东工具使用发现的问题-文字统计功能