切换图层状态

半听可乐

保存了一些图层状态，每次都要通过点击图层状态管理器去切换状态，操作多了感觉有点麻烦，能不能通过程序切换图层状态？比如输入快捷键001，就切换到名为001的图层状态。下面是一个相关问题的链接，感觉有点不了了之，供参考


http://bbs.mjtd.com/forum.php?mod=viewthread&tid=48565

yjr111

好像还不好搞，搞了一个多小时，惭愧，看看是不是需要的？

2. (defun c:laman(/ ladict1 ladict n statenemelst num )
   
3.   (setq ladict1(vla-GetExtensionDictionary (vla-get-layers (vla-get-ActiveDocument (vlax-get-acad-object)))))
   
4.   (repeat (setq m(vla-get-count ladict1))
   
5.     (setq ladict(vla-item ladict1 (setq m(1- m))))      
   
6.     (repeat (setq n(vla-get-count ladict))
   
7.       (setq statenemelst(cons (vla-get-name(vla-item ladict(setq n(1- n))))statenemelst))  
   
8.     )
   
9.   )
   
10.   (xsdhk)
    
11.   (if num(command "layer" "a" "r" (nth (atoi num) statenemelst) "" "" ))
    
12.   (princ)
    
13. )
    
14. ;;;******************************************
    
15. ;;;添加列表框内列表
    
16. ;;;******************************************
    
17. (defun adlst (key lst)
    
18.   (start_list key 3)
    
19.   (mapcar 'add_list lst)
    
20.   (end_list)
    
21. )
    
22. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
23. (defun xsdhk (/ replace lsdcl fn dclid)
    
24.   (setq fn (open (setq lsdcl (VL-FILENAME-MKTEMP "tmp" "" ".dcl")) "w"))
    
25.   (foreach x
    
26.            '("  yyy : dialog{"
    
27.              "  label="StateManager";"
    
28.              "  :list_box{key="9";height=18;width=12;}"
    
29.              "  :button{key="cancel";label="Cancel";is_cancel=true;width=1;height=2;}"
    
30.              "}"
    
31.             )
    
32.     (write-line x fn)
    
33.   )
    
34.   (close fn)
    
35.   (setq dclid (load_dialog lsdcl))
    
36.   (vl-file-delete lsdcl)
    
37.   (new_dialog "yyy" dclid "" screenpt)
    
38.   (adlst "9" statenemelst)
    
39.   (action_tile "9" "(setq num $value)(setq screenpt(done_dialog))")
    
40.   (start_dialog)
    
41.   (unload_dialog dclid)
    
42. )
    
43. (princ"\n图层状态简易切换，命令LAMAN.")
    
44. (PRINC)

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

半听可乐

回严大的话： 输入“道路、管线"则切换到道路、管线状态
如果可以出现一个类似第二张截图的列表，通过单击列表里的状态名（不用进一步单击“恢复”）切换相应的图层状态更佳

半听可乐

yjr111 发表于 2013-1-5 00:09
好像还不好搞，搞了一个多小时，惭愧，看看是不是需要的？

正是这个效果！感谢严大又帮了我个大忙！，能不能给个源码或者将命令搞长一点，命令有冲突~~

xiabin68

不错哦，，，，

yjr111

可以吗？可以就上源码！免币下载！

㊣▁▂▃▄▅

大棒了，，楼主大人。

半听可乐

yjr111 发表于 2013-1-5 14:55
可以吗？可以就上源码！免币下载！

何止是可以，简直酷得不行！今天用了不下30次！

xiaxiang

yjr111 发表于 2013-1-5 14:55
可以吗？可以就上源码！免币下载！

严兄，似乎过了很久了也没上源码？现在可以上了吗？

chleiwu

严老大在2楼的程序，下载了怎么只能弹出界面，无法输入任何文字啊