求助图层开关：按一下关指定图层，再按一下开指定图层

pb.v@163.com · 发表于 2011-6-22 09:08:16

求助图层开关：按一下关指定图层，再按一下开指定图层
我是做五金模具设计的，有一个料带层，经常要打开再关掉，所以想要一个命令LISP，输入一下这个命令，料带层关掉，再输入一下料带层就打开，如果反复，即如果料带层是关的，那输这个命令就开料带层；如果料带层是开的，那输这个命令就关料带层。这个功能是可以实现的，因为TsaiPress这个软件实现在这个功能，但是我没有用那个软件。求高手帮忙写一个吧

gf123 · 发表于 3 天前

这个控制图层不错

Andyhon · 发表于 2011-6-22 09:21:26

菜单内添加

[隐藏料带配置]'-Layer off 料带层;;
[重现料带配置]'-Layer on ff t 料带层;;

zhynt · 发表于 2011-6-22 12:08:15

(defun C:kg ()
(if (> (cdr (assoc 62 (entget (TBLOBJNAME "LAYER" "料带层"))))
0
)
(if (= (getvar "CLAYER") "料带层")
(command "layer" "off" "料带层" "y" "")
(command "layer" "off" "料带层" "")
)
(command "layer" "on" "料带层" "")
)
)

lincctw_ccl · 发表于 2011-6-22 13:23:14

回复 zhynt 的帖子

(command "layer" "off" "料带层" "y" "")..
请教改成冻结程序会无效
是否这程序不可用在冻结?
谢谢!!

zhynt · 发表于 2011-6-22 14:45:23

当前图层是不能冻结的。

(defun C:dj ()
(if (= (cdr (assoc 70 (entget (TBLOBJNAME "LAYER" "料带层"))))
0
)
(if (= (getvar "CLAYER") "料带层")
(progn
(setvar "CLAYER" "0")
(command "layer" "f" "料带层" "")
)
(command "layer" "f" "料带层" "")
)
(command "layer" "t" "料带层" "")
)
)

lincctw_ccl · 发表于 2011-6-22 14:52:54

回复 zhynt 的帖子

谢谢!!!
又学到了一招关于 TBLOBJNAME的用法

pb.v@163.com · 发表于 2011-6-23 13:55:54

zhynt 发表于 2011-6-22 12:08

真的是太好用啦，真是好人啊，非常的感谢，

，有劳大哥了

pb.v@163.com · 发表于 2011-6-23 14:12:15

不知道为什么，这个程序用在CAD2009，料带层处于当前层时就用不了，一用就弹出个对话选择框，

zhynt · 发表于 2011-6-23 14:16:13

回复 pb.v@163.com 的帖子

你说的是关闭还是冻结？我是在2012上做的，我想2009应该没问题才是

pb.v@163.com · 发表于 2011-6-23 14:23:23

回复 zhynt 的帖子

关闭的那个，当前图层的情况下会出现一个选项条

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

求助图层开关：按一下关指定图层，再按一下开指定图层

评分

评分