yjr111 高手的图层状态管理器图层状态-加下功能

egoroom

希望可以--实现--01支持快捷键   输入指定字母再切换图层状态现在只支持首个字母                         02可以  新建   保存  载入  图层状态，及载入图层状态可在多个文件使用

(defun c:laman(/ ladict1 ladict n statenemelst num )
(setq ladict1(vla-GetExtensionDictionary (vla-get-layers (vla-get-ActiveDocument (vlax-get-acad-object)))))
(repeat (setq m(vla-get-count ladict1))
(setq ladict(vla-item ladict1 (setq m(1- m))))      
(repeat (setq n(vla-get-count ladict))
  (setq statenemelst(cons (vla-get-name(vla-item ladict(setq n(1- n))))statenemelst))  
  )
)
(xsdhk)
(if num(command "layer" "a" "r" (nth (atoi num) statenemelst) "" "" ))
(princ)
)
;;;******************************************
;;;添加列表框内列表
;;;******************************************
  (defun adlst(key lst);;;仅对popup_list或list_box有效
    (start_list key 3);;;处理列表开始
    (mapcar 'add_list  lst)
    (end_list);;;添加列表结束
  )
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun xsdhk (/ replace lsdcl fn dclid )
    (setq fn (open (setq lsdcl (VL-FILENAME-MKTEMP "tmp" "" ".dcl")) "w"))
    (foreach x '("  yyy : dialog{"
                 "  label=\"StateManager\";"                 
                 "  :list_box{key=\"9\";height=18;width=12;}"
                 "  :button{key=\"cancel\";label=\"Cancel\";is_cancel=true;width=1;height=2;}"
                 "}"
                )
      (write-line x fn)
    )
    (close fn)
    (setq dclid (load_dialog lsdcl))
    (vl-file-delete lsdcl)
    (new_dialog "yyy" dclid "" screenpt)
    (adlst "9"  statenemelst)
    (action_tile "9" "(setq num $value)(done_dialog)")
    (start_dialog)
    (unload_dialog dclid)
)
(princ"\n图层状态简易切换，命令LAMAN.")
(PRINC)

1028695446

egoroom 发表于 2019-12-11 09:28
实在不好意思。才上论坛。感谢了

这个就是，，，

start4444

你应该是第二次发这贴了，我不知道你在说啥，是我理解有问题

egoroom

你好，我发了三次了。。没人仔细看。。我想把这个加个功能。

egoroom

start4444 发表于 2019-11-1 10:18
你应该是第二次发这贴了，我不知道你在说啥，是我理解有问题

你好，我发了三次了。。没人仔细看。。我想把这个加个功能。

egoroom

egoroom 发表于 2019-11-1 10:38
你好，我发了三次了。。没人仔细看。。我想把这个加个功能。

原来的列表没法使用没法使用快捷键
没有 新建  保存 载入图层状态功能

egoroom

start4444 发表于 2019-11-1 10:18
你应该是第二次发这贴了，我不知道你在说啥，是我理解有问题

希望可以--实现--01支持快捷键   输入指定字母再切换图层状态现在只支持首个字母
                        02可以  新建   保存  载入  图层状态，及载入图层状态可在多个文件使用

xudongchu

你应该是做模具的吧，附件这个程序不是我的，不知道作者是谁，程序可以按照自己设定的图层及快捷键 进行单开、关闭、锁定等。适合模具类图层管控用。

egoroom

xudongchu 发表于 2019-11-2 08:27
你应该是做模具的吧，附件这个程序不是我的，不知道作者是谁，程序可以按照自己设定的图层及快捷键 进行单 ...

十分谢谢你的回复，我想要的是图层状态管理器里加快捷键。

1028695446

..............................