664571221 发表于 2023-9-2 12:26:00

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

大神可以上个码不

guankuiwu 发表于 2023-9-2 14:15:27

分类统计。这个是

cjrun 发表于 2023-9-2 21:28:53

本帖最后由 cjrun 于 2023-9-2 21:55 编辑

(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 发表于 2023-9-2 22:33:32

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


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

xyp1964 发表于 2023-9-3 08:20:17

也来一个


664571221 发表于 2023-9-3 09:22:27

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

派大上码..

664571221 发表于 2023-9-3 10:03:35

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

大佬上个码

664571221 发表于 2023-9-3 15:54:39

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

大神可以上个码不

xyp1964 发表于 2023-9-3 23:06:45

更简单的


664571221 发表于 2023-9-4 09:02:25

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

厉害厉害，派大厉害
页: 1 [2] 3
查看完整版本: 各位大神看下，同名文字，后面的数字合并