求教！如何利用现有表数据批量设置快捷键

xiaocainiao

2. ;图层切换
   
3. (defun lay_qh (lay lay_col lay_lt / lay_s)
   
4.   (setq lay_s (tblsearch "layer" lay))
   
5.   (if (= lay_s nil)
   
6.     (command "-layer" "n" lay "c" lay_col lay "lay_lt" lay_lt lay "")
   
7.   )
   
8.   (setvar "clayer" lay)
   
9. )
   
10. 
    
11. (defun c:DEF()(lay_qh "Defpoints" 7 "Continuous"))
    
12. (defun c:00()(lay_qh "Defpoints" 7 "Continuous"))
    
13. (defun c:QT()(lay_qh "墙体" 5 "Continuous"))
    

;图层切换<br /> (defun lay_qh (lay lay_col lay_lt / lay_s)<br />   (setq lay_s (tblsearch "layer" lay))<br />   (if (= lay_s nil)<br />     (command "-layer" "n" lay "c" lay_col lay "lay_lt" lay_lt lay "")<br />   ) <br />   (setvar "clayer" lay)<br /> )<br /> <br /> (defun c:DEF()(lay_qh "Defpoints" 7 "Continuous"))<br /> (defun c:00()(lay_qh "Defpoints" 7 "Continuous"))<br /> (defun c:QT()(lay_qh "墙体" 5 "Continuous"))<br />

上面是我目前使用的图层切换代码、
有多少个图层就要复制多少行代码、然后再修改快捷键和对应图层线性、感觉有点麻烦


现在我把快捷键和图层信息都放在表里面、代码如下：

2. (setq lay_lst (("DEF" "Defpoints" "7" "Continuous") ("00" "0" "7" "Continuous") ("QT" "墙体" "5" "Continuous")))

(setq lay_lst (("DEF" "Defpoints" "7" "Continuous") ("00" "0" "7" "Continuous") ("QT" "墙体" "5" "Continuous")))

然后想着根据表信息来批量创建图层切换快捷键、
不知道用Lisp能否实现、特来请教一下各位大神！

xtjd

(foreach l lay_lst(eval (read (strcat "(defun c:"(car l)"()(lay_qh \""(cadr l)"\" "(caddr l)" \""(last l)"\"))"))))

xiaocainiao

http://bbs.mjtd.com/forum.php?mo ... =%BF%EC%BD%DD%BC%FC

论坛上找到了一个类似的帖子、不过没太看懂代码

xiaocainiao

xtjd 发表于 2024-5-6 15:35
(foreach l lay_lst(eval (read (strcat "(defun c:"(car l)"()(lay_qh \""(cadr l)"\" "(caddr l)" \""(la ...

谢谢、这个可以