求图层显示转换的LSP
意图：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】 发表于 2013-2-6 16:16 static/image/common/back.gif
这个是帮别人定制过的一个程序
就是重新打开图档时，命令还生效
KAIXIN版见笑了，知道全局变量是有问题，才接触这玩意，不知咋整这个“记忆”功能，
还有那个图层集，也可能有问题
望KAIXIN版不吝指点指点
贱人工具箱有这功能~ 重新打开图档时，命令还生效 看看啊。。。。。。。。 楼上看见了吗？我是没看见啊！ 看看
页:
[1]