求一个控制特定几个图层的程序！

fire9527

出于更换底图以及分类查看图纸的需要，可不可以编写这样的程序，用来控制特定图层的开关？
图层名称可以方便的自行添加，可以使用通配符，比如带前缀a、前缀b的一系列图层
使用时输入快捷键1，则关闭特定图层，输入快捷键2，则关闭特定图层以外的图层

kwok

来个简单的，
(defun c:Lay2 ();;关闭特定层外的
  (setvar 'cmdecho 0)
  (command "layer" "off" "*" "n" "")
  (command ".layer" "off" (getvar "clayer") "y" "")
  (command
    "layer"
    "on"
    "图层1,图层2,图层3," "");;这里图层可以自己加
  (setvar 'cmdecho 1)
  (princ)
)
(defun c:Lay1 ();;关闭特定层
  (setvar 'cmdecho 0)
(setvar "Expert" 1)
  (command "layer" "off" "图层1,图层2,图层3," "");;这里图层可以自己加
(setvar "Expert" 0)
  (setvar 'cmdecho 1)
  (princ)
)

wowan1314

找个关闭选择图层的程序改下就可以啦！

fire9527

wowan1314 发表于 2013-4-29 21:48
找个关闭选择图层的程序改下就可以啦！

朋友，小弟不会啊~~

完整武器

继续帮顶，楼主几个帖子我也感兴趣！！

xsso

1. 
   

复制代码

1. ;;输入1后,如果想只显示a为前缀的图层，输入a*，如果图层为a-，可以输入a*、也可以a-*，模糊越大范围越大
   
2. (defun c:1(/ lay)
   
3.   (setq lay (GETSTRING "\n输入想独显图层的前缀： "))
   
4.   (lay_iso_* lay)
   
5.   )
   
6. 
   
7. ;;这是隐藏指定前缀的图层
   
8. (defun c:2(/ lay)
   
9.   (setq lay (GETSTRING "\n输入想独显图层的前缀： "))
   
10.   (lay_off_* lay)
    
11.   )
    
12. ;;全开图层
    
13. (defun c:3(/ lay)
    
14.   (lay_iso_* "*")
    
15.   )
    
16. ;;下面为扩展用,如果不止一种前缀应用以下两个，填入想操作的图层即可
    
17. (defun c:5(/ lay)
    
18.   (lay_iso_* (list "a*" "b*"))
    
19.   )
    
20. 
    
21. (defun c:6(/ lay)
    
22.   (lay_off_* (list "a*" "b*"))
    
23.   )

;;输入1后,如果想只显示a为前缀的图层，输入a*，如果图层为a-，可以输入a*、也可以a-*，模糊越大范围越大<br /> (defun c:1(/ lay)<br />   (setq lay (GETSTRING "\n输入想独显图层的前缀： "))<br />   (lay_iso_* lay)<br />   )<br /> <br /> ;;这是隐藏指定前缀的图层<br /> (defun c:2(/ lay)<br />   (setq lay (GETSTRING "\n输入想独显图层的前缀： "))<br />   (lay_off_* lay)<br />   )<br /> ;;全开图层<br /> (defun c:3(/ lay)<br />   (lay_iso_* "*")<br />   )<br /> ;;下面为扩展用,如果不止一种前缀应用以下两个，填入想操作的图层即可<br /> (defun c:5(/ lay)<br />   (lay_iso_* (list "a*" "b*"))<br />   )<br /> <br /> (defun c:6(/ lay)<br />   (lay_off_* (list "a*" "b*"))<br />   )

加载下面两个文件即可，希望楼主不是白菜

xsso

你的另一个关联图层的那个都可以通过 5、6来完成，至于图层关联就要你自己来编写

fire9527

xsso 发表于 2013-4-30 00:43
你的另一个关联图层的那个都可以通过 5、6来完成，至于图层关联就要你自己来编写

谢谢你的帮助！测试了下，5，6有点问题：后面添加的图层信息不管用，只认第一个
很感动你还关注了我那个关联图层的帖子，如果关联图层想通过程序5、6来实现，图层分组信息如何添加？

xsso

因为昨晚太晚了，所以没有测试清楚，现在已经重新上传 图层控制.fas，覆盖原来的就可以
用5、6来分组，如果想将a1、a2、a3、b1篇成一个组就将它们写到5或6中，因为它不一定要模糊填写图层名，你可以将你想要的图层名完整填入

fire9527

xsso 发表于 2013-4-30 00:23
加载下面两个文件即可，希望楼主不是白菜

刚又测试了下，程序6对于关闭当前图层来说会出现一个选择菜单，感觉不太好，如果能处理当前图层问题那就锦上添花了，希望大侠再费点心，这个东西出来之后想必会很受欢迎的