图层名自动更改

yxl88168

请问如何实现选择一个图层上的图元后，就自动在该图层的图层名前加上当前的日期和修改两个字。如我今天选择了图层die上面的图元，那么图层die就自动更名为(2011.06.11修改)die，请各位大侠指教，谢谢了

love_cq

好贴好贴，学习了。

啵浪鼓

(defun c:tt (/ en la date y m d NEW)
  (SETVAR "CMDECHO" 0)
  (if (setq en (entsel))
    (progn
      (setq la (cdr (assoc 8 (entget (car en)))))
      (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))
      (command "rename" "layer" la NEW)
    )
  )
  (command "REDRAW")
  (princ)
)

lincctw_ccl

在原圖基礎上做修改
用 (command "rename" "layer" la NEW)
那如何能分辦 什麼是新的什麼是舊的??

yxl88168

回复 啵浪鼓 的帖子

谢谢楼主，这个非常好用，

yxl88168

回复 啵浪鼓 的帖子

想请问一下楼主，要是我的图层里面以前有个修改，那么在名字里就已经有了一个带日期的名字，如2010.08.15日修改过die，那么我的图层名为(2011.08.15修改)die，那我这次修改时再用这个命令就会把名字弯成了(2011.06.12修改)(2011.08.15修改)die，这样名字就会很长，可不可以加过功能就是把图层名中以前的那个()内的类容给删除掉，如前面的那个图层名会变成(2011.06.12修改die，把前面的那个)(2011.08.15修改)自动给去掉，谢谢楼主了

yxl88168

回复 lincctw_ccl 的帖子

这只是个人的习惯，我一般不会删除以前的那个图时不删除的，只是改图层名，让我好找到最近一次修改过的地方而已,呵呵

lincctw_ccl

回复 yxl88168 的帖子

不知是不是我會錯意還是??
你執行看看 die 更名 如變成 die+日期
那原本die層不見了~那如何看出改了哪?

zhynt

我想他的意思是新加一个图层，该图层的名字就是原有图层+日期，然后将刚修改的图元移到新图层上去。
额……我觉着这样一来，图层可就够乱的。

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)))))
      (if (wcmatch la "*修改*")
        (setq la_new (substr la (+ (vl-string-search "修" la) 6)))
        )
      (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)
)

lincctw_ccl

恕刪.........改图层名，让我好找到最近一次修改过的地方而已..........恕刪
我的意思是說整個層都改了名!! 應該也 找不到你修改過什麼地方了!!
除非你是改過名的圖層另存檔案!!之後要比對時再重疊
如是同一個檔案  "建新層+日期" 將修改過的圖放到新層去
這是我的小小建議