网上找到一个图层管理工具（类似layoff功能）需优化，请G版和其他高手看看，谢谢！

hh0066

网上找到一个图层管理工具（类似layoff功能），但这个工具比layoff多了个最后确定的步骤，本人尝试过修改但最后还没得到解决，求助各位。
;选物关闭所在图层
(defun C:Layoff (/ ss cnt c en lay)
   (setvar "CMDECHO" 0)
   (setq ss (ssget))
   (setq cnt (sslength ss))
   (setq cnt (1- cnt))
   (setq c 0)
   (while (<= c cnt)
     (setq en (ssname ss c))
     (setq lay (cdr (assoc 8 (entget en))))
     (if (= lay (getvar "CLAYER"))
       (command "-LAYER" "OFF" lay "Y" "")
       (progn
     (command "-LAYER" "OFF" lay "")))
     (setq c (1+ c)))
   (princ))

llsheng_73

1. (defun C:Layoff (/ ss cnt c lys lay layersoff)
   
2.   (defun layersoff(lys / ly);将lys表中的所有图层关闭
   
3.     (foreach x lys
   
4.       (vla-put-layeron(vlax-ename->vla-object (tblobjname "LAYER" x)):vlax-false)))
   
5.    (setq ss(ssget))
   
6.    (setq cnt(sslength ss)c 0 lys nil)
   
7.   (while(< c cnt)
   
8.     (setq lay(cdr (assoc 8(entget(ssname ss c))));;;(setq lay(vla-get-layer(vlax-ename->vla-object(ssname ss c))) lys(if(member lay lys)lys(cons lay lys))也行
   
9.    lys(if(member lay lys)lys(cons lay lys))
   
10.    c(1+ c)))
    
11.   (layersoff lys)
    
12.   )
    

(defun C:Layoff (/ ss cnt c lys lay layersoff)<br />   (defun layersoff(lys / ly);将lys表中的所有图层关闭<br />     (foreach x lys<br />       (vla-put-layeron(vlax-ename->vla-object (tblobjname "LAYER" x)):vlax-false)))<br />    (setq ss(ssget))<br />    (setq cnt(sslength ss)c 0 lys nil)<br />   (while(< c cnt)<br />     (setq lay(cdr (assoc 8(entget(ssname ss c))));;;(setq lay(vla-get-layer(vlax-ename->vla-object(ssname ss c))) lys(if(member lay lys)lys(cons lay lys))也行<br />    lys(if(member lay lys)lys(cons lay lys))<br />    c(1+ c)))<br />   (layersoff lys)<br />   )<br />

hh0066

llsheng_73 发表于 2014-1-9 12:48

和Express的layoff比还是多了最后确认的步骤啊

llsheng_73

hh0066 发表于 2014-1-9 17:21
和Express的layoff比还是多了最后确认的步骤啊

多了最后确认的步骤,不懂

1. (defun C:Layoff (/ e)
   
2.   (while(setq e(car(entsel"\n选择对象关闭所在图层")))
   
3.     (vla-put-layeron(vlax-ename->vla-object(tblobjname "LAYER"(cdr(assoc 8(entget e))))):vlax-false)))

(defun C:Layoff (/ e)<br />   (while(setq e(car(entsel"\n选择对象关闭所在图层")))<br />     (vla-put-layeron(vlax-ename->vla-object(tblobjname "LAYER"(cdr(assoc 8(entget e))))):vlax-false)))

hh0066

llsheng_73 发表于 2014-1-9 17:44
多了最后确认的步骤,不懂

谢谢llsheng_73，上面这个程序能实现Express的layiso功能了，如果能增加多选功能就更好了。

llsheng_73

上边一个不就是多选的么，但你说多了个确认。。。

hh0066

llsheng_73 发表于 2014-1-9 18:15
上边一个不就是多选的么，但你说多了个确认。。。

我明白了，单选的才能选择了就隐藏，多选的最后必须有个确认的步骤。谢谢你的积极参与

llsheng_73

hh0066 发表于 2014-1-10 10:02
我明白了，单选的才能选择了就隐藏，多选的最后必须有个确认的步骤。谢谢你的积极参与

不是对操作关闭图层进行确认，而是你的选择要得到确认它才会结束。。

edata

也可框选不确认就关闭，简单点就模拟框选，复杂点就模拟ssget，不过不确认也就不能对对象筛选。比如选错了，就不能去掉选择。