CAD图层冻结与解冻的疑问

llsheng_73

由于以前没在程序中对图层进行冻结，今天为了根据需要把所指定的几个图层on，UnFreeze，UnLock等，为了查程序效果，结果在我手动把图层冻结后再解冻开来一看，那个图层上什么东东都没了，是它本来就这样还是我的CAD出了问题？
子过程如下，经测试程序没问题，但图层上的图元全部丢夫不知道什么原因
(defun layeron(lys / a);;将lys表中的所有图层解冻、解锁、打开
   (vlax-for n(vla-get-layers(vla-get-ActiveDocument(vlax-get-acad-object)))
     (setq a(vla-get-name n))
     (if(member a lys)
       (progn
         (vla-put-lock n :vlax-false)
         (vla-put-layeron n :vlax-true)
         (if(/=(getvar"CLAYER")a)(vla-put-Freeze n :vlax-false))
         )))
  )

Gu_xl

Regen重显一下

llsheng_73

Gu_xl 发表于 2013-11-16 08:07
Regen重显一下

谢谢G版，昨晚出现那情况只是全屏了几次没看到东西就给弄晕了，这会它又不出现那情况了，以后会记住碰到问题多用些手段进行检查，比如（ssget "X" '(( 8 . "图层")))

adc

这个函数要怎么用？(layeron(“图层1” 图层2“))是这样吗？

llsheng_73

adc 发表于 2013-12-27 15:30
这个函数要怎么用？(layeron(“图层1” 图层2“))是这样吗？

(layeron‘(“图层1” 图层2“))

adc

列表里的图层如果实际不存在，函数就不能正常使用，请问要怎样处理？

llsheng_73

adc 发表于 2013-12-28 16:34
列表里的图层如果实际不存在，函数就不能正常使用，请问要怎样处理？

先用(tblsearch "layer" “图层名")对图层进行检查。。。

adc

llsheng_73 发表于 2013-12-30 10:06
先用(tblsearch "layer" “图层名")对图层进行检查。。。

这里处理完也只是找不到图层就不执行，我是希望列表中如果有图层不存在，其他图层也可以正常打开，能这样处理吗？谢谢

edata

adc 发表于 2013-12-30 13:02
这里处理完也只是找不到图层就不执行，我是希望列表中如果有图层不存在，其他图层也可以正常打开，能这样 ...

试试这个。。。

2. (defun c:tt()
   
3.   (slayon '("wall" "DJ灯具")))
   
4. 
   
5. (defun slayon (lays / n obj)
   
6.   (vl-load-com)
   
7.   (if (listp lays)
   
8.     (foreach n lays
   
9.       (if (and (tblsearch "layer" n)
   
10.                (setq obj(vlax-ename->vla-object(tblobjname "layer" n))))
    
11.         (progn
    
12.           (vla-put-lock obj :vlax-false)
    
13.           (vla-put-layeron obj :vlax-true)
    
14.           (if (= (vla-get-Freeze obj) :vlax-True)
    
15.             (vla-put-Freeze obj :vlax-false))
    
16.         ) ;_ end of progn
    
17.       ) ;_ end of if
    
18.     ) ;_ end of foreach
    
19.   ) ;_ end of if
    
20. ) ;_ end of defun

(defun c:tt()<br />   (slayon '("wall" "DJ灯具")))<br /> <br /> (defun slayon (lays / n obj)<br />   (vl-load-com)<br />   (if (listp lays)<br />     (foreach n lays<br />       (if (and (tblsearch "layer" n)<br />                (setq obj(vlax-ename->vla-object(tblobjname "layer" n))))<br />         (progn<br />           (vla-put-lock obj :vlax-false)<br />           (vla-put-layeron obj :vlax-true)<br />           (if (= (vla-get-Freeze obj) :vlax-True)<br />             (vla-put-Freeze obj :vlax-false))<br />         ) ;_ end of progn<br />       ) ;_ end of if<br />     ) ;_ end of foreach<br />   ) ;_ end of if<br /> ) ;_ end of defun

adc

edata 发表于 2013-12-30 14:45
试试这个。。。