各位大神，求输入TT,选择文字，统计还有符号 - 的文字个数，分别列出

664571221

各位大神，求输入TT,选择文字，统计含有符号 - 的文字个数，分别列出插入cad，如下图，附图纸

yaya7827

论坛有类似的  你得花点时间自己搜寻下

shujh1989

2. 
   
3. (defun c:tt2 (/ ss i ent txt prefix prefix-list count-dict text-style text-height text-layer text-color pt row y-pos)
   
4.   (vl-load-com)
   
5.   
   
6.   ; 选择包含编号的文本对象
   
7.   (if (setq ss (ssget '((0 . "TEXT"))))
   
8.     (progn
   
9.       ; 初始化前缀列表和统计字典
   
10.       (setq prefix-list '()
    
11.             count-dict '())
    
12.       
    
13.       ; 获取第一个文本的属性作为参考
    
14.       (setq ent (ssname ss 0)
    
15.             text-style (cdr (assoc 7 (entget ent)))
    
16.             text-height (cdr (assoc 40 (entget ent)))
    
17.             text-layer (cdr (assoc 8 (entget ent)))
    
18.             text-color (cdr (assoc 62 (entget ent))))
    
19.       
    
20.       ; 遍历所有选中的文本
    
21.       (repeat (setq i (sslength ss))
    
22.         (setq ent (ssname ss (setq i (1- i)))
    
23.               txt (cdr (assoc 1 (entget ent))))
    
24.         
    
25.         ; 提取前缀(字母部分)
    
26.         (if (setq prefix (vl-string-right-trim "0123456789" txt))
    
27.           (progn
    
28.             ; 添加到前缀列表
    
29.             (if (not (member prefix prefix-list))
    
30.               (setq prefix-list (cons prefix prefix-list)))
    
31.             
    
32.             ; 更新统计计数
    
33.             (if (assoc prefix count-dict)
    
34.               (setq count-dict (subst (cons prefix (1+ (cdr (assoc prefix count-dict))))
    
35.                                      (assoc prefix count-dict)
    
36.                                      count-dict))
    
37.               (setq count-dict (cons (cons prefix 1) count-dict))))))
    
38.       
    
39.       ; 按字母顺序排序前缀列表
    
40.       (setq prefix-list (vl-sort prefix-list '<))
    
41.       
    
42.       ; 获取插入点
    
43.       (setq pt (getpoint "\n指定统计结果插入点: "))
    
44.       
    
45.       ; 输出统计结果
    
46.       (setq row 1)
    
47.       (foreach prefix prefix-list
    
48.         (setq y-pos (- (cadr pt) (* row text-height 1.5))
    
49.               txt (strcat prefix "共有" (itoa (cdr (assoc prefix count-dict))) "个"))
    
50.         
    
51.         (entmake (list '(0 . "TEXT")
    
52.                        (cons 1 txt)
    
53.                        (cons 10 (list (car pt) y-pos 0))
    
54.                        (cons 40 text-height)
    
55.                        (cons 7 text-style)
    
56.                        (cons 8 text-layer)
    
57.                        (if text-color (cons 62 text-color))))
    
58.         (setq row (1+ row))))
    
59.     (princ "\n未选择任何文本对象。"))
    
60.   (princ))
    

<br /> (defun c:tt2 (/ ss i ent txt prefix prefix-list count-dict text-style text-height text-layer text-color pt row y-pos)<br />   (vl-load-com)<br />   <br />   ; 选择包含编号的文本对象<br />   (if (setq ss (ssget '((0 . "TEXT"))))<br />     (progn<br />       ; 初始化前缀列表和统计字典<br />       (setq prefix-list '()<br />             count-dict '())<br />       <br />       ; 获取第一个文本的属性作为参考<br />       (setq ent (ssname ss 0)<br />             text-style (cdr (assoc 7 (entget ent)))<br />             text-height (cdr (assoc 40 (entget ent)))<br />             text-layer (cdr (assoc 8 (entget ent)))<br />             text-color (cdr (assoc 62 (entget ent))))<br />       <br />       ; 遍历所有选中的文本<br />       (repeat (setq i (sslength ss))<br />         (setq ent (ssname ss (setq i (1- i)))<br />               txt (cdr (assoc 1 (entget ent))))<br />         <br />         ; 提取前缀(字母部分)<br />         (if (setq prefix (vl-string-right-trim "0123456789" txt))<br />           (progn<br />             ; 添加到前缀列表<br />             (if (not (member prefix prefix-list))<br />               (setq prefix-list (cons prefix prefix-list)))<br />             <br />             ; 更新统计计数<br />             (if (assoc prefix count-dict)<br />               (setq count-dict (subst (cons prefix (1+ (cdr (assoc prefix count-dict))))<br />                                      (assoc prefix count-dict)<br />                                      count-dict))<br />               (setq count-dict (cons (cons prefix 1) count-dict))))))<br />       <br />       ; 按字母顺序排序前缀列表<br />       (setq prefix-list (vl-sort prefix-list '<))<br />       <br />       ; 获取插入点<br />       (setq pt (getpoint "\n指定统计结果插入点: "))<br />       <br />       ; 输出统计结果<br />       (setq row 1)<br />       (foreach prefix prefix-list<br />         (setq y-pos (- (cadr pt) (* row text-height 1.5))<br />               txt (strcat prefix "共有" (itoa (cdr (assoc prefix count-dict))) "个"))<br />         <br />         (entmake (list '(0 . "TEXT")<br />                        (cons 1 txt)<br />                        (cons 10 (list (car pt) y-pos 0))<br />                        (cons 40 text-height)<br />                        (cons 7 text-style)<br />                        (cons 8 text-layer)<br />                        (if text-color (cons 62 text-color))))<br />         (setq row (1+ row))))<br />     (princ "\n未选择任何文本对象。"))<br />   (princ))<br />

同行？给排水的？

664571221

shujh1989 发表于 2025-5-24 15:24
同行？给排水的？

厉害了兄弟，加我qq头像上

664571221

(defun c:tt (/ e i p s s0 s1 ss)
    (if (setq s (ssget '((0 . "TEXT") (1 . "*-*"))))
        (progn
            (setq i -1)
            (while (setq e (ssname s (setq i (1+ i))))
                (setq s0 (cdr (assoc 1 (entget e))))
                (setq s0 (substr s0 1 (1+ (vl-string-search "-" s0))))
                (setq ss (cons s0 ss))
            )
            (setq s1 "")
            (while (setq e (car ss))
                (setq s (vl-remove-if-not '(lambda(x)(= e x))ss))
                (setq ss (vl-remove e ss))
                (setq s1 (strcat s1  e "共有" (itoa (length s))"个\\P"))     
            )   
            (and (setq p (getpoint))
                (entmakex
                    (list '(0 . "MTEXT")
                        '(100 . "AcDbEntity")
                        '(100 . "AcDbMText")
                        (cons 7 (getvar "TEXTSTYLE"))
                        (cons 1 s1)
                        (cons 10 p)
                    )
                )
            )
        )
    )
)波总的代码

shujh1989

664571221 发表于 2025-5-24 15:29
厉害了兄弟，加我qq头像上

以前加过，哈哈