请问 批量图层关闭问题

adslwang

有大约40多个图层 ，  我把它加入到LIST中去关闭图层 ， 因为图面单一图层的图圆线条或圆有5~6仟笔
导致在跑的时后会等很久，做法如下：
(SETQ ASDR (LIST '(8 . "1,2,3,4,5,........,46")))   
(SETQ SSAF (SSGET "X" ASDR))
...........
...........找到图元取出图层丢到COMMAND去关闭图层以下省略

最后放弃上面的做法改用最原始的方法
(command "-layer" "off" "1" "off" "2".............. "off" "46" "" "" "")

请问有什么好方法可以一次性的把这46个图层中的41个变成清单给COMMAND使用或者是改变其它的做法
可以让图层关闭可以更快速一点，在图面不手动框选的前提下，不知到各路牛人有没有什么好的方法......

ZZXXQQ

(command "-layer" "off" "1,2,3,4,5,........,46" "")   

Andyhon

(setq Str "#*")
(command "layer" "off" str "")

Str 变量 请参考 WcMatch 函数

另 SysVar Expert 可能也会用得上

adslwang

谢谢  ZZXXQQ版主及Andyhon 论坛长老   您的回復.....学习了....  

adslwang

Andyhon 发表于 2012-7-15 06:27
(setq Str "#*")
(command "layer" "off" str "")

SysVar Expert  没有看过这个函数  可以教一下它的用法嘛

Andyhon

Expert

http://www.google.com/search?as_ ... A%2F%2Fbbs.mjtd.com

adslwang

Andyhon 发表于 2012-7-15 10:37
Expert

http://www.google.com/search?as_q=SetVar&as_epq=Expert&as_oq=&as_eq=&as_nlo=&as_nhi=&lr=&c ...

原来是变数  谢谢长老回覆！