自定义快捷键 这么写 哪里错了？

江南十笑

(defun LWWTCQH  (/ )
    (LWWCSH)
    (if (not(tblsearch "ltype" "dashed")) ( make_dash )   )
        (if (not(tblsearch "ltype" "DOTE")) ( make_dote)   )
    (setq tcxh 1 tcmc '() tcys '() tcxx '() tcdy '()  qhtc '()  zrtc '() )


   ( LWWwenbenNH )
   (while
      (setq lst4 (assoc ( itoa tcxh ) lwwbzctlst ))
          (setq lst5   (nth 0 (cdr  lst4) ))
      (setq tcmc(nth 0 lst5) tcys (atoi (nth 1 lst5))  tcxx(nth 2 lst5)  tcdy(atoi(nth 3 lst5)) qhtc(nth 4 lst5)  zrtc(nth 5 lst5) )
          
        (eval
          (read
            (strcat
              "(defun c:"
              qhtc
              "()  (vl-cmdf \"clayer\" "
                  tcmc
                   "(princ))" )))
         (setq   tcxh  (1+ tcxh)  )
    )
(princ)
)

(LWWTCQH)

江南十笑

函数功能是读取文本 中自定义图层快捷键 按相应快捷键切换至对应图层  目前看来是箭头方框处有问题

oldstone

用反应器，效果更好