各位大神看下，同名文字，后面的数字合并

664571221

jun353835273 发表于 2023-9-2 10:36
用7#楼的思路搞的，源码就用上面的代码补充补充。

大神可以上个码不

guankuiwu

分类统计。这个是

cjrun

(defun c:t1 ()
  (defun ss->list (sset flag / lst)
    (foreach x (ssnamex sset)
      (if (not (listp (setq x (cadr x))))
        (setq lst (cons x lst))
      )
    )
    (if        flag
      (mapcar 'vlax-ename->vla-object lst)
      lst
    )
  )
  (defun delsame (l1 / l2)  
  (while (setq l2 (cons (car l1) l2)
               l1 (vl-remove (car l1) (cdr l1))
         )
  )
  (reverse l2)
)

  (setq ss (ssget '(( 0 . "text"))))
  (setq ens (ss->list ss nil))
  (setq ens1 (vl-remove-if     '(lambda (x) (wcmatch (cdr (assoc 1 (entget x))) "#*")) ens))  
  (setq ens1 (mapcar '(lambda (x) (cons (cdr (assoc 1 (entget x))) (nth 2 (assoc 10 (entget x)))  )) ens1))
  (setq ens2 (vl-remove-if-not '(lambda (x) (wcmatch (cdr (assoc 1 (entget x))) "#*")) ens))
  (setq ens2 (mapcar '(lambda (x) (cons (cdr (assoc 1 (entget x)))(nth 2 (assoc 10 (entget x))) )) ens2))
  (setq ens3 (delsame (mapcar 'car ens1)))
  (setq li(mapcar '(lambda (x) (cons (car x) (mapcar 'car (vl-remove-if-not '(lambda (y) (equal (cdr x)(cdr y) 50)) ens2))) ) ens1))
  (mapcar '(lambda (x) (cons x (apply '+ (mapcar 'read (mapcar 'last (vl-remove-if-not '(lambda (y) (= x (car y))) li))))) ) ens3)
  )

664571221

cjrun 发表于 2023-9-2 21:28
(defun c:t1 ()
  (defun ss->list (sset flag / lst)
    (foreach x (ssnamex sset)

兄弟你好，能不能生成图上的格式插入cad.

xyp1964

也来一个

664571221

xyp1964 发表于 2023-9-3 08:20
也来一个

派大上码..

664571221

ssyfeng 发表于 2023-9-1 16:48
合并统计

大佬上个码

664571221

jun353835273 发表于 2023-9-2 10:36
用7#楼的思路搞的，源码就用上面的代码补充补充。

大神可以上个码不

xyp1964

更简单的

664571221

xyp1964 发表于 2023-9-3 23:06
更简单的

厉害厉害，派大厉害