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

或者这可能更好：
 
(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)
)
 
将只选择“奇数”多行文字，以便您可以自己删除它们。

SWfangirl 发表于 2022-7-6 09:47:36

第二个是完美的！
非常感谢！
如果没有人告诉你。。。。。。。。。你太棒了！！

David Bethel 发表于 2022-7-6 09:53:05

您是想删除多行文字标签还是需要删除一些几何体（例如圆）？这可能要复杂得多-大卫

Lee Mac 发表于 2022-7-6 09:57:57

谢谢SWfangirl
 
享受

SWfangirl 发表于 2022-7-6 10:02:00

只有多行文字标签。逐个挑选很麻烦。

alanjt 发表于 2022-7-6 10:05:16

做得好。

David Bethel 发表于 2022-7-6 10:09:09

然后对于正整数总是（=（rem i 2）1）

Lee Mac 发表于 2022-7-6 10:14:50

干杯伙计们
页: [1] 2
查看完整版本: 查找和删除奇数