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

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

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

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
可以把相同文字作为前缀，末尾数字加一就行。

谢谢派大.....
页: [1]
查看完整版本: 各位大神帮忙看一下，有一些相同的文字，求输入TT,对这些文字进行编号，如图