关于图元改层的，请求大佬帮助

296715530

(defun c:tt()
(setq ss (ssget "i"))
(if (= ss nil)
(command "-LAYER" "M" "0" "")
(command "-LAYER" "M" "0" "" "LAYCUR" )
)  
(princ)
)








请教下，各位大佬，帮忙改成
空选时，切到0层
选择图元时，只把图元改到0层，当前层不变

taoyi0727

(defun c:tt (/ name ss)
        (if (setq ss (ssget))
                (while (setq name (ssname ss 0))
                        (vla-put-Layer (vlax-ename->vla-object name) "0")
                        (ssdel name ss)
                )
                (setvar "CLAYER" "0")
        )
)

xj6019

试试  是这效果不
(defun YH_chlayer (YH_layer / YH_S)
(if (null (tblsearch "LAYER" YH_layer))
    (entmake (list
        '(0 . "LAYER")
        '(100 . "AcDbSymbolTableRecord")
        '(100 . "AcDbLayerTableRecord")
        (cons 2 YH_layer)         
        '(70 . 0)                 
        '(62 . 7)                 
        '(6 . "bylayer")         
)
      )
    )
(setq YH_S (cadr (ssgetfirst)))
(if YH_S
    (command "CHPROP" YH_S "" "la" YH_layer "c" "bylayer" "")
    (setvar "clayer" YH_layer)
    )
(princ)
)
(defun c:TT0 ()
(YH_chlayer "0")
)

296715530

(defun c:zjtc()
  (princ "\n增加1-9号图层")
  (setvar "cmdecho" 0)                  ; 关闭命令提示
  (Setq osmode_bak (getvar "osmode"))   ;_记录捕捉
  (Setvar "osmode" 0)                   ;_关闭捕捉
  (command "layer" "new" "_1" "c" "7" "_1" "")
  (command "layer" "new" "_2" "c" "5" "_2" "")
  (command "layer" "new" "_3" "c" "6" "_3" "")
  (command "layer" "new" "_4" "c" "4" "_4" "")
  (command "layer" "new" "_5" "c" "3" "_5" "")
  (command "layer" "new" "_6" "c" "2" "_6" "")
(command "layer" "new" "_7" "c" "30" "_7" "")
(command "layer" "new" "_8" "c" "8" "_8" "")
(command "layer" "new" "_9" "c" "1" "_9" "")
  (setvar "cmdecho" 1)                  ; 打开命令提示
  (Setvar "osmode" osmode_bak)          ;_还原捕捉
(PRINC))

;;;图层切换
(defun c:1 ()
(setvar "clayer" "_1")(princ))


(defun c:2 ()
(setvar "clayer" "_2")(princ))


(defun c:3 ()
(setvar "clayer" "_3")(princ))


(defun c:4 ()
(setvar "clayer" "_4")(princ))


(defun c:5 ()
(setvar "clayer" "_5")(princ))


(defun c:6 ()
(setvar "clayer" "_6")(princ))


(defun c:7 ()
(setvar "clayer" "_7")(princ))


(defun c:8 ()
(setvar "clayer" "_8")(princ))


(defun c:9 ()
(setvar "clayer" "_9")(princ))

;;;图元改层
(defun c:11 ()
(setvar "cmdecho" 0)
(setq sset (ssget))
(command"change"sset"" "p" "LA" "_1" "")
(setvar "cmdecho" 1)
(princ))

(defun c:22 ()
(setvar "cmdecho" 0)
(setq sset (ssget))
(command"change"sset"" "p" "LA" "_2" "")
(setvar "cmdecho" 1)
(princ))

(defun c:33 ()
(setvar "cmdecho" 0)
(setq sset (ssget))
(command"change"sset"" "p" "LA" "_3" "")
(setvar "cmdecho" 1)
(princ))

(defun c:44 ()
(setvar "cmdecho" 0)
(setq sset (ssget))
(command"change"sset"" "p" "LA" "_4" "")
(setvar "cmdecho" 1)
(princ))

(defun c:55 ()
(setvar "cmdecho" 0)
(setq sset (ssget))
(command"change"sset"" "p" "LA" "_5" "")
(setvar "cmdecho" 1)
(princ))

(defun c:66 ()
(setvar "cmdecho" 0)
(setq sset (ssget))
(command"change"sset"" "p" "LA" "_6" "")
(setvar "cmdecho" 1)
(princ))

(defun c:77 ()
(setvar "cmdecho" 0)
(setq sset (ssget))
(command"change"sset"" "p" "LA" "_7" "")
(setvar "cmdecho" 1)
(princ))

(defun c:88 ()
(setvar "cmdecho" 0)
(setq sset (ssget))
(command"change"sset"" "p" "LA" "_8" "")
(setvar "cmdecho" 1)
(princ))

(defun c:99 ()
(setvar "cmdecho" 0)
(setq sset (ssget))
(command"change"sset"" "p" "LA" "_9" "")
(setvar "cmdecho" 1)
(princ))



自己整理的，凑合着用也不错，

296715530

xj6019 发表于 2019-12-14 10:18
试试  是这效果不
(defun YH_chlayer (YH_layer / YH_S)
(if (null (tblsearch "LAYER" YH_layer))

感谢回答...............

296715530

taoyi0727 发表于 2019-12-14 10:09
(defun c:tt (/ name ss)
        (if (setq ss (ssget))
                (while (setq name (ssname ss 0))

感谢回答。。。。。。。。。。

zmzk

不错，画图用的频率比较多的