图层名自动更改

啵浪鼓

回复 lincctw_ccl 的帖子

楼主不按常理出牌，那是他们自定义游戏规矩，没必要去触碰他们的标准化或是其它

啵浪鼓

回复 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) 6)))
        (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)
)

lincctw_ccl

回复 啵浪鼓 的帖子

多謝提醒!!

yxl88168

回复 啵浪鼓 的帖子

谢谢楼主,学习了，这个非常好，楼主真是个好人

yxl88168

回复 skynoon 的帖子

谢谢楼主指教，只是这个好像不可以用，不知是不是我没明白楼主的意思

啵浪鼓

回复 yxl88168 的帖子

12楼的程序可用!!!

skynoon

(setq la_new la)
呵呵少了判断没有"修改"的情况，

外面下雪了

能不能实现在图层名称后面加入时间，并且对于存在时间的能够更新时间。
如“建筑条件”使用后变为“建筑条件（2011年6月10日）”，如果后面又修改了，使用后可以让“建筑条件（2011年6月10日）”变为“建筑条件（2011年6月15日）”等功能。

苍天白鹤

楼主的要求太奇怪了，我画图这么多年，第一次看到，你的要求有什么适用价值吗？

yxl88168

回复 啵浪鼓 的帖子

楼主可不可以再加一个当图层名为"(2011.06.10新制)DIE"或图层名为"(2011.06.10修改)DIE"时，使用此指邻都可改图层名为今天天的日期"(2011.06.16修改)DIE"，先谢了