申请编程：冻结选定层以外的所有层！

tcht

请高手帮忙，我经常想把某一个层以外的层都冻结，只剩下我选的层，方便画图

sony-lin

我只见过 某一个层以外的层都关闭     只剩下我选的层，方便画图

peridot

上传不了,给我发邮件,我传给你alex@peridot.com.cn

hxjhzm

<BR>(DEFUN C:DW(/ VAR1 VAR2 O A P Q)  ;功能:冻结非物体所在layer<BR>  (SETQ VAR1 (GETVAR "BLIPMODE"))<BR>  (SETQ VAR2 (GETVAR "CMDECHO"))<BR>  (SETVAR "BLIPMODE" 0)<BR>  (SETVAR "CMDECHO"  0)<BR>  (PRINC "\n 冻结非物体所在层: ")<BR>  (SETQ O (ENTSEL))<BR>  (SETQ A (ENTGET (CAR O)))<BR>  (SETQ P (CDR (ASSOC 8 A)))       ;物体所在层<BR>  (COMMAND "-LAYER" "S" P "")<BR>  (COMMAND "-LAYER" "F" "*" "")<BR>  (SETVAR "BLIPMODE" VAR1)<BR>  (SETVAR "CMDECHO"  VAR2)<BR>  (PRINC "\nOK!")(PRINC)<BR>)<BR>(DEFUN C:TA()<BR>  (SETVAR "CMDECHO" 0)<BR>  (PRINC "\n 解冻!!!")<BR>  (COMMAND "-LAYER" "T" "*" "")<BR>  (PRINC "\nOK!")(PRINC)<BR>)

dengqiaqia

(defun *$dyq-error$* (msg)
  ;(command ".undo" "")
  (setq *error* &olderr&)
  ;(princ)
)
(defun c:sd (/ layerlist ss num n lname prinname)
  ;锁定所选图层以外的图层
  (prompt
    "\n请选择不要锁定的图层,要解锁所有图层请直接按右键："
  )
  (setq &olderr& *error*)
  (setq *error* *$dyq-error$*)
  (setq layerlist (list "0"))
  (if (setq ss (ssget))
    (progn
      (setq num (sslength ss))
      (setq n 0)
      (repeat num
 (setq lname (cdr (assoc '8 (entget (ssname ss n)))))
 (if (not (member lname layerlist))
  ;如果对象的图层名已经存在则不再加入列表
   (setq layerlist (cons lname layerlist))
 )
 (setq n (+ n 1))
      )
      (command "-layer" "lo" "*" "")
      (setq num (length layerlist))
      (setq prinname "")
      (setq n 0)
      (repeat (- num 1)
 (command "-layer" "u" (nth n layerlist) "")
 (if (= n 0)
   (setq prinname (nth n layerlist))
   (setq prinname (strcat (nth n layerlist) "、" prinname))
 )
 (setq n (+ n 1))
      )
      (prompt
 (strcat "\n除"
  (itoa (- num 1))
  "个图层外，其他均锁定了:"
  prinname
 )
      )
    )
    (progn
      (princ "\n所有图层均解锁了!")
      (command "-layer" "u" "*" "")
    )
  )
  (setq *error* &olderr&)
  (princ)
)

dengqiaqia

好像是从XD里down的我的代码吧，哈哈。

天龙八部

程序也可以这样啊！冻结选定的层以外的所有的层，就是反向冻结层，只可看见所选择的层中的对象

　　dim ppsetmm as acadentity

　.......　　'略    选择集操作

     dim ppsetaa as acadlayer

    for each ppsetaa in thisdrawing.layers

     if ppsetaa.name<>ppsetmm.layer then

          ppsetmm.freeze=true

     end if

      就这么简单