[求助]：求LSP，要求冻结所有非当前选择层

大尾巴狼 · 发表于 2004-4-28 12:50:47

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

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

×

如当前层为A层，想要冻结B层以外所有层，所以要求执行LSP的话，然后就可以点选B层物体，就直接切换当前层到B层，接着就冻结了所有非当前层，一步到位。或者当前层为B层，但是也需要点选B层物体,然后才能冻结所有非当前层，我要这样是为了不需要看现在在哪一层，不需要先切换当前层到需要的层

说明白了吗？哪位大侠帮忙编一个，
这里先谢了

lsjjm · 发表于 2004-4-28 13:41:31

最初由大尾巴狼发布要求冻结所有非当前选择层... [/B]

(command "layer" "f" "*" "")

大尾巴狼 · 发表于 2004-4-28 14:32:35

谢谢
前边那一步点选B层物体，就直接切换当前层到B层呢？
给你添麻烦了

lsjjm · 发表于 2004-4-28 15:13:14

[php]
(defun c:test ( / adoc layers ent lay)
  (Prompt "\nSelect Object on LAYER will be Current...")
  (setq e (car (entsel)))
  (setq clay (cdr (assoc 8 (entget e))))
  (setvar "clayer" clay)
)
[/php]

大尾巴狼 · 发表于 2004-4-28 18:09:06

多谢

我把你的两段联了起来
：
[php]
(defun c:test ( / adoc layers ent lay)
(Prompt "\nSelect Object on LAYER will be Current...")
(setq e (car (entsel)))
(setq clay (cdr (assoc 8 (entget e))))
(setvar "clayer" clay)
(command "layer" "f" "*" "")
)
[/php]

这样可以吗？有没问题

多谢

陌生人 · 发表于 2004-4-29 00:51:21

[php]
(defun c:test ()
(setvar "clayer" (vla-get-layer (vlax-ename->vla-object (car(entsel)))))
(vl-cmdf ".layer" "f" "*" "")
)[/php]

大尾巴狼 · 发表于 2004-4-30 14:27:49

多谢 lsjjm 和陌生人，就算说我灌水扣我钱也是要谢的
多谢无私帮助

lsjjm · 发表于 2004-4-30 15:29:37

还可以更简单:
(defun c:test ()
(c:ai_molc)
(command "layer" "f" "*" "")
)

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

[求助] [求助]：求LSP，要求冻结所有非当前选择层

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

相关帖子

Re: [求助]：求LSP，要求冻结所有非当前选择层