如下程序，目的是删除除你好* 和我好*图层以外的所有图层上的图元，如何修改

fangmin723 · 发表于 2018-10-7 10:48:55

看看你自己的标题，自己的问题首先要问清楚了

664571221 · 发表于 2018-10-7 10:52:11

fangmin723 发表于 2018-10-7 10:48
看看你自己的标题，自己的问题首先要问清楚了

我修改一下，大神帮帮我

852456 · 发表于 2018-10-7 11:22:24

(defun c:xx ( / ss) (if (setq ss (ssget "X" (list '(8 . "你好*,我好*")))) (command ".erase" "all" "r" ss)

fangmin723 · 发表于 2018-10-7 11:34:07

要么用楼上的：(command ".erase" "all" "r" ss)
要么用 (setq ss (ssget '((-4 . "<and") (8 . "~你好*") (8 . "~我好*") (-4 . "and>"))))

664571221 · 发表于 2018-10-7 14:47:44

852456 发表于 2018-10-7 11:22
(defun c:xx ( / ss) (if (setq ss (ssget "X" (list '(8 . "你好*,我好*")))) (command ".erase" " ...

提示输入的列表有缺陷

664571221 · 发表于 2018-10-7 14:49:01

852456 发表于 2018-10-7 11:22
(defun c:xx ( / ss) (if (setq ss (ssget "X" (list '(8 . "你好*,我好*")))) (command ".erase" " ...

可以了少了个括号，谢谢你

664571221 · 发表于 2018-10-7 15:00:48

fangmin723 发表于 2018-10-7 11:34
要么用楼上的：(command ".erase" "all" "r" ss)
要么用 (setq ss (ssget '((-4 . ""))))

你好你的程序很不错谢谢你

@辰雨@ · 发表于 2018-10-8 14:36:41

（setq ss (ssget "x"    (list '(-4 . "<or")
                  (cons 8 "你好")
                                    (cons 8 "我好")
                  '(-4 . "or>")
                  )
         ）
)；先选出“你好”和“我好”图层图元
（command ".select" "all" "r" ss "");再反选图元
(command ".erase"  "")；最后删除

bai2000 · 发表于 2018-10-9 11:00:13

能否变成多用的？选取只保留所选对象的图层，删去其余的图层？

@辰雨@ · 发表于 2020-10-23 16:32:37

@辰雨@ 发表于 2018-10-8 14:36
（setq ss (ssget "x"    (list '(-4 . "")
                  )
         ）

使用编辑器查看下括号的中英文，全角的都改半角就行

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

[提问] 如下程序，目的是删除除你好* 和我好*图层以外的所有图层上的图元，如何修改

点评