[LISP函数]：简单化锁定图层、关闭图层

qiaqiadeng · 发表于 2006-7-4 13:48:29

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

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

×

如题：
(defun c:sd (/ ssa index n entity)
  (prompt "\n本程序用来锁定所选图层以外的图层\n")
  (setvar "cmdecho" 0)
  (setq ssa (ssget))
  (command "layer" "lo" "*" "")
  (if ssa
(progn
   (setq n (sslength ssa))
   (setq index (- n 1))
   (repeat n
(setq entity (ssname ssa index))
(setq layername (cdr (assoc 8 (entget entity))))
(if (= index (- n 1))
   (setq str1 layername)
   (progn
      (if (not (wcmatch str1 (strcat "*" layername "*")))
      (setq str1 (strcat str1 "、" layername))
      )
   )
)
(command "layer" "u" layername "")
(setq index (1- index))
   )
   (prompt
(strcat "除" str1 "层外其他均锁定\n")
   )
)
(progn
   (command "layer" "u" "*" "")
   (prompt "\n所有层均解锁\n")
)
  )
  (princ)
)http://800.zbscr.com/?dengyuqing

wangyi168 · 发表于 2009-4-28 18:03:35

试了，运行没问题，但有什么用呢？只能有选择地锁定图层，还得手动关闭
联系我wangyi2613312@163.com

zqb05 · 发表于 2009-5-31 12:00:17

不好
解锁还要一个个解
能不能改成锁定变灰，亮显未锁定

huhuihong123 · 发表于 2009-6-10 21:17:15

看不明白
小菜

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

[LISP函数]：简单化锁定图层、关闭图层

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

相关帖子