社区 › AutoLISP/Visual LISP 编程技术 › 求助图层开关：按一下关指定图层，再按一下开指定图层

pb.v@163.com 发表于 2011-7-12 15:52:50

回复 zhynt 的帖子

大哥，再次求助一下，现在这个IISP是针对再一个图层，能不能改成按一下一起打开指定的几个图层，再按一个关掉呢，谢谢，感激不尽

Andyhon 发表于 2011-7-12 16:14:08

...按一下一起打开指定的几个图层...

按一下一起打开指定的几个图层!?
图层关了不就看不到了吗?
您有何妙计,如何指定? 已有对策?

pb.v@163.com 发表于 2011-7-12 16:26:47

;;-----------------------------------------------------------------------------------------------
;;上模座开关
;;-----------------------------------------------------------------------------------------------
(defun C:1 ()
(SetVar "Expert" 1)
(if (MinusP (cdr (assoc 62 (entget (TBLOBJNAME "LAYER" "UP")))))
      (command "layer" "on" "UP" "")
      (command "layer" "off" "UP" "")
   )
(if (MinusP (cdr (assoc 62 (entget (TBLOBJNAME "LAYER" "UP_O")))))
      (command "layer" "on" "UP_O" "")
      (command "layer" "off" "UP_O" "")
   )
(if (MinusP (cdr (assoc 62 (entget (TBLOBJNAME "LAYER" "UP_W")))))
      (command "layer" "on" "UP_W" "")
      (command "layer" "off" "UP_W" "")
   )
   (SetVar "Expert" 0)
   (princ)
)

已经解决了，我随便试试，没想到也成的哦，我做五金冲压模的，画图的时候是所有图层叠在一起画，经常要开了又关，关了又开，比如说下面这个图，几十个图层叠在一起：

pb.v@163.com 发表于 2011-7-12 16:28:09

回复 Andyhon 的帖子

谢谢你的帮忙，不知道有没有办法更简短一点呢，

Andyhon 发表于 2011-7-12 16:45:24

本帖最后由 Andyhon 于 2011-7-12 17:00 编辑

若是有许多同步开关的图层
if 的判断式 只选用其中之一即可

转用 Button 也是一途 ...

zhengxiansz 发表于 2013-4-12 13:27:22

本帖最后由 zhengxiansz 于 2013-4-15 09:05 编辑

pb.v@163.com 发表于 2011-7-12 16:26 static/image/common/back.gif
;;-----------------------------------------------------------------------------------------------
; ...
我发现了一个问题。如果你所设置的这些图层其中一个或多个被关闭了的话。在使用这个功能使本来要关的图层它就会打开。本来想要开的图层它就会关掉。所以请版主在修改一下。谢谢

gf123 发表于 7 天前

这个控制图层不错

查看完整版本: 求助图层开关：按一下关指定图层，再按一下开指定图层