查找和删除奇数

SWfangirl · 发表于 2022-7-6 09:33:12

我需要一些帮助。我有一张画，里面有2000多个电线杆。所有极点都使用多行文字进行数字标注。有没有办法只选择奇数值并删除它们？

Lee Mac · 发表于 2022-7-6 09:39:49

欢迎来到CADTutor SWfangirl

也许可以试试这样：

上述假设标签是整数，多行文字是未格式化的，其字符串只包含一个数字，没有其他文字。

我还为选择添加了一个层过滤器，以仅选择某个层上的多行文字，将层名称（用红色标记）更改为多行文字层，或删除（8.XX”）部分以选择所有多行文字。

Lee Mac · 发表于 2022-7-6 09:45:15

或者这可能更好：

copy

(defun c:DelOdd ( / ss i e )
 (if (setq ss (ssget "_X" '((0 . "MTEXT"))))
   (repeat (setq i (sslength ss))
     (setq e (ssname ss (setq i (1- i))))
     (if (zerop (logand 1 (atoi (cdr (assoc 1 (entget e)))))) (ssdel e ss))
   )
 )
 (sssetfirst nil ss) (princ)
)