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

664571221 · 发表于 2024-10-25 21:43:22

xyp1964 · 发表于 2024-10-25 22:27:56

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

shz9 · 发表于 2024-10-28 07:24:00

不错，车位编号很实用

阿猪蛋 · 发表于 2024-10-28 08:16:58

不错，车位编号很实用

wline · 发表于 2024-10-28 15:52:06

留眼，留眼，万一呢

自贡黄明儒 · 发表于 2024-10-28 16:47:23

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

664571221 · 发表于 2024-10-28 16:53:01

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

谢谢派大.....

账号		自动登录	找回密码
密码			注册

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