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

江南十笑 · 发表于 2023-7-5 17:20:38

(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)

江南十笑 · 发表于 2023-7-5 17:40:31

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

oldstone · 发表于 2023-11-7 09:04:35

用反应器，效果更好

xiaocainiao · 发表于 2024-5-5 19:09:11

顶一下、我也想学一下如何给图层设置快捷键

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

[提问] 自定义快捷键 这么写 哪里错了？

[提问] 自定义快捷键这么写哪里错了？