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

zhuquanmao · 发表于 2004-9-26 16:54:18

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

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

×

;;; 锁住其他层
(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)
)

andyhua5240 · 发表于 2004-9-26 17:58:24

楼主最好能相应的写一个解锁程序？
谢谢！

lsjjm · 发表于 2004-9-27 04:59:52

1楼: 这样即可
(defun c:test ()
(command "layer" "lo" "*" "")
(command "layer" "u" (getvar "clayer") "")
)
2楼:
(command "layer" "u" "*" "")

whcdy · 发表于 2004-9-27 06:58:46

谢谢，刚试了一下，非常好用！

zhuquanmao · 发表于 2004-9-27 09:06:18

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

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

×

最初由 lsjjm 发布
[B]1楼: 这样即可
(defun c:test ()
(command "layer" "lo" "*" "")
(command "layer" "u" (getvar "clayer") "")
)
2楼:
(command "layer" "u" "*" "") [/B]

您的程序是只解锁当前层的程序啊我写的是自己选择实体然后解锁这些实体所在层的程序

andyhua5240 · 发表于 2004-9-27 09:23:07

最初由 lsjjm 发布
[B]1楼: 这样即可
(defun c:test ()
(command "layer" "lo" "*" "")
(command "layer" "u" (getvar "clayer") "")
)
2楼:
(command "layer" "u" "*" "") [/B]

不明白长老的意思？
请赐教！
谢谢！

zhuquanmao · 发表于 2004-9-27 10:03:52

最初由 andyhua5240 发布
[B]... [/B]

此命令行是解锁所有层

大尾巴狼 · 发表于 2005-5-20 08:14:36

最初由 madman 发布
[B];;; 锁住其他层
(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
... [/B]

正是我想要的！楼主能再修改一下吗？选择这个命令后，想取消按ESC，但是就把层全部锁住了，应该是放弃才好
还有，解锁全部层的，也烦请写出
谢谢

eachy · 发表于 2005-5-20 08:19:10

ET 工具中有此功能

zh_6531394 · 发表于 2005-5-20 12:19:13

有没有关闭除所选实体所在层外所有层的程序

coldface000 · 发表于 2005-5-20 23:11:08

好的谢谢1楼 3楼。

大尾巴狼 · 发表于 2005-5-21 18:04:35

最初由 zh_6531394 发布
[B]有没有关闭除所选实体所在层外所有层的程序 [/B]

这就是

zh_6531394 · 发表于 2005-5-24 10:24:51

楼上的,这是"锁住其他层",不是"关闭除所选实体所在层外所有层的程序"

huiling6868 · 发表于 2005-5-24 16:01:46

不错很好用.

li809 · 发表于 2005-5-24 22:58:49

ET中就有此功能了,但还是谢谢了

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

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

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

相关帖子

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

相关帖子

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