求写个图层关闭代码？？？？

lpl · 发表于 2013-11-13 15:02

要求：可以选择多个对象图层保留显示，未被选择的其它图层进行关闭.............效果如下图

52CAD · 发表于 2013-11-13 16:35

本帖最后由 52CAD 于 2013-11-13 16:38 编辑

关闭其它层

<blockquote>(defun c:layc(/ q)
(prompt "\n请选择要保留的图层,要显示所有图层请直接按右键：")
(setq ss (ssget))
(if (/= ss nil)
(progn
(setq num (sslength ss))
(setq n 0)
(command "layer" "off" "*" "y" "on" "" "")
(repeat num
(setq entlist (entget (ssname ss n)))
(setq lname (cdr (assoc 8 entlist)))
(command "layer" "on" lname "")
(setq n (+ n 1))
)
(prompt (itoa num))
)
(command "layer" "on" "*" "")
)(princ)
)

tianyi1230 · 发表于 2013-11-13 19:27

阿甘的图层工具，试试，基本的都有了。
http://bbs.mjtd.com/thread-94056-1-1.html

香田里浪人 · 发表于 2013-11-13 20:04

;AD ***** 只显示选定的图层
(defun c:AD(/ x)
(setvar "cmdecho" 0)
(setq x (entsel "\n 选择只显示一个层:"))
(command "layer" "set" (cdr(assoc 8 (entget(car x)))) "")
(command "layer" "unlock" (cdr(assoc 8 (entget(car x)))) "")
(command "layer" "off" "*" "" "")
(setvar "cmdecho" 1)
)
;---------------------------------------------
(defun c:fa();;显示全部图层

(command "layer" "t" "*" "on" "*" "u" "*" "")
(command "layer" "off" "0paperf" ""))
;;QW *****显示选定的多个图层
(defun C:qw( / oce a1 a2 a3 i a4 a5)

  (graphscr)
  (setq oce (getvar "cmdecho"))
  (setvar "cmdecho" 0)

  (prompt "\n选择不需要对象（层）:")
  (setq a1(ssget))
  (if a1
(progn
   (setq a4 (ssname a1 0))
   (setq a5 (cdr (assoc 8 (entget a4))))
   (command "LAYER" "S" a5 "")
   (command "LAYER" "OFF" "*" "" "")
   (setq i 0)
   (repeat (sslength a1)
      (setq a3 (ssname a1 i))
      (setq a2 (cdr (assoc 8 (entget a3))))

      (command "LAYER" "ON" a2"")
      (setq i (1+ i))
   )
   ;(princ a2)
)
(princ " Nothing selected.")
  );end if a1
  (setvar "cmdecho" oce)
  (princ)
)

dingtiedt · 发表于 2015-6-2 21:43

格式/图层里，都有这些操作，把他们设置成快捷键，也蛮方便的

tumu2008323 · 发表于 2015-6-3 18:12

隔离不就可以了吗？

账号		自动登录	找回密码
密码			注册

[源码] 求写个图层关闭代码？？？？

本帖子中包含更多资源