[求助]：求高手写个程序，关于冻结当前图层！！！

lingduwx

求高手写个程序，关于冻结当前图层！！！

要求：求高手写个程序，输入命令后，在当前视口内不冻结某个图层，而冻结其他所有视口内的此图层，万分感谢！

yangist

;只显示被选对象所在层
(DEFUN C:QQQ(/ ES EN EL A)
(princ "请选择对象，未被选中的对象所在的层将被锁定")
(setq ES (ssget) A 0 EN "" EL nil FL nil)
(while (/= EN nil)
(setq EN (ssname ES A) EL (cons EN EL) A (1+ A)))
(setq EL (cdr EL) FL (cdr (assoc ' 8 (entget (car EL)))) EL (cdr EL))
(repeat (- A 2)
(setq EN (cdr (assoc ' 8 (entget (car EL))))
  FL (strcat EN "," FL) EL (cdr EL)) )
(command "LAYER" "LO" "*" "U"  (eval FL) "")
(princ))

sicky111

当前层不能被冻结，可以关闭。

st788796

Get the per-viewport frozen layers for paper space viewports in LispThe frozen layers of current viewport are stored in the XDATA of the paperspace viewport object. The registered application name is "ACAD".
In the XDATA, group code 1003 is used to store the layer name. The following code shows how to retrieve this information:
[pcode=lisp,true]
(defun c:ListVPFreezeLayers ()   
   (setq psEnt (tblobjname "block" "*PAPER_SPACE"))     
   (setq ent (entnext psEnt))     
   (setq ent (entnext ent))     
   (setq lst (entget ent '("*")))     
   (setq ename (cdr (assoc 0 lst)))     
   (setq i 0)     
   (while (/= ent nil)     
      (setq lst (entget ent '("*")))     
      (setq ename (cdr (assoc 0 lst)))     
      (if (= ename "VIEWPORT")     
         (progn     
            (setq i (+ i 1))     
            (print)     
            (princ "Frozen layers of No. ")     
            (princ i)     
            (princ " viewport are:")     
            (setq lst (cdadr (assoc -3 lst)))     
            (foreach memb lst     
               (if (= 1003 (car memb))     
                  (print (cdr memb))     
               )     
            )     
            (print)     
         )     
      )     
      (setq ent (entnext ent))     
   )     
   (print)     
)
[/pcode]


VPLAYER

设置视口中图层的可见性。
提示列表

将显示以下提示：
输入选项 [?/颜色(L)/线型(C)/线宽(LW)/打印样式(PS)/透明度(TR)/冻结(F)/解冻(T)/重置(R)/新建冻结(N)/视口默认可见性(V)]:
在“模型”布局中，VPLAYER 命令有两个选项。
输入选项 [新建冻结(N)/视口默认可见性(V)]:
?—列出冻结图层

显示选定视口中冻结图层的名称。
颜色

更改与图层关联的颜色。
真彩色
指定用于选定对象的真彩色。
配色系统
从已加载的配色系统中指定用于选定对象的颜色。
全部
将修改应用到所有视口中。
选择
将修改应用到选定的视口中。
当前
仅将修改应用到当前视口中。
线型

更改与图层关联的线型。
全部
选择
当前
线宽

更改与图层关联的线宽。
如果输入的线宽无效，则当前线宽将被设为最接近的固定线宽值。
如果要使用固定线宽值列表中找不到的自定义线宽来打印对象，则可以用打印样式表编辑器来自定义打印线宽。
全部
选择
当前
打印样式

设定为图层指定的打印样式。如果当前图形中使用的是颜色相关打印样式（PSTYLEPOLICY 系统变量设定为 1），则该选项不可用。请参见《用户手册》中的使用打印样式控制打印对象。
全部
选择
当前
透明度

更改与图层关联的透明度级别。
全部
选择
当前
冻结

在一个视口或多个视口中冻结一个或一组图层。不显示、不重生成或不打印冻结图层上的对象。
全部
选择
当前
当前以外。冻结跨所有布局的所有视口中的指定图层，但当前视口中的图层除外。
解冻

解冻指定视口中的图层。
全部
选择
当前
重置

将指定视口中图层的可见性设定为它们当前的默认设置。
全部
选择
当前
新建冻结

创建在所有视口中都被冻结的新图层。
视口默认可见性

解冻或冻结在后续创建的视口中指定的图层。
相关主题

冻结布局视口中的指定布局

XDSoft

sicky111 发表于 2013-6-14 01:09
当前层不能被冻结，可以关闭。

可以设0层为当前层，然后冻结那个。

sicky111

XDSoft 发表于 2013-6-14 08:18
可以设0层为当前层，然后冻结那个。

那就不叫冻结当前层了，楼主出的是一个假命题。

Free-Lancer

LZ 说的是视口内Freeze，这个没有当前限制的，查看 Vplayer 命令选项

sicky111

1. ;;;冻结当前层  sicky111 2013.06.14
   
2. (defun C:TT (/ en lay clay)
   
3.   (setvar "cmdecho" 0)
   
4.   (princ "\n请选择要冷冻的图层...")
   
5.   (setq en (entget (car (entsel)))
   
6.         lay (cdr (assoc 8 en))
   
7.         clay (getvar "CLAYER")
   
8.   )
   
9.   (if (= clay lay)
   
10.     (command ".layer" "s" "0" "f" lay "")
    
11.   )
    
12.   (princ "\n该图层已冷冻!")
    
13.   (setvar "cmdecho" 1)
    
14.   (prin1)
    
15. )

;;;冻结当前层  sicky111 2013.06.14<br /> (defun C:TT (/ en lay clay) <br />   (setvar "cmdecho" 0)<br />   (princ "\n请选择要冷冻的图层...")<br />   (setq en (entget (car (entsel)))<br />         lay (cdr (assoc 8 en))<br />         clay (getvar "CLAYER")<br />   )<br />   (if (= clay lay)<br />     (command ".layer" "s" "0" "f" lay "")<br />   )<br />   (princ "\n该图层已冷冻!")<br />   (setvar "cmdecho" 1)<br />   (prin1)<br /> )

関吣

sicky111 发表于 2013-6-14 10:45

命令在2006版本测试无效~~~

linmw

这个不麻烦吧

shijangjiang

同求！！！！