选择更改图层名称

香田里浪人 · 发表于 2015-6-25 15:23

;  ********  更改图层名称 ********
(defun C:tcgm(/ ss objLen ssIndex objCur lstSel strLayer)
  (setq ss (ssget))
  (setq objLen (sslength ss))

  (if (<= objLen 0) (exit))
  (setq ssIndex 0)

  (setq strLayer (getstring "输入新图层<0>:"))
  (if (or (= strLayer "") (= strLayer nil)) (setq strLayer "0"))

  (repeat objLen
(setq objCur (ssname ss ssIndex))
(setq lstSel (entget objCur))
(if (/= (strcase (cdr (assoc 8 lstSel))) strLayer);
   (progn
      (setq lstSel (subst (cons 8 strLayer) (assoc 8 lstSel) lstSel))
      (entmod lstSel)
   );end progn
);end if

(setq ssIndex (+ ssIndex 1))
  );end repeat

  (setvar "CLAYER" strLayer)
  (princ)
)

bzhjl · 发表于 2015-6-26 00:42

沙发！赞一个

nadaloveluna · 发表于 2015-6-26 16:12

这个好像是改变选择对象所在的图层，前辈，我以为是改所在图层的名字。

theworldoff · 发表于 2020-8-31 14:09

谢谢，我以为是选择图元，更改图元所在图层的名称

paulpipi · 发表于 2020-8-31 14:53

挺好的，谢谢大师！

G〆h · 发表于 2020-8-31 15:05

感觉直接输入图层名来实际选择对象的的图层切换有些随意了。图层的建立应该有一个严格约定。先有列表，再来定选就比较好些。

账号		自动登录	找回密码
密码			注册

[源码] 选择更改图层名称