[求助]：图层的层全部打开或关闭方式

Bluesky999 · 发表于 2003-1-9 11:03:23

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

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

×

请教各位：有什么方式让各图层的层全部打开或关闭，或选其一而其他的全部打开或关闭

yy225cn · 发表于 2003-1-9 11:15:30

R14版本完全安装的 BONUS（扩充）工具里面有
2000 或 2002 在ExpressTools工具里面

Bluesky999 · 发表于 2003-1-9 11:20:26

谢谢楼上的，能说具体点吗，就2002cad 系统来说吧

zhynt · 发表于 2003-1-9 11:21:05

在没有出现r14之前我是这样做的：

;;;
;;; 将选定实体所在的图层关闭
;;;
(defun c:OL (/ lname e h)
(setvar "cmdecho" 0)
(setq lname (getvar "clayer"))
(setq e (car (entsel "\n选择图层所在的实体 :")))
(if e
(progn
(setq h (dxf 8 (entget e)))
(if (equal h lname)
(command "layer" "off" h "y" "")
(command "layer" "off" h "" )
)
)
(princ "\n没有选到实体!按回车继续.")
)
(setvar "cmdecho" 1)
(princ)
)

不过现在觉得还是很好用。

;;;
;;; 打开所有的图层
;;;
(defun C:kl ()
(setvar "cmdecho" 0)
(command "layer" "on" "*" "")
(setvar "cmdecho" 1)
(princ)
)

yy225cn · 发表于 2003-1-9 11:24:02

不用谢，只要人人都献出一片爱心，我们都会越来越快乐的，是吗，欢迎常来

2002 你在网站上下一个 AutoCAD 2000+的ExpressTools工具最新版1.9英文正式版+汉化终结版
地址 http://www.xdcad.net/down/show.php?id=221

如果还有问题的话，就提出来好了，会有很多人愿意帮你的

zhynt · 发表于 2003-1-9 12:33:37

啊，我知道了:)，原来:k是发泄的意思，晕，我干吗要发泄呀，我是:l

XDSoft · 发表于 2003-1-9 17:38:54

最初由 zhynt 发布
[B]啊，我知道了:)，原来:k是发泄的意思，晕，我干吗要发泄呀，我是:l [/B]

那些是你的代码里面有符号和表情符重复了，你去编辑帖子，把“禁止表情符”勾上，就可以了。

zhynt · 发表于 2003-1-10 01:29:03

呵呵，好了，原来是这样的。我太粗心了。

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

[求助]：图层的层全部打开或关闭方式

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

相关帖子