请问CAD 如何做到隐藏图层

82784693@qq.com

请问CAD 如何做到隐藏图层

love1030312

最原始的办法 是 把图层最前面的灯泡 点灰了 图层就隐藏了

鱼与熊掌

1. (vla-put-LayerOn)

复制代码

llsheng_73

不懂什么叫做隐藏图层，隐藏了layer命令都看不到那个图层么？

F4164789

不是我自己编写的在网上下载的，很实用的，选物关层；单独选物开层
(defun C:GF(/ l9_ss l9_ent l9_lay l9_clay ii)
(princ "\n选取隐藏图层参考对象: ")
(setq l9_ss (ssget))
(setq l9_clay (getvar "clayer"))
(setq ii 0)
(command "-layer")
(repeat (sslength l9_ss)
(setq l9_ent (ssname l9_ss ii))
(setq l9_lay (cdr (assoc 8 (entget l9_ent))))
(if (/= l9_lay l9_clay)
(command "off" l9_lay)(command "off" l9_lay"y")
);end if
(setq ii (1+ ii))
);end repeat
(command "")
);end defun layoff
******************************
(DEFUN C:SS(/ N1 N2 N3 N4 N5 N ENT)
    (SETQ N1 (SSGET))
    (SETVAR "CMDECHO" 0)
    (COMMAND "_.UNDO" "BE")
;;;    (SETQ N1 (SSGET))
    (SETQ N2 (SSLENGTH N1))
    (COMMAND "LAYER" "OFF" "*" "Y" "")
    (SETQ N 0)
    (WHILE (> N2 N)
    (SETQ ENT (SSNAME N1 N))
    (SETQ N3 (ASSOC 8 (SETQ N4 (ENTGET ENT))))
    (SETQ N5 (CDR N3))
    (COMMAND "LAYER" "ON" N5 "")
    (COMMAND "LAYER" "SET" N5 "")
    (SETQ N (+ 1 N))
)
  (COMMAND "_.UNDO" "E"))