[求助]：为什么我想锁定选择对象的图层，而不行呀？

雨箭风刀

既然用命令干嘛还那么麻烦？
(command "layer" "lo" "" )
一句就行了
如果不用命令那又另外说。。。。

andyhua5240

花了一个晚上在网上找的程序。
但是如果需要选择锁定的图层太多的话，程序会提示，用户输入太长。如何可以避免这个情况的出现？
谢谢！

命令: ss
*** 锁定选择对象的图层 ***
选择对象: 指定对角点: 找到 30247 个，339 个编组

选择对象:  LAYER
当前图层:  PUB_DIM
输入选项
[?/生成(M)/设定(S)/新建(N)/开(ON)/关(OFF)/颜色(C)/线型(L)/线宽(LW)/材质(MAT)/打印(P)/冻结(F)/解冻(T)/锁
定(LO)/解锁(U)/状态(A)]: LO
输入要锁定的图层名列表或 <选择对象>:
PUB_DIM,WLL1,PUB_DIM,WLL1,WALL,WALL,WALL,WALL,WALL,OTHER,WLL1,WINDOW,WINDOW,WIND
OW,WINDOW,WINDOW,WLL1,WINDOW,WINDOW,WINDOW,WINDOW,PUB_DIM,PUB_DIM,PUB_DIM,PUB_DI
M,PUB_DIM,COLUMN,WINDOW,WINDOW,WINDOW,WINDOW,WINDOW,WINDOW,WLL1,WLL1,COLUMN,WIND
OW,WINDOW,WINDOW,WLL1,WLL1,WLL1,WLL1,WLL1,WLL1,WLL1,WALL,WALL,BALCONY,BALCONY,BA
LCONY,BALCONY,BALCONY,BALCONY,BALCONY,BALCONY,BALCONY,BALCONY,BALCONY,BALCONY,BA
LCONY,BALCONY,BALCONY,BALCONY,BALCONY,BALCONY,BALCONY,BALCONY,BALCONY,BALCONY,BA
LCONY,BALCONY,BALCONY,BALCONY,BALCONY,BALCONY,BALCONY,BALCONY,BALCONY,BALCONY,BA
LCONY,BALCONY,BALCONY,BALCONY,BALCONY,BALCONY,BALCONY,BALCONY,BALCONY,BALCONY,BA
LCONY,BALCONY,BALCONY,BALCONY,BALCONY,BALCONY,WLL1,WALL,WINDOW,WINDOW,WINDOW,WIN
DOW,WINDOW,WINDOW,WINDOW,WINDOW,WINDOW,WINDOW,WINDOW,WINDOW,WINDOW,WINDOW,WINDOW
,WINDOW,WINDOW,WINDOW,WINDOW,WINDOW,WINDOW,WINDOW,WINDOW,WINDOW,WINDOW,WINDOW,WI
NDOW,WINDOW,WINDOW,WINDOW,WINDOW,WINDOW,WINDOW,WINDOW,WINDOW,WINDOW,WINDOW,WINDO
W,WINDOW,WINDOW,WINDOW,WINDOW,WINDOW,WALL,WALL,WINDOW,WINDOW,WINDOW,WINDOW,WALL,
WALL,WINDOW,WALL,WINDOW,WALL,WALL,WALL,WINDOW,BALCONY,BALCONY,BALCONY,BALCONY,BA
LCONY,WLL1,WLL1,WLL1,WLL1,WLL1,WLL1,WALL,WLL1,WLL1,DOTE,WINDOW,BALCONY,DOTE,DOTE
,DOTE,DOTE,DOTE,DOTE,DOTE,DOTE,DOTE,DOTE,DOTE,DOTE,DOTE,DOTE,DOTE,DOTE,DOTE,DOTE
,DOTE,DOTE,DOTE,DOTE,DOTE,DOTE,DOTE,DOTE,DOTE,DOTE,DOTE,DOTE,DOTE,DOTE,DOTE,DOTE
,DOTE,DOTE,DOTE,DOTE,DOTE,DOTE,DOTE,DOTE,WALL,WALL,BALCONY,WLL1,WALL,BALCONY,BAL
CONY,BALCONY,WALL,WALL,WALL,WALL,WINDOW,WALL,WALL,WALL,WLL1,BALCONY,WALL,BALCONY
,WINDOW,WALL,WALL,BALCONY,WALL,WALL,WINDOW,WINDOW,WALL,WALL,WALL,WINDOW,WALL,BAL
CONY,WALL,WINDOW,WINDOW,WINDOW,WINDOW,WINDOW,WINDOW,WINDOW,WINDOW,WINDOW,WINDOW,
WINDOW,WINDOW,WINDOW,WINDOW,WINDOW,WINDOW,WINDOW,WINDOW,WINDOW,WINDOW,WALL,BALCO
NY,BALCONY,BALCONY,BALCONY,BALCONY,BALCONY,BALCONY,BALCONY,BALCONY,BALCONY,BALCO
NY,BALCONY,BALCONY,BALCONY,BALCONY,WALL,WALL,WALL,WALL,BALCONY,BALCONY,BALCONY,B
ALCONY,BALCONY,BALCONY,BALCONY,BALCONY,BALCONY,BALCONY,BALCONY,BALCONY,BALCONY,B
ALCONY,BALCONY,BALCONY,BALCONY,BALCONY,BALCONY,B
用户输入太长。输入选项
[?/生成(M)/设定(S)/新建(N)/开(ON)/关(OFF)/颜色(C)/线型(L)/线宽(LW)/材质(MAT)/打印(P)/冻结(F)/解冻(T)/锁
定(LO)/解锁(U)/状态(A)]:
命令:

