如何冻结块里面的指定图层？

cxjcqu

请问各位大佬，如何冻结块里面的指定图层？谢谢

huxu823

2. ;[冻结块内图层]-nentsel方式
   
3. (defun C:LFSB ( / acaddocument acadobject actlay en ent lay layersobj TorN vlay)
   
4.   (setq AcadObject (vlax-get-acad-object)
   
5.         AcadDocument (vla-get-ActiveDocument AcadObject)
   
6.         LayersObj (vla-get-layers AcadDocument)
   
7.         Actlay (vla-get-name (vla-get-activeLayer AcadDocument))  ;取得激活的图层
   
8.   )
   
9.   (setvar "ErrNo" 0)
   
10.   (princ "\n请选择需要冻结的图层")
    
11.   (while (/= (getvar "ErrNo") 52)
    
12.     (if (setq en (nentsel "\n请选择需要冻结的图层:"))
    
13.       (progn
    
14.         (setq ent (car en)
    
15.               lay (cdr (assoc 8 (entget ent)))
    
16.               vlay (vla-item LayersObj lay)
    
17.           )
    
18.           (if (/= lay Actlay)
    
19.             (vla-put-freeze vlay :vlax-true)  ;设定图层的冻结状态
    
20.             (setq TorN T)
    
21.           )
    
22.         (if TorN
    
23.           (princ "\n除当前层无法冻结外!已冻结其余选择图层")
    
24.           (princ "\n已冻结选择图层")
    
25.         )
    
26.       )
    
27.     )
    
28.   )
    
29.   (princ)
    
30. )

;[冻结块内图层]-nentsel方式<br /> (defun C:LFSB ( / acaddocument acadobject actlay en ent lay layersobj TorN vlay)<br />   (setq AcadObject (vlax-get-acad-object)<br />         AcadDocument (vla-get-ActiveDocument AcadObject)<br />         LayersObj (vla-get-layers AcadDocument)<br />         Actlay (vla-get-name (vla-get-activeLayer AcadDocument))  ;取得激活的图层<br />   )<br />   (setvar "ErrNo" 0)<br />   (princ "\n请选择需要冻结的图层")<br />   (while (/= (getvar "ErrNo") 52)<br />     (if (setq en (nentsel "\n请选择需要冻结的图层:"))<br />       (progn<br />         (setq ent (car en)<br />               lay (cdr (assoc 8 (entget ent)))<br />               vlay (vla-item LayersObj lay)<br />           )<br />           (if (/= lay Actlay)<br />             (vla-put-freeze vlay :vlax-true)  ;设定图层的冻结状态<br />             (setq TorN T)<br />           )<br />         (if TorN<br />           (princ "\n除当前层无法冻结外!已冻结其余选择图层")<br />           (princ "\n已冻结选择图层")<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

alexmai

试试这个命令：layfrz