疯球 发表于 2019-8-3 18:19:38

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

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

t18-13nil 发表于 2019-8-3 18:56:26

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

疯球 发表于 2019-8-3 21:52:50

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

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

hao3ren 发表于 2019-8-4 01:47:30

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

t18-13nil 发表于 2019-8-4 21:21:15

(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 发表于 2019-8-27 07:31:55

很好用
页: [1]
查看完整版本: 求一个图纸重新编号的程序