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)
)

David Bethel 发表于 2022-7-6 10:28:36

或者更简单一点：
 
3
 
 
-大卫

SWfangirl 发表于 2022-7-6 10:31:08

谢谢你，大卫，
这确实有助于了解代码的含义。
这样更容易掌握。
试图学习Lisp程序既令人兴奋又令人恼火。

David Bethel 发表于 2022-7-6 10:33:38

不客气。有时候，对于初学者来说，我们进步了一点，忘记了我们是如何以最好的方式学习的-大卫
页: 1 [2]
查看完整版本: 查找和删除奇数