求该如下代码

yangchao2005090

(Defun C:K1 (/ ss ct cl la old)
(setvar "cmdecho" 0)
(prompt "\nSelect entities on the layers you want to remain:")
(setq ss (ssget))
(setq ct 0
len (sslength ss)
cl (cdr (assoc 8 (entget (ssname ss 0))))
)
(setvar "clayer" cl)
(while (< ct len)
(setq la (cdr (assoc 8 (entget (ssname ss ct)))))
(if (= old nil)
(setq OLD la)
(setq OLD (strcat OLD "," la))
)
(setq ct (1+ ct))
)
(command ".layer" "off" "*" "y" "")
(command ".layer" "on" old "")
(princ)
)


选择对象:
无效的选项关键字。
; 错误: 函数被取消
输入选项 [?/生成(M)/设置(S)/新建(N)/重命名(R)/开(ON)/关(OFF)/颜色(C)/线型(L)/线宽(LW)/透明度(TR)/材质(MAT)/打印(P)/冻结(F)/解冻(T)/锁定(LO)/解锁(U)/状态(A)/说明(D)/协调(E)]: *取消*

在cad2014上运行出现上述问题，该怎么修改呀

xvjiex

请楼主试一下这个行吗？

start4444

论坛搜一下，大把这种图层开关上锁的代码

gduthy

不需要写这么多，给你我常用的函数吧

(defun c:xs ()                                ;显示
  (command "LAYISO")
  (princ)
)

yangchao2005090

gduthy 发表于 2020-5-14 21:31
不需要写这么多，给你我常用的函数吧

(defun c:xs ()                                ;显示

这个好像只是隔离，没有关闭未选定的图层

yangchao2005090

start4444 发表于 2020-5-14 18:48
论坛搜一下，大把这种图层开关上锁的代码

能不能麻烦大神帮忙用vla写一个啊，先谢谢了

yangchao2005090

xvjiex 发表于 2020-5-15 09:03
请楼主试一下这个行吗？

谢谢，可以用

2. (defun c:G1 (/ ent lname)
   
3.         (setvar "cmdecho" 0)
   
4.         (setq ent (entsel "\n选择一个图层,仅能单选: "))
   
5.         (if ent
   
6.                 (progn
   
7.                         (setq ent (entget (car ent)))
   
8.                         (setq lname (cdr (assoc 8 ent)))
   
9.                 )
   
10.                 (setq lname (getstring "\n不选择，输入需要关闭图层的名字: "))
    
11.         )
    
12.         (if (= (getvar "clayer") lname)
    
13.                 (setvar "clayer" "0")
    
14.         )
    
15.         (command "layer" "off" lname "" "y" "")
    
16.         (princ)
    
17. )

(defun c:G1 (/ ent lname)<br />         (setvar "cmdecho" 0)<br />         (setq ent (entsel "\n选择一个图层,仅能单选: "))<br />         (if ent<br />                 (progn<br />                         (setq ent (entget (car ent)))<br />                         (setq lname (cdr (assoc 8 ent)))<br />                 )<br />                 (setq lname (getstring "\n不选择，输入需要关闭图层的名字: "))<br />         )<br />         (if (= (getvar "clayer") lname)<br />                 (setvar "clayer" "0")<br />         )<br />         (command "layer" "off" lname "" "y" "")<br />         (princ)<br /> )

cad2014也出现了问题选择一个图层,仅能单选: 未知命令“Y”。按 F1 查看帮助。
未知命令“G1”。按 F1 查看帮助。
能否帮忙再看一下

gduthy

输入s设置为关闭就行
命令: XS
当前设置: 隐藏图层, Viewports=Off

选择要隔离的图层上的对象或 [设置(S)]: s
输入未隔离图层的设置 [关闭(O)/锁定和淡入(L)] <关闭(O)>: o
在图纸空间视口使用 [视口冻结(V)/关(O)] <关(O)>: o
选择要隔离的图层上的对象或 [设置(S)]: 找到 1 个

选择要隔离的图层上的对象或 [设置(S)]:
已隔离图层 JMD。

gduthy

直接这样也行
(defun c:xs ()                                ;显示
  (command "LAYISO" "s" "o" "o" )
  (princ)
)

xvjiex

2. (defun c:G1 (/ ent lname)
   
3.         (setvar "cmdecho" 0)
   
4.         (setq ent (entsel "\n选择一个图层,仅能单选: "))
   
5.         (if ent
   
6.                 (progn
   
7.                         (setq ent (entget (car ent)))
   
8.                         (setq lname (cdr (assoc 8 ent)))
   
9.                 )
   
10.                 (setq lname (getstring "\n不选择，输入需要关闭图层的名字: "))
    
11.         )
    
12.         (if (= (getvar "clayer") lname)
    
13.                 (setvar "clayer" "0")
    
14.         )
    
15.         (command "layer" "off" lname "y" "")
    
16.         (princ)
    
17. )

(defun c:G1 (/ ent lname)<br />         (setvar "cmdecho" 0)<br />         (setq ent (entsel "\n选择一个图层,仅能单选: "))<br />         (if ent<br />                 (progn<br />                         (setq ent (entget (car ent)))<br />                         (setq lname (cdr (assoc 8 ent)))<br />                 )<br />                 (setq lname (getstring "\n不选择，输入需要关闭图层的名字: "))<br />         )<br />         (if (= (getvar "clayer") lname)<br />                 (setvar "clayer" "0")<br />         )<br />         (command "layer" "off" lname "y" "")<br />         (princ)<br /> )

试试这个