[求助]：谁来帮我改下这ssget 涵数

animal212 · 发表于 2007-5-23 12:41:36

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

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

×

(defun C:mm()
(setq ent (car (entsel "\n请选择所要保留的图元：")));;;;car是关键

(setq el (entget ent))

(setq ty (cdr (assoc 8 el)));;;;;;;;;;;;;;;;;;;;;;;;;cdr是关键

  (COMMAND "_.-layer" "_off" "*" "Y" "")
  (command "Layer" "on" ty "")
  (prompt "\n 选择所有闭合曲线")

  (setq SS (ssget);;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;想把（ssget 改成ssget "X" 。。。）使之自动选择图元，但不懂怎么定义，请高手指教啊。

  (command "_LayerP")
  (command "_LayerP")
)

另，本人在附件中上传了一张图

Underway · 发表于 2007-5-23 13:02:44

使之自动选择图元[/B]

您想选择那些图元
也就是说其条件是啥?

animal212 · 发表于 2007-5-24 13:00:06

我想选特定图层上的所有图元啊。图上传不了，就不上传了。

adisonmaster · 发表于 2007-5-24 13:21:51

(ssget "x" '((-4 . "<OR")
         (8 . "0")
                     (8 "1")
      (-4 . "OR>")
   )
   )
同时选择零层和1层上的所有对象！

byghbcaixin · 发表于 2007-5-24 14:33:26

应该是这样
(ssget "x" '((-4 . "OR<") (8 . "0") (8 . "1") (-4 . "OR>")))
同时选择0层和1层上的所有对象！

Underway · 发表于 2007-5-24 15:01:23

特定图层 ...

(ssget "x" (list (cons 8 "特定图层a,特定图层b,特定图层c")))
(ssget "x" '((8 . "特定图层a,特定图层b,特定图层c")))

===================================
Layer A□□□□□ ...
Layer B□□□ ....
Layer C□□□□....

(ssget "x" '((cons 8 "A*,B*,C*")))

请参阅 WcMatch 的帮助

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

[求助] [求助]：谁来帮我改下这ssget 涵数

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

相关帖子

Re: [求助]：谁来帮我改下这ssget 涵数