如何清空选择集

wimal · 发表于 2022-7-6 06:15:26

这个代码我用来从选择集中删除给定的文本（名称）
但我无法重复此操作以删除其他文本（名称1）
如何清空选择集sstest

Tharwat · 发表于 2022-7-6 06:34:57

您已经根据选择集的数量进行了重复运行，那么为什么要从选择集中删除ename呢？

您可能需要描述在没有代码的情况下您想要做什么。

hmsilva · 发表于 2022-7-6 06:36:09

维马尔，
如果我理解正确


;; Providing a selection set and a text string
;; will remove from the given ss all entities
;; with that text string
(defun texthtfilter3 (ssx name / i text)
(repeat (setq i (sslength ssx));count no of texts absorbs
(setq text (cdr (assoc 1 (entget (ssname ssx (setq i (1- i)))))))
(if (= text name); remove first texts  
(ssdel (ssname ssx i) ssx)
  ); if
 );repeat
ssx
 ); end text filer3
;;i.e.:
(if (setq ss1 (ssget '((0 . "TEXT"))))
 (texthtfilter3 ss1 "Test");; will remove from the selection set ss1 all entities with a text string "Test"
 );;

或者如果需要删除多个texto字符串

copy


;; Providing a selection set and a list of text strings
;; will remove from the given ss all entities with the
;; provided text strings
(defun texthtfilter4 (ssx names / i text)
 (foreach n names
(repeat (setq i (sslength ssx));count no of texts absorbs
(setq text (cdr (assoc 1 (entget (ssname ssx (setq i (1- i)))))))
(if (= text n); remove first texts  
(ssdel (ssname ssx i) ssx)
  ); if
 ); repeat
   ); foreach
 ssx
 ); end text filer4
;; i.e.
(if (setq ss (ssget '((0 . "TEXT"))))
 (texthtfilter4 ss '("Test" "Test1"));; will remove from the given ss all entities with a text string "Test" and "Test1" 
 );;