请大神帮忙看看，左往右指定位数文字后加空格的程序！

听见天晴

各位大佬好，手上有一个这样的程序，我希望在单行/多行文字中，从左往右数，第3个字后面加2个空格，目前遇到的问题是第3个字是字母，数字，的时候没问题，但是第3个字是特殊符号，汉字的时候，就出现问题了，可能因为是符号，汉字不止一个字符？我不知道怎么去区分开这个。有没有大佬能帮忙修改一下，要求就是单行、多行文字下，批量框选后，都在第3个字后面加2个空格，无论第3个字是什么，谢谢~
如果不能实现就做把第3个字符是φ的时候不拆成%  %c吧，从φ后面开始分，谢谢

希望大概能帮忙改一下，本人不太会写程序，谢谢

2. (defun c:TT ()
   
3.   (prompt "\n选择需要处理的文字: ") ; 提示用户选择文字
   
4.   (setq sslst (ssget '((0 . "TEXT,MTEXT")))) ; 获取选中的文字对象集合
   
5. 
   
6.   (if sslst ; 如果选择对象集合非空
   
7.     (progn
   
8.       (setq n -1) ; 初始化计数器
   
9.       (repeat (sslength sslst) ; 循环处理每一个选中的文字对象
   
10.         (setq ename (ssname sslst (setq n (1+ n)))) ; 获取对象名字
    
11.         (setq entdata (entget ename)) ; 获取对象的详细数据
    
12.         (setq textstr (cdr (assoc 1 entdata))) ; 提取文字内容
    
13. 
    
14.         ;; 判断文字长度是否大于等于3，然后处理文字
    
15.         (if (>= (strlen textstr) 3)
    
16.           (progn
    
17.             (setq part1 (substr textstr 1 3)) ; 取前3个字符
    
18.             (setq part2 (substr textstr 4))  ; 剩余的字符
    
19.             (setq newtext (strcat part1 "  " part2)) ; 在第三个字符后添加两个空格
    
20.           )
    
21.           (setq newtext textstr)) ; 如果长度小于3，则不做改变
    
22. 
    
23.         ;; 更新文字内容
    
24.         (setq entdata (subst (cons 1 newtext) (assoc 1 entdata) entdata)) ; 替换原始数据中的文字内容
    
25.         (entmod entdata) ; 更新对象
    
26.       )
    
27.       (princ "\n处理完成!") ; 打印处理完成信息
    
28.     )
    
29.     (princ "\n没有选择任何文字.") ; 如果选择对象集合为空，则打印未选择任何文字信息
    
30.   )
    
31.   (princ) ; 返回空值
    
32. )
    

(defun c:TT ()<br />   (prompt "\n选择需要处理的文字: ") ; 提示用户选择文字<br />   (setq sslst (ssget '((0 . "TEXT,MTEXT")))) ; 获取选中的文字对象集合<br /> <br />   (if sslst ; 如果选择对象集合非空<br />     (progn<br />       (setq n -1) ; 初始化计数器<br />       (repeat (sslength sslst) ; 循环处理每一个选中的文字对象<br />         (setq ename (ssname sslst (setq n (1+ n)))) ; 获取对象名字<br />         (setq entdata (entget ename)) ; 获取对象的详细数据<br />         (setq textstr (cdr (assoc 1 entdata))) ; 提取文字内容<br /> <br />         ;; 判断文字长度是否大于等于3，然后处理文字<br />         (if (>= (strlen textstr) 3)<br />           (progn<br />             (setq part1 (substr textstr 1 3)) ; 取前3个字符<br />             (setq part2 (substr textstr 4))  ; 剩余的字符<br />             (setq newtext (strcat part1 "  " part2)) ; 在第三个字符后添加两个空格<br />           )<br />           (setq newtext textstr)) ; 如果长度小于3，则不做改变<br /> <br />         ;; 更新文字内容<br />         (setq entdata (subst (cons 1 newtext) (assoc 1 entdata) entdata)) ; 替换原始数据中的文字内容<br />         (entmod entdata) ; 更新对象<br />       )<br />       (princ "\n处理完成!") ; 打印处理完成信息<br />     )<br />     (princ "\n没有选择任何文字.") ; 如果选择对象集合为空，则打印未选择任何文字信息<br />   )<br />   (princ) ; 返回空值<br /> )<br />

kozmosovia

(Defun c:TT (/ _AddSpacerbar ENAME ENTDATA N NEWTEXT SSLST TEXTSTR)
  (Defun _AddSpacerbar (txt / HEAD LEN NUM)
    (setq txt (vl-string->list txt)
          len 0
    )
    (while (< len 3)
      (setq num (car txt))
      (cond ((> num 128)
             (setq head        (append head (list num (cadr txt)))
                   txt        (cddr txt)
             )
            )
            ((= num (cadr txt) 37)
             (setq head        (append head (list num (cadr txt) (caddr txt)))
                   txt        (cdddr txt)
             )
            )
            (t
             (setq head        (append head (list num))
                   txt        (cdr txt)
             )
            )
      )
      (setq len (1+ len))
    )
    (strcat (vl-list->string head)
            "  "
            (vl-list->string txt)
    )
  )
  (prompt "\n选择需要处理的文字: ")        ; 提示用户选择文字
  (setq sslst (ssget '((0 . "TEXT,MTEXT")))) ; 获取选中的文字对象集合

  (if sslst                                ; 如果选择对象集合非空
    (progn
      (setq n -1)                        ; 初始化计数器
      (repeat (sslength sslst)                ; 循环处理每一个选中的文字对象
        (setq ename (ssname sslst (setq n (1+ n)))) ; 获取对象名字
        (setq entdata (entget ename))        ; 获取对象的详细数据
        (setq textstr (cdr (assoc 1 entdata))) ; 提取文字内容
        (setq newtext (_AddSpacerbar textstr))
        ;; 更新文字内容
        (setq
          entdata (subst (cons 1 newtext) (assoc 1 entdata) entdata)
        )                                ; 替换原始数据中的文字内容
        (entmod entdata)                ; 更新对象
      )
      (princ "\n处理完成!")                ; 打印处理完成信息
    )
    (princ "\n没有选择任何文字.")        ; 如果选择对象集合为空，则打印未选择任何文字信息
  )
  (princ)                                ; 返回空值
)

听见天晴

kozmosovia 发表于 2024-7-7 12:16
(Defun c:TT (/ _AddSpacerbar ENAME ENTDATA N NEWTEXT SSLST TEXTSTR)
  (Defun _AddSpacerbar (txt / H ...

谢谢大佬，程序没问题。只是因为我的图是3D软件画好后转的，那个&#8709;（直径符号）虽然看着一样，但是不是%%C，在单行文字下会变成\  U+2205，多行文字下没问题，这个也不影响使用，我批量替换直径符号就好。
大佬我还有个想法，我用这个是分开孔数量和孔规格用的，让人好看一点，能否实现判断，第4个字，是否为数字，如果是的话，就在四4个字后面加两空格，如果不是数字，还是保持原样，在第三个字后加。比如A-12M5螺纹通孔，这种情况，孔有2位数，就可以分成A-12  M5螺纹通孔（而不是A-1  2M5螺纹通孔），大佬如果有空的话麻烦帮忙改一下，谢谢~

kozmosovia

1. (Defun c:TT (/ _AddSpacerbar ENAME ENTDATA N NEWTEXT SSLST TEXTSTR)
   
2.   (Defun _AddSpacerbar (txt / HEAD LEN NUM)
   
3.     (setq txt (vl-string->list txt)
   
4.     len 0
   
5.     )
   
6.     (while (< len 3)
   
7.       (setq num (car txt))
   
8.       (cond ((> num 128)
   
9.        (setq head  (append head (list num (cadr txt)))
   
10.        txt  (cddr txt)
    
11.        )
    
12.       )
    
13.       ((= num (cadr txt) 37)
    
14.        (setq head  (append head (list num (cadr txt) (caddr txt)))
    
15.        txt  (cdddr txt)
    
16.        )
    
17.       )
    
18.       (t
    
19.        (setq head  (append head (list num))
    
20.        txt  (cdr txt)
    
21.        )
    
22.       )
    
23.       )
    
24.       (setq len (1+ len))
    
25.     )
    
26.     (and (wcmatch (chr (car txt)) "#")
    
27.    (setq head (append head (list (car txt)))
    
28.          txt  (cdr txt)
    
29.    )
    
30.     )
    
31.     (strcat (vl-list->string head)
    
32.       "  "
    
33.       (vl-list->string txt)
    
34.     )
    
35.   )
    
36.   (prompt "\n选择需要处理的文字: ")  ; 提示用户选择文字
    
37.   (setq sslst (ssget '((0 . "TEXT,MTEXT")))) ; 获取选中的文字对象集合
    
38. 
    
39.   (if sslst        ; 如果选择对象集合非空
    
40.     (progn
    
41.       (setq n -1)      ; 初始化计数器
    
42.       (repeat (sslength sslst)    ; 循环处理每一个选中的文字对象
    
43.   (setq ename (ssname sslst (setq n (1+ n)))) ; 获取对象名字
    
44.   (setq entdata (entget ename))  ; 获取对象的详细数据
    
45.   (setq textstr (cdr (assoc 1 entdata))) ; 提取文字内容
    
46.   (setq newtext (_AddSpacerbar textstr))
    
47.   ;; 更新文字内容
    
48.   (setq
    
49.     entdata (subst (cons 1 newtext) (assoc 1 entdata) entdata)
    
50.   )        ; 替换原始数据中的文字内容
    
51.   (entmod entdata)    ; 更新对象
    
52.       )
    
53.       (princ "\n处理完成!")    ; 打印处理完成信息
    
54.     )
    
55.     (princ "\n没有选择任何文字.")  ; 如果选择对象集合为空，则打印未选择任何文字信息
    
56.   )
    
57.   (princ)        ; 返回空值
    
58. )

(Defun c:TT (/ _AddSpacerbar ENAME ENTDATA N NEWTEXT SSLST TEXTSTR)<br />   (Defun _AddSpacerbar (txt / HEAD LEN NUM)<br />     (setq txt (vl-string->list txt)<br />     len 0<br />     )<br />     (while (< len 3)<br />       (setq num (car txt))<br />       (cond ((> num 128)<br />        (setq head  (append head (list num (cadr txt)))<br />        txt  (cddr txt)<br />        )<br />       )<br />       ((= num (cadr txt) 37)<br />        (setq head  (append head (list num (cadr txt) (caddr txt)))<br />        txt  (cdddr txt)<br />        )<br />       )<br />       (t<br />        (setq head  (append head (list num))<br />        txt  (cdr txt)<br />        )<br />       )<br />       )<br />       (setq len (1+ len))<br />     )<br />     (and (wcmatch (chr (car txt)) "#")<br />    (setq head (append head (list (car txt)))<br />          txt  (cdr txt)<br />    )<br />     )<br />     (strcat (vl-list->string head)<br />       "  "<br />       (vl-list->string txt)<br />     )<br />   )<br />   (prompt "\n选择需要处理的文字: ")  ; 提示用户选择文字<br />   (setq sslst (ssget '((0 . "TEXT,MTEXT")))) ; 获取选中的文字对象集合<br /> <br />   (if sslst        ; 如果选择对象集合非空<br />     (progn<br />       (setq n -1)      ; 初始化计数器<br />       (repeat (sslength sslst)    ; 循环处理每一个选中的文字对象<br />   (setq ename (ssname sslst (setq n (1+ n)))) ; 获取对象名字<br />   (setq entdata (entget ename))  ; 获取对象的详细数据<br />   (setq textstr (cdr (assoc 1 entdata))) ; 提取文字内容<br />   (setq newtext (_AddSpacerbar textstr))<br />   ;; 更新文字内容<br />   (setq<br />     entdata (subst (cons 1 newtext) (assoc 1 entdata) entdata)<br />   )        ; 替换原始数据中的文字内容<br />   (entmod entdata)    ; 更新对象<br />       )<br />       (princ "\n处理完成!")    ; 打印处理完成信息<br />     )<br />     (princ "\n没有选择任何文字.")  ; 如果选择对象集合为空，则打印未选择任何文字信息<br />   )<br />   (princ)        ; 返回空值<br /> )

听见天晴

kozmosovia 发表于 2024-7-7 16:14

非常好用，再次感谢。