求一个不执行某个代码功能
如下有一段程序，希望的是加入一些代码，查找cad中是否有 我爱你 这三个子，如果有这三个字，可以执行代码，如果没有不可执行(defun c:FS ( / ss)
(if (or
(setq ss (ssget "_P" '((8 . "*房间*"))))
(ssget '((8 . "*房间*")))
)
(command ".erase" ss "")
)
)
(defun c:tt ()
(setq str (ssget "x" '((1 . "*我爱你*"))))
(if str
(progn
执行代码
)
)
)
页:
[1]