谁能修改下代码加一个 数字字符串按数字值排序

弘毅

(defun c:XDTB_TJTEXT (/ hz i key lst pt ss txt val x xw y)  (defun XD::List:Sort (lst oper / x1 x2)  (vl-sort lst           '(lambda (x1 x2)              (if (and                    (atom x1)                    (atom x2)                  )                (apply oper (list x1 x2))                (if (and (xdrx_string_regexps "[0-9.]+" (car x1))                         (xdrx_string_regexps "[0-9.]+" (car x2))                    )                  (apply oper (list (atof (car x1)) (atof (car x2))))                  (apply oper (list (car x1) (car x2)))                )              )            )  ))  (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         (xd::list:sort lst '<)          )        )        (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  (xd::list:sort                       lst                       '<                     )                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))

Lisphk

现成的

http://bbs.xdcad.net/thread-721449-1-1.html

弘毅

Lisphk 发表于 2019-4-1 09:48
现成的

http://bbs.xdcad.net/thread-721449-1-1.html

大哥，这个没有顺序的功能，我觉得这个大神把代码传错了

Lisphk

弘毅 发表于 2019-4-1 10:36
大哥，这个没有顺序的功能，我觉得这个大神把代码传错了

新更新的，是第二版，你用了吗？ 加入了数字的排序功能。

dyjwyqz5221

这种排序，有借鉴意义吗？