求一个不执行某个代码功能

664571221

如下有一段程序，希望的是加入一些代码，查找cad中是否有   我爱你 这三个子，如果有这三个字，可以执行代码，如果没有不可执行

(defun c:FS ( / ss)
  (if (or
        (setq ss (ssget "_P" '((8 . "*房间*"))))
        (ssget '((8 . "*房间*")))
      )
    (command ".erase" ss "")
  )
)

琴剑江山_10184

(defun c:tt ()
(setq str (ssget "x" '((1 . "*我爱你*"))))
(if str
(progn
执行代码
)
)
)