查找和删除奇数

SWfangirl · 发表于 2022-7-6 10:19:25

大卫-
我对编写代码非常陌生。如何将（=（rem i 2）1）转换为lisp？

Lee Mac · 发表于 2022-7-6 10:21:51

使用我之前代码的示例：


(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 (rem (abs (atoi (cdr (assoc 1 (entget e))))) 2)) (ssdel e ss))
   )
 )
 (sssetfirst nil ss) (princ)
)