[分享]：■可锁定除所选实体所在层外所有层的程序■

zhuquanmao · 发表于 2004-10-7 12:54:12

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

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

×

[PHP];;; 锁住其他层
(defun c:loc (/ ssa index n entity)
(setvar "cmdecho" 0)
(command "layer" "lo" "*" "")
(setq ssa (ssget))
(setq n (sslength ssa))
(setq index (- n 1))
(repeat n
(setq entity (ssname ssa index))
(command "layer" "u" (cdr (assoc 8 (entget entity))) "")
(setq index (1- index))
)
(princ)
) [/PHP]

andyhua5240 · 发表于 2004-10-7 14:53:11

最好有相对应的解锁程序！
谢谢！

zhuquanmao · 发表于 2004-10-7 20:50:58

最初由 andyhua5240 发布
[B]最好有相对应的解锁程序！
谢谢！ [/B]

无所谓解锁程序
(defun c:ual ()
(command "layer" "u" "*" "")
(princ)
)
解锁所有层即可

whcdy · 发表于 2004-10-8 00:19:56

这些功能ET都有，而且更多更全，不需要自己再去开发了。图层管理见下图：

hushui1973 · 发表于 2004-10-8 13:57:04

同意4楼意见

zhuquanmao · 发表于 2004-10-8 15:41:57

最初由 whcdy 发布
[B]这些功能ET都有，而且更多更全，不需要自己再去开发了。图层管理见下图： [/B]

可能您没有理解这个程序的含意不过无所谓全当交流吧*-*4

wzxwzx74 · 发表于 2004-10-9 14:19:38

好用！这样可以省去一个步骤－－－先关闭所有层，在打开一个想操作的图层！现在一步到位了。

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

[分享]：■可锁定除所选实体所在层外所有层的程序■

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

相关帖子