[求助]：求助怎样用LISP将选中对象指定到别的图层?

9701519 · 发表于 2007-11-20 17:44:44

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

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

×

怎样用LISP将选中对象指定到别的图层?

taner · 发表于 2007-11-20 19:11:37

最初由 9701519 发布
[B]怎样用LISP将选中对象指定到别的图层? [/B]

[FONT=courier new]
(defun c:test (/ ss layr)
(setq ss (ssget))
(setq layr (getstring "\n请输入层名:"))
(if (= layr "")
(setq layr (cdr (assoc 8 (entget (car (entsel))))))
)
(if (= nil (tblsearch "LAYER" layr))
(command "layer" "n" layr "")
)
(command "chprop" ss "" "la" layr "")
(princ)
)
[/FONT]

9701519 · 发表于 2007-11-20 23:40:08

能不能我输入TEST命令后直接把选中的对象直接改为（图层一），而不需要再输入：图层一

gysjy · 发表于 2007-11-21 12:37:12

下面的代码将选中的对象改到当前层：

[FONT=courier new]
(defun c:test (/ ss layr)
(setq ss (ssget))
(command "chprop" ss "" "la" (getvar "clayer") "")
(princ)
)
[/FONT]

leeyuan · 发表于 2007-11-21 23:56:53

借用taner兄的代码修改如下：
[php]
(defun c:test (/ ss layr)
  (setq ss (ssget))
  (setq layr (getstring "\n请输入层名:"))
  (if (= layr "")
(setq layr "图层一")
  )
  (if (= nil (tblsearch "LAYER" layr))
(command "layer" "n" layr "")
  )
  (command "chprop" ss "" "la" layr "")
  (princ)
)
[/php]

9701519 · 发表于 2007-11-22 10:27:28

谢谢大家！！能不能将（请输入层名）这一项选择去掉！直接改，而不休要敲两次回车！

leeyuan · 发表于 2007-11-22 22:18:28

那就更简单了，不过通用性就差远了
[php](defun c:test (/ ss layr)
  (setq ss (ssget))
  (setq layr "图层一")
(if (= nil (tblsearch "LAYER" layr))
(command "layer" "n" layr "")
  )
  (command "chprop" ss "" "la" layr "")
  (princ)
)
[/php]

9701519 · 发表于 2007-11-23 09:44:02

最初由 leeyuan 发布
[B]那就更简单了，不过通用性就差远了
[php](defun c:test (/ ss layr)
  (setq ss (ssget))
  (setq layr "图层一")
(if (= nil (tblsearch "LAYER" layr))
(command "layer" "n" layr "")
  )
... [/B]

万分感谢！爱死你了！

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

[求助] [求助]：求助怎样用LISP将选中对象指定到别的图层?

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

相关帖子

Re: [求助]：[求助]：[求助]：怎样用LISP将选中对象指定到别的图层?