[分享]：选择多个对象所在图层锁定和解锁

adisonmaster

同时选择多个对象所在图层锁定和解锁，前几天发了一个不知为何居然不见了，只好再发一个了。(免币)
下载不了，可能是网站有些问题，我也是经常下载不了，现贴上源码！
;;图层锁定函数
(defun LayerLock (LayerName / layen layen_data)

  (progn (setq layen (tblobjname "layer" LayerName));获取层表句柄
         (setq layen_data (entget layen))
         (IF (= (boole 1 (CDR (assoc 70 layen_data)) 4) 0)
           (setq layen_data
                  (subst
                    (cons 70 (+ (CDR (assoc 70 layen_data)) 4))
                    (assoc 70 layen_data)
                    layen_data
                  )
           )
         )
         (entmod layen_data)
  )
)

;;

(defun dxf (n elist)
  (cdr (assoc n elist))
)
;;;图层解锁函数
(defun LayerUnLock (LayerName / layen layen_data)

  (progn (setq layen (tblobjname "layer" LayerName))
         (setq layen_data (entget layen))
         (IF (= (boole 1 (CDR (assoc 70 layen_data)) 4) 4)
           (setq layen_data
                  (subst
                    (cons 70 (- (CDR (assoc 70 layen_data)) 4))
                    (assoc 70 layen_data)
                    layen_data
                  )
           )
         )
         (entmod layen_data)
  )
)
;;;;
;;;锁定所有层
(defun c:AllLayerLock (/ layer)
  (setq Layer (tblnext "layer" T))
  (while Layer
    (LayerLock (dxf 2 Layer))
    (setq Layer (tblnext "layer"))
  )
  (princ "\n命令成功执行！")
  (princ)
)
;;;解锁所有层
(defun c:AllLayerUnLock (/ layer)
  (setq Layer (tblnext "layer" T))
  (while Layer
    (LayerUnLock (dxf 2 Layer))
    (setq Layer (tblnext "layer"))
  )
  (princ "\n命令成功执行！")
  (princ)
)
;;;
(defun GetLayerList (s1 / m1 n1 outList t1 layername str1 again)
  (setq n1 (sslength s1))                ;选择集
  (setq outList nil)
  (setq m1 0)
  (while (< m1 n1)
    (setq t1 (entget (ssname s1 m1)))
    (setq layername (dxf 8 t1))
    (setq again 0)
    (foreach str1 outList
      (progn
        (if (= str1 layername)
          (setq again 1)
        )
      )
    )
    (if (= again 0)
      (setq outList (append outList (list layername)))
      )
    (setq m1 (1+ m1))
  )
  (setq outList outList)
)
;;;锁定所有选择对象的层
(defun c:LLK (/ layer s1 layername m1 n1 t1 LayerList)

  (princ "\n请选择需要锁定的对象:")
  (setq s1 (ssget))                        ;选择
  (setq LayerList (GetLayerList s1))
  ;(princ LayerList)
  (foreach layername LayerList
    (progn
      (LayerLock layername)
      (princ "\n图层")
      (princ layername)
      (princ "已锁定！")
    )
  )
  ;(setq n1 (sslength s1))                ;选择集

  ;(setq m1 0)
  ;(while (< m1 n1)
  ;  (setq t1 (entget (ssname s1 m1)))
  ;    (setq layername (dxf 8 t1))
  ;    (LayerLock layername)
  ;  
  ;    (princ "\n图层")
  ;  (princ layername)
  ;  (princ "已锁定！")
  ;  (setq m1 (1+ m1))
  ;)
  (princ)
)

;;;解锁所有选择对象的层
(defun c:LLUK (/ layer s1 layername m1 n1 t1 LayerList)

  (princ "\n请选择需要锁定的对象:")
  (setq s1 (ssget))                        ;选择


   (setq LayerList (GetLayerList s1))
  ;(princ LayerList)
  (foreach layername LayerList
    (progn
      (LayerUnLock layername)
      (princ "\n图层")
      (princ layername)
      (princ "已解锁！")
    )
  )
  
  ;(setq n1 (sslength s1))                ;选择集

  ;(setq m1 0)
  ;(while (< m1 n1)
   ; (setq t1 (entget (ssname s1 m1)))
    ;  (setq layername (dxf 8 t1))
     ; (LayerUnLock layername)
   
   ;   (princ "\n图层")
   ; (princ layername)
   ; (princ "已解锁！")
   ; (setq m1 (1+ m1))
  ;)
  (princ)
)
(princ "LLK-锁定选中对象所在层。fxf 2007-1-29")
(princ "\nLLUK-解锁选中对象所在层。fxf 2007-1-29")

xyp1964

楼上请自己试试是否能下载！——否则请贴源码！

ct699

试用中，谢谢。

hstea

最初由 ct699 发布
[B]试用中，谢谢。 [/B]

晕啊，我怎么下载不了！

sfjlx

晕啊，我也下载不了！还花了钱!

adisonmaster

已经将源码贴上！

fkyourmather

如果有选择图层前置会更好

xxdxx001

谢谢分享:)