求图层显示转换的LSP

vip-happy

意图：
1、先通过选取对象获得图层集，
2、对图层集中的所有图层进行关闭，打开，冻结，锁定等操作

如：对图层集中所有图层进行打开，同时需要对当前图形中图层集以外的图层作相反的关闭处理，而不需要重新选对象，还能反复打开，关闭操作。

看了些资料，组合了部分代码，测试通不过，求指点：


;;***************图层全开
(defun C:tcqk()
  (command "-layer" "on" "*" "")
  (setvar "clayer" "0")
  (princ))
;;***************关闭选取对象所在的图层
(defun c:gbdxtc (lay_s lay_not / obj lay lay_sn lay_C x)
(if (not (tblsearch "layer" "Defpoints"))
    (command "-layer" "m" "Defpoints")
)
    (setvar "clayer" "Defpoints")
(setq obj    (entsel  "\n请选择需要关闭图层中的一个对象:  ")
       lay_C  (getvar "clayer")
       lay_s   ""
       lay_not "")
(while (/= obj "")
    (setq obj (entget (car obj)))
    (setq lay (cdr (assoc 8 obj)))
  (if (= lay_C lay)
    (command "-layer" "off" lay "y" "")
    (progn
       (command "-layer" "off" lay "")
      (setq lay_s (append lay_s (list lay)))
    )
  )
(setq obj (entsel "\n请选择需要关闭图层中的一个对象:  "))
)
(setq lay_all (table "layer"))
(setq lay_sn  (append lay_s (list lay_C)))
(foreach x lay_all
   (if (not (member x lay_sn))
       (setq lay_not (append  (list x)))
   )
)
(princ))
;;***************关闭选集的图层
(defun C:gbxjtc( lay_s lay_not / n )
(setq n -1)
(repeat (length lay_not)
(command "-layer" "on" (nth (setq n (1+ n)) lay_not) "" )
)
(setq n -1)
(repeat (length lay_s)
(command "-layer" "on" (nth (setq n (1+ n)) lay_s) "" )
)
(princ))
;;***************打开选集的图层
(defun C:Dkxjtc(  lay_s lay_not / n )
(setq n -1)
(repeat (length lay_s)
(command "-layer" "on" (nth (setq n (1+ n)) lay_s) "" )
)
(setq n -1)
(repeat (length lay_not)
(command "-layer" "on" (nth (setq n (1+ n))) lay_not "" )
)
(princ))

【KAIXIN】

这个是帮别人定制过的一个程序

就是重新打开图档时，命令还生效

vip-happy

【KAIXIN】 发表于 2013-2-6 16:16
这个是帮别人定制过的一个程序

就是重新打开图档时，命令还生效

KAIXIN版见笑了，知道全局变量是有问题，才接触这玩意，不知咋整这个“记忆”功能，

还有那个图层集，也可能有问题

望KAIXIN版不吝指点指点

weiqi

贱人工具箱有这功能~

mono

重新打开图档时，命令还生效

世界一角的你

看看啊。。。。。。。。

vlisp2012

楼上看见了吗？我是没看见啊！

TPG辉

gmfxz

看看