各位大神帮忙看一下，有一些相同的文字，求输入TT,对这些文字进行编号，如图

664571221

各位大神帮忙看一下，有一些相同的文字，求输入TT,对这些文字进行编号，如图

xyp1964

1. (defun c:tt ()
   
2.   "相同文字进行编号"
   
3.   (defun dxf (code e) (cdr (assoc code (entget e))))
   
4.   (defun SubUpd(e c v)(entmod(subst(cons c v)(assoc c(entget e))(entget e)))(entupd e))
   
5.   (if (and (setq s1 (car (entsel "\n选择参照文本: ")))
   
6.            (setq tx (DXF 1 s1))
   
7.            (setq ss (ssget "X" (list '(0 . "text") (cons 1 tx))))
   
8.            (setq i -1)
   
9.       )
   
10.     (while (setq s1 (ssname ss (setq i (1+ i))))
    
11.       (setq tx1 (strcat tx "-" (itoa (1+ i)))
    
12.             s1 (SubUpd s1 1 tx1)
    
13.       )
    
14.     )
    
15.   )
    
16.   (princ)
    
17. )

(defun c:tt ()<br />   "相同文字进行编号"<br />   (defun dxf (code e) (cdr (assoc code (entget e))))<br />   (defun SubUpd(e c v)(entmod(subst(cons c v)(assoc c(entget e))(entget e)))(entupd e))<br />   (if (and (setq s1 (car (entsel "\n选择参照文本: ")))<br />            (setq tx (DXF 1 s1))<br />            (setq ss (ssget "X" (list '(0 . "text") (cons 1 tx))))<br />            (setq i -1)<br />       )<br />     (while (setq s1 (ssname ss (setq i (1+ i))))<br />       (setq tx1 (strcat tx "-" (itoa (1+ i)))<br />             s1 (SubUpd s1 1 tx1)<br />       )<br />     )<br />   )<br />   (princ)<br /> )

shz9

不错，车位编号很实用

阿猪蛋

不错，车位编号很实用

wline

留眼，留眼，万一呢

自贡黄明儒

可以把相同文字作为前缀，末尾数字加一就行。

664571221

自贡黄明儒 发表于 2024-10-28 16:47
可以把相同文字作为前缀，末尾数字加一就行。

谢谢派大.....