alert given if the text is not found

Hello,

I found a lisp on Lee`s website to search for and select text.

A nice short routine and works perfectly.

Now my question is: can an alert be given "not found" if the text is not found in the drawing and how?.

(defun c:findtext ( / str )
   (if (/= "" (setq str (getstring t "\nSpecify string to find: ")))
       (sssetfirst nil
           (ssget "_X"
               (list
                  '(0 . "TEXT")
                   (cons 1 str)
               )
           )
       )
   )
   (princ)
)

something like,

(alert str "  not found")

thank you in advance

PmxCAD

(defun c:findtext (/ str sstxt)
(setq str   (getstring t "\nSpecify string to find: ")
      sstxt (ssget "_X" (list '(0 . "TEXT") (cons 1 str)))
)
(if (/= sstxt nil)
 (sssetfirst nil sstxt)
 (alert (strcat str "  not found"))
)
(princ)
)

Here's another:

(defun c:findtext (/ s str)
 (cond	((= "" (setq str (getstring t "\nSpecify string to find: "))) (print "Later yo..."))
((null (setq s (ssget "_X" (list '(0 . "TEXT") (cons 1 str)))))
 (alert (strcat "'" str "' not found!"))
)
(t
 (alert	(strcat	(itoa (sslength s))
		" '"
		str
		"' item"
		(cond ((= 1 (sslength s)) "")
		      ("s")
		)
		" found!"
	)
 )
 (sssetfirst nil s)
)
 )
 (princ)
)

Thanks 1958 & ronjonp,

i think i wil go for the 1958 one.

i`ve not tried yet, no Autocad at the moment.

But is it also possible to at (progn to the alert part to close refedit (command "refclose" "s") after the alert.

An IF has two parts a true and a false, simplest is one line for T, 2 lines T or F, by adding (progn you can have multiple lines of code ) ; end progn ); end if

If you want to get real carried away you can make a IF and use a defun that has 100 lines of code.

BIGAL,

I got it together and it works too.

(defun c:findtext (/ str sstxt)
(setq str   (getstring t "\nSpecify string to find: ")
      sstxt (ssget "_X" (list '(0 . "TEXT") (cons 1 str)))
);setq
(if (/= sstxt nil)
 (sssetfirst nil sstxt)
   (progn
     (alert (strcat str "  not found"))
   (command "refclose" "D" "")
   );progn
);if
(princ)
);defun

Thanks

FWIW..

This:

(if (/= sstxt nil)

can just be this

(if sstxt

and reverse the return

i will give it a try

!!!

Quite right!