反向冻结图层源码

pw_design

2. (defun c:fxdj (/ :vlax-false :vlax-true  acadobj  dwgobj layersobj layn
   
3.          mspace sobj)
   
4.   (acad-activex-base)          ;fxdj=反向冻结
   
5.   (defun acad-activex-base ()
   
6.     (vl-load-com)
   
7.     (setq acadobj (vlax-get-acad-object))
   
8.     (setq dwgobj (vla-get-ActiveDocument acadobj))
   
9.     (setq mspace (vla-get-ModelSpace dwgobj))
   
10.   ) ;_ 结束defun
    
11.   (setq layersobj (vla-get-layers dwgobj))
    
12.   (vlax-for sobj layersobj
    
13.     (setq layn (vla-get-Freeze sobj))
    
14.     (if  (/= (vla-get-name sobj) "0")
    
15.       (progn
    
16.   (cond ((= layn :vlax-true) (vla-put-Freeze sobj :vlax-false))
    
17.         ((= layn :vlax-false) (vla-put-Freeze sobj :vlax-true))
    
18.   ) ;_ 结束cond
    
19.       ) ;_ 结束progn
    
20.     ) ;_ 结束if
    
21.   ) ;_ 结束vlax-for
    
22.   (acad-activex-exit)
    
23.   (defun acad-activex-exit () (vlax-release-object acadobj))
    
24.   (princ)
    
25. )

(defun c:fxdj (/ :vlax-false :vlax-true  acadobj  dwgobj layersobj layn<br />          mspace sobj)<br />   (acad-activex-base)          ;fxdj=反向冻结<br />   (defun acad-activex-base ()<br />     (vl-load-com)<br />     (setq acadobj (vlax-get-acad-object))<br />     (setq dwgobj (vla-get-ActiveDocument acadobj))<br />     (setq mspace (vla-get-ModelSpace dwgobj))<br />   ) ;_ 结束defun<br />   (setq layersobj (vla-get-layers dwgobj))<br />   (vlax-for sobj layersobj<br />     (setq layn (vla-get-Freeze sobj))<br />     (if  (/= (vla-get-name sobj) "0")<br />       (progn<br />   (cond ((= layn :vlax-true) (vla-put-Freeze sobj :vlax-false))<br />         ((= layn :vlax-false) (vla-put-Freeze sobj :vlax-true))<br />   ) ;_ 结束cond<br />       ) ;_ 结束progn<br />     ) ;_ 结束if<br />   ) ;_ 结束vlax-for<br />   (acad-activex-exit)<br />   (defun acad-activex-exit () (vlax-release-object acadobj))<br />   (princ)<br /> )

源码有点缺陷。如下图

start4444

999999 发表于 2021-5-14 10:37
就是您现在实现的这个代码的功能能否，改成批量框选，目前您的是单选的

用楼主的代码函数就能实现

(defun c:tt5 (/ acadobj dwgobj en i layersobj layson mspace ss);;反向冻结所选图层
        (vl-load-com)
        (setq acadobj (vlax-get-acad-object))
        (setq dwgobj (vla-get-ActiveDocument acadobj))
        (setq mspace (vla-get-ModelSpace dwgobj))
        (setq layersobj (vla-get-layers dwgobj))
        (setq ss (ssget))
        (command "clayer" (cdr (assoc 8 (entget (ssname ss 0)))))
        (setq i -1 layson '())
        (while (setq en (ssname ss (setq i (1+ i))))
                (setq layson (cons (cdr (assoc 8 (entget en))) layson))
        )
        (vlax-for sobj layersobj
    (if  (not (member (vla-get-name sobj) layson))
                        (vla-put-Freeze sobj :vlax-true)
    )
  )
        (princ)
)

start4444

直接命令就可以，不用那么复杂

(defun c:tt5 ()
(command "clayer" (cdr (assoc 8 (entget (car (entsel "\n选对象："))))) "layer" "f" "*" ""))
(defun c:tt55 ()
(command  "layer" "t" "*" ""))

pw_design

我必须re一下才能出现已经解锁图层的对象，求各位大佬告知一下如何才能优化这一步

pw_design

start4444 发表于 2019-10-9 18:02
直接命令就可以，不用那么复杂

(defun c:tt5 ()

我这个是直接冻结  不选对象的

999999

start4444 发表于 2019-10-9 18:02
直接命令就可以，不用那么复杂

(defun c:tt5 ()

您好，大神，请问是否可以实现批量反冻结呢，目前单选是很实用的，可否改成可以批量实现呢

999999

999999 发表于 2021-5-14 10:21
您好，大神，请问是否可以实现批量反冻结呢，目前单选是很实用的，可否改成可以批量实现呢

就是您现在实现的这个代码的功能能否，改成批量框选，目前您的是单选的

999999

start4444 发表于 2021-5-14 18:29
用楼主的代码函数就能实现

(defun c:tt5 (/ acadobj dwgobj en i layersobj layson mspace ss);;反向 ...

谢谢大神，这个就是我想要的效果，