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 . "")
                                 )
            ）


使用编辑器查看下括号的中英文，全角的都改半角就行
页: 1 [2]
查看完整版本: 如下程序，目的是删除除你好* 和我好*图层以外的所有图层上的图元，如何修改