江南十笑 发表于 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 (cdrlst4) ))
      (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

顶一下、我也想学一下如何给图层设置快捷键
页: [1]
查看完整版本: 自定义快捷键 这么写 哪里错了？