图层名自动更改

skynoon

(defun c:tt (/ en la date y m d NEW la_new)
  (SETVAR "CMDECHO" 0)
  (if (setq en (entsel))
    (progn
      (setq la (cdr (assoc 8 (entget (car en)))))
      (cond ((wcmatch la "*新制u*")(setq la_new (substr la (+ (vl-string-search "新" la) 6))))
            ((wcmatch la "*修改*")(setq la_new (substr la (+ (vl-string-search "修" la) 6))))
            (t (setq la_new la))
            )
      (setq date (rtos (getvar "cdate")2 0))
      (setq y (substr date 1 4))
      (setq m (substr date 5 2))
      (setq d (substr date 7 2))
      (setq date (strcat  y "." m "." d))
      (setq NEW (strcat "(" date "修改)" la_new))
      (command "_.rename" "layer" la NEW )
    )
  )
  (command "REDRAW")
  (princ)
)

啵浪鼓

回复 yxl88168 的帖子

(defun c:tt (/ en la date y m d NEW la_new)
  (SETVAR "CMDECHO" 0)
  (if (setq en (entsel))
    (progn
      (setq la (cdr (assoc 8 (entget (car en)))))
      (if (wcmatch la "(*)*")
        (setq la_new (substr la (+ (vl-string-search ")" la) 2)))
        (setq la_new la)
        )
      (setq date (rtos (getvar "cdate")2 0))
      (setq y (substr date 1 4))
      (setq m (substr date 5 2))
      (setq d (substr date 7 2))
      (setq date (strcat  y "." m "." d))
      (setq NEW (strcat "(" date "修改)" la_new))
      (command "_.rename" "layer" la NEW )
    )
  )
  (command "REDRAW")
  (princ)
)

lohas1118

好程序,谢谢楼主

lohas1118

感谢楼主分享!

lizhiqiang9801

感谢24楼的lohas1118    不知道能不能改为 图层手工输入名称

jfxia

           自已手动改还可以随意改的

love_cq

好贴好贴，学习了。

paulpipi