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

选择更改图层名称

;********更改图层名称 ********
(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:21

沙发！赞一个

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

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

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

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

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

挺好的，谢谢大师！

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

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

w379106181 发表于 2024-7-14 13:44:26


挺好的，谢谢大师！
页: [1]
查看完整版本: 选择更改图层名称