求一个图纸重新编号的程序

疯球

哪位大神如果有时间，请帮编一个图号的程序，原来图号为：图号1，图号2，图号3，图号4，修改为：图号（1/4），图号（2/4），图号（3/4），图号（4/4）

t18-13nil

这种简单的就自己写了，不然怎么学得会

疯球

t18-13nil 发表于 2019-8-3 18:56
这种简单的就自己写了，不然怎么学得会

请您帮帮忙，随手写一个呗，我现在一般都是先递增修改，然后加后缀

hao3ren

简单，先图号替换为（图号，然后加后缀/4），不用一个一个改

t18-13nil

(defun c:tt (/ ss cnt n txt dxf)
  (if (setq ss (ssget '((0 . "TEXT"))))
    (repeat (setq cnt (sslength ss)
                  n   cnt
            )
      (setq n        (1- n)
            dxf        (entget (ssname ss n))
            txt        (cdr (assoc 1 dxf))
            txt        (strcat        (substr txt 1 4)
                        "("
                        (substr txt 5)
                        "/"
                        (itoa cnt)
                        ")"
                )
            dxf        (subst (cons 1 txt) (assoc 1 dxf) dxf)
      )
      (entmod dxf)
    )
  )
  (princ)
)

paulpipi

很好用