2. 
   
3.   [FONT=courier new]
   
4.                                           ;;;利用layer命令中的lo选项
   
5. (defun C:SS (/ ES EN EL A)
   
6.        (princ "\n*** 锁定选择对象的图层 ***")
   
7.        (setq cm (getvar "cmdecho"))
   
8.        (setq *error* cd_err)
   
9.        (setvar "cmdecho" 0)
   
10.        (setq ES (ssget) A 0 EN "" EL nil FL nil)
    
11.        (while (/= EN nil)
    
12.        (setq EN (ssname ES A) EL (cons EN EL) A (1+ A)))
    
13.        (setq EL (cdr EL) FL (cdr (assoc ' 8 (entget (car EL)))) EL (cdr EL))
    
14.        (repeat (- A 2)
    
15.        (setq EN (cdr (assoc ' 8 (entget (car EL))))
    
16.        FL (strcat EN "," FL) EL (cdr EL)) )
    
17.        (command "LAYER" "LO" (eval FL) "")
    
18.        (setvar "cmdecho" cm)
    
19. (princ)
    
20. )
    
21. 
    
22.                                           ;;;利用layer命令中的u选项
    
23. 
    
24. (defun C:AA(/ ES EN EL A)
    
25.        (princ "\n*** 解锁选择对象的图层 ***")
    
26.        (setq cm (getvar "cmdecho"))
    
27.        (setq *error* cd_err)
    
28.        (setvar "cmdecho" 0)
    
29.        (setq ES (ssget) A 0 EN "" EL nil FL nil)
    
30.        (while (/= EN nil)
    
31.        (setq EN (ssname ES A) EL (cons EN EL) A (1+ A)))
    
32.        (setq EL (cdr EL) FL (cdr (assoc ' 8 (entget (car EL)))) EL (cdr EL))
    
33.        (repeat (- A 2)
    
34.        (setq EN (cdr (assoc ' 8 (entget (car EL))))
    
35.        FL (strcat EN "," FL) EL (cdr EL)) )
    
36.        (command "LAYER" "U" (eval FL) "")
    
37.        (setvar "cmdecho" cm)
    
38. (princ)
    
39. )
    
40. 
    
41. (defun cd_err (s)
    
42.   (setvar "cmdecho" cm)
    
43.   (command "_.undo" "_e")
    
44. )
    
45. 
    
46.   [/FONT]
    

<br />   [FONT=courier new]<br />                                           ;;;利用layer命令中的lo选项<br /> (defun C:SS (/ ES EN EL A)<br />        (princ "\n*** 锁定选择对象的图层 ***")<br />        (setq cm (getvar "cmdecho"))<br />        (setq *error* cd_err)<br />        (setvar "cmdecho" 0)<br />        (setq ES (ssget) A 0 EN "" EL nil FL nil)<br />        (while (/= EN nil)<br />        (setq EN (ssname ES A) EL (cons EN EL) A (1+ A)))<br />        (setq EL (cdr EL) FL (cdr (assoc ' 8 (entget (car EL)))) EL (cdr EL))<br />        (repeat (- A 2)<br />        (setq EN (cdr (assoc ' 8 (entget (car EL))))<br />        FL (strcat EN "," FL) EL (cdr EL)) )<br />        (command "LAYER" "LO" (eval FL) "")<br />        (setvar "cmdecho" cm)<br /> (princ)<br /> )<br /> <br />                                           ;;;利用layer命令中的u选项<br /> <br /> (defun C:AA(/ ES EN EL A)<br />        (princ "\n*** 解锁选择对象的图层 ***")<br />        (setq cm (getvar "cmdecho"))<br />        (setq *error* cd_err)<br />        (setvar "cmdecho" 0)<br />        (setq ES (ssget) A 0 EN "" EL nil FL nil)<br />        (while (/= EN nil)<br />        (setq EN (ssname ES A) EL (cons EN EL) A (1+ A)))<br />        (setq EL (cdr EL) FL (cdr (assoc ' 8 (entget (car EL)))) EL (cdr EL))<br />        (repeat (- A 2)<br />        (setq EN (cdr (assoc ' 8 (entget (car EL))))<br />        FL (strcat EN "," FL) EL (cdr EL)) )<br />        (command "LAYER" "U" (eval FL) "")<br />        (setvar "cmdecho" cm)<br /> (princ)<br /> )<br /> <br /> (defun cd_err (s)<br />   (setvar "cmdecho" cm)<br />   (command "_.undo" "_e")<br /> )<br /> <br />   [/FONT]<br />

后来又看了看命令行的输入，发现有很多图层名是重复的，如wall。如何让程序可以自动的过滤出已经输入过的图层名呢？这样的话，应该就不会存在用户输入过长的问题？因为一个DWG中不可能会有那么多完全不同名的图层？

dandee

(defun c:ss(/ ss cm)
(princ "\n*** 锁定选择对象的图层 ***")(setq cm (getvar "cmdecho"))
   
(setvar "cmdecho" 0)(princ "\nSelect Objects: ")
(setq ss (rm-lst (#ss2lst (ssget)))) (foreach ls ss (command "LAYER" "LO" ls "") )

(setvar "cmdecho" cm)(princ))

(defun #ss2lst (s / n ls) ;;;转换选择集为表
(if s (repeat (setq n (sslength s))(setq ls (cons
(cdr (assoc ' 8 (entget  (ssname s (setq n (1- n))))))  ls)))))

(defun rm-lst (ptlst);去掉 表中重复项
(setq ptlst-new '())  (while (setq pt1 (car ptlst))(setq ptlst-new (cons pt1 ptlst-new) ptlst (vl-remove pt1 ptlst)) )
(setq ptlst-new (reverse ptlst-new))   ptlst-new )

先搬先套，没测试

lzy9788303

(defun c:llk (/ es en el a fl)
(setvar "cmdecho" 0)
(princ "\n锁定选择对象所在图层.")
(setq es (ssget))
(if es (progn
(setq a 0 en "" el nil fl nil)
(while (/= en nil)
(setq en (ssname es a) el (cons en el) a (1+ a)))
(setq el (cdr el) fl (cdr (assoc ' 8 (entget (car el)))) el (cdr el))
(repeat (- a 2)
(setq en (cdr (assoc ' 8 (entget (car el))))
  fl (strcat en "," fl) el (cdr el)) )
(command "layer" "lo" (eval fl) "")
));if es
(setvar "cmdecho" 1)
(princ))

雨箭风刀

[php]
;| lol = 锁定选集图层 ---by lxx.2007.7
|;
(defun c:lol (/ SSS)
  (setq sss (ssget))
  (vla-eval (vlax-get-acad-object)
              (strcat "Sendkeys " (vl-prin1-to-string"-Layer~lo~~!sss~~~"))
    )
)[/php]