求一个能关闭选择层外其他图层的码或程序

yiming61 · 发表于 2011-1-4 01:51:18

求一个能关闭选择层外其他图层的码或程序。最好能在图纸空间和模型空间都能用

caoyin · 发表于 2011-1-4 03:41:32

本帖最后由 caoyin 于 2011-1-4 03:53 编辑

;;方法太多种，用command比较简单，仅在2011版测试通过
(defun c:tt (/ e layMan)
  (if (setq e (entsel "\n选择要隔离的图层上的对象: "))
(progn
   (setq layMan (cdr (assoc 8 (entget (car e)))))
   (command "_.layer" "_off" (strcat "~" layMan))
   (if (= (getvar 'CLAYER) layMan)
      (command "")
      (command "_yes" "")
   )
)
  )
  (princ)
)

yiming61 · 发表于 2011-1-4 04:25:41

正准备上来回复已经从坛子里找到个能用的了。这么晚还在线，多谢版主。

yiming61 · 发表于 2011-1-4 04:27:10

正准备上来回复已经从坛子里找到个能用的了。这么晚还在线，多谢版主。

MJCADLWF · 发表于 2011-1-18 01:46:05

感谢CAOYIN的奉献，已用上谢谢！

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

求一个能关闭选择层外其他图层的码或程序

点评