[原创]：按要求开关、锁闭图层（可全开全关或全锁全解锁指定的图层）

lgwlgw · 发表于 2006-1-19 00:29:02

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

;| (xl_layonoffb layname onoff)
例：(xl_layonoffb "0,con" nil)
onoff 值为 nil 时只关闭并锁定除打开并解锁除 0,con 两图层，
onoff 值不为 nil 时只打开并解锁除 0,con 两图层以外的图层。
layname 值为 x 时,视 onoff 的值的情况:nil为全开并全解锁、否则全关并全锁定图层。|;
(defun xl_LayOnOffb (layname    onoff          /
      laynamel_replacen          objn
      onoffidn    onofflockn laynameln
      nn
      )
  (defun laynamel_replacen ()
(setq objn (entget (tblobjname "layer" laynamen)))
(if onoff
   (setq onoffidn 4
      onofflockn
      (- 0 (abs (cdr (assoc 62 objn))))
   ) ;_ 结束setq
   (setq onoffidn 0
      onofflockn
      (abs (cdr (assoc 62 objn)))
   ) ;_ 结束setq
) ;if
(setq objn (subst (cons 70 onoffidn)
      (assoc 70 objn)
      objn
         ) ;_ 结束subst
   objn (subst (cons 62 onofflockn)
      (assoc 62 objn)
      objn
         ) ;_ 结束subst
) ;setq
  ) ;defun laynamel_replace
  (setq laynameln (xl_getlaylist))
  (setq nn 0)
  (while (< nn (length laynameln))
(setq laynamen (nth nn laynameln))
(laynamel_replacen)
(entmod objn)
(setq nn (1+ nn))
  ) ;while
  (if (/= layname "x")
(xl_layonoff layname onoff)
  ) ;_ 结束if
  (princ)
)

bluebing · 发表于 2006-1-23 17:18:54

做成LSP就好了

art_ccd · 发表于 2006-9-27 15:40:29

做成一个文件不好吗

seeyouxiaodong · 发表于 2006-9-28 13:09:00

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

很不错，方便实用，多谢。

海洋浪子 · 发表于 2006-9-28 17:43:43

多谢!就是不知道可以套用其它命令不!

quiet_morning · 发表于 2006-9-28 19:25:13

探索者里头有这东西很好用

我们—— · 发表于 2008-4-18 20:33:05

很不错，方便实用，

seany198198 · 发表于 2008-5-8 13:07:05

好东西，感谢共享

tianlu371 · 发表于 2009-3-12 22:11:14

谢谢分享，

ALU · 发表于 2009-3-13 01:13:04

虽然自己用不上，但还是强烈支持楼主无私奉献与共享的精神！！！！！！

cxb · 发表于 2009-10-26 23:47:13

不错,写的好,虽然不太懂

xyz002 · 发表于 2009-11-10 17:16:00

感谢楼主

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

[原创]：按要求开关、锁闭图层（可全开全关或全锁全解锁指定的图层）

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子