求助，如何能够让关闭的图层打开，让打开的图层关闭

自贡黄明儒

st788796可能看到了你的提问，所以他写了一个，就是不知道他在明经叫什么。
http://bbs.xdcad.net/thread-673058-1-1.html

ZZXXQQ

8楼改了。

白皮猪

llsheng_73 发表于 2014-3-24 10:00

请问大侠,怎么将你显示改成图层锁定就解锁，反之就锁定.请大侠帮忙改一下可否,老菜老菜鸟的菜鸟改了老半天都没有一点办法都没有..跪求......

ZZXXQQ

8楼又改了。

白皮猪

ZZXXQQ 发表于 2014-4-8 09:42
8楼又改了。

请问版主这个要怎么改成冻结即解冻，反之即冻结。才能成功呀.

llsheng_73

白皮猪 发表于 2014-4-8 09:17
请问大侠,怎么将你显示改成图层锁定就解锁，反之就锁定.请大侠帮忙改一下可否,老菜老菜鸟的菜鸟改了老半天 ...

加了一个锁定图层解锁，未锁定图层加锁的

白皮猪

llsheng_73 发表于 2014-4-8 18:07
加了一个锁定图层解锁，未锁定图层加锁的

太感谢llsheng_73 在回复.我试着改为冻结即解冻的不知道为什么就是不成功，可否帮忙看看错在那里了
(setq la(tblnext"layer" t))
(while la(setq la(entget(tblobjname"layer"(cdr(assoc 2 la)))))
   (entmod(subst(cons 70(+(cdr(assoc 70 la))1))(assoc 70 la)la))
   (setq la(tblnext"layer"nil)))

llsheng_73

白皮猪 发表于 2014-4-8 21:28
太感谢llsheng_73 在回复.我试着改为冻结即解冻的不知道为什么就是不成功，可否帮忙看看错在那里了
(set ...

图层锁定是70组加4，图层开关是62组的颜色号取反，
而冻结的70xeg 值是1没错，但它不能一直加，必须要有1的减1，没1的加1才行，至于为什么可以一直加4来让它达到减4的效果我也不明白，那是偶尔试出来的