有没有类似的图层管理面板

lcchn · 发表于 11 小时前

qifeifei 发表于 2025-12-3 10:49
我试过了这个没啥难度
我不想弄了

大佬，能指点一下吗

zyx1029 · 发表于 9 小时前

我有一个这，操作后不用关闭界面。

xyp1964 · 发表于 9 小时前

(defun caySet (/ lst i b)
(setq lst "(progn"
i 1
lst1 '("up" "ub" "ph" "pps" "ps" "die" "lb" "lp")
)
(repeat (length lst1)
(setq b (strcat "W" (itoa i))
la (strcat (strcase (nth (1- i) lst1)) "-W")
lst (strcat lst "(defun c:" b "(/)(xyp-MkLaCo \"" la "\" " (itoa i) ")(princ))")
i (1+ i)
)
)
(eval (read (strcat lst ")")))
(setq lst "(progn"
i 1
)
(repeat (length lst1)
(setq b (strcat "-W" (itoa i))
la (strcat (strcase (nth (1- i) lst1)) "-W")
lst (strcat lst "(defun c:" b "(/)(command\"-layer\"\"off\"\"" la "\"\"\")(princ))")
i (1+ i)
)
)
(eval (read (strcat lst ")")))
(princ)
)

小王在学lisp · 发表于 8 小时前

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

[讨论] 有没有类似的图层管理面板