[分享]图层管理工具：选层单开；单关；全开。个人觉得对图层比较多的图档很有用处，

＿Levin · 发表于 2022-1-31 15:53

谢谢楼主的分享，顶一下

李钊伟2012 · 发表于 2022-1-31 22:38

都在水论坛，水经验？哎我发这个吧，应该不会报错，最简单的。

(defun c:0 ()(if(/="0"(getvar "clayer"))(command "layer" "m" "0" "")(if(= 4(cdr(assoc 70(tblsearch "layer" "0"))))(command "layer" "U" "0" "")(command "layer" "lo" "0" "")))(princ));(setvar "CECOLOR" "BYLAYER")

(defun c:ut (/ ut)(setq ut(getstring"[锁定(LO)/解锁(U)/冻结(F)/解冻(T)/打开(ON)/关闭(OFF)] <解锁全部>:"))(if (= "" ut)(setq ut "u"))(command "layer" ut "*" "") (command "regenall")(princ))

荣sir · 发表于 2022-3-5 11:04

谢谢楼主，顶一个

mubin1979 · 发表于 2022-3-16 21:44

是不是lisp的

w379106181 · 发表于 2022-6-7 20:05

感谢大神分享感谢大神分享

hzyhzjjzh · 发表于 2022-6-21 13:48

谢谢楼主，

wgng · 发表于 2022-8-9 22:17

谢谢分享学习了

kpl · 发表于 2022-8-22 09:24

看起来挺不错的

Ming131564 · 发表于 2023-1-18 11:19

这好像是贱人的源码？

账号		自动登录	找回密码
密码			注册