[求助]：选定某个图层上所有的图元

laimaomao · 发表于 2004-12-21 11:10:28

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

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

×

我是lisp初学，特想知道怎样选定某个图层上所有的图元。就是能在cad下看到是被选中的样子。

qjcpj · 发表于 2004-12-21 12:50:50

假如你要取“THICK”图层下的所有实体，可以这样：
(setq ss (ssget "X" '((8 . "THICK"))))
在命令行上输入move命令，提示选择实体时键入!ss即可看到所选实体被亮显……

xyp1964 · 发表于 2004-12-22 10:44:42

[php]
(defun c:test (/)
  (setq lay (dxf 8 (entget (car (entsel "\n选择层实体 : ")))))
  (setq ss (ssget "X" (list (cons 8 lay))))
  (princ "\n实体集 : !ss")
  (princ)
)
(defun dxf (code elist) (cdr (assoc code elist)))
[/php]

laimaomao · 发表于 2004-12-22 12:59:15

谢谢大家，我一定努力。

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

[求助] [求助]：选定某个图层上所有的图元

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

相关帖子

浏览过的版块