;;;;;************ USED TO SEARCH FOR TEXT within a drawing
;;; zooms in to area where specified text is
;;;*****************************************
;;;   Superior Designs - Custom programming available
;;;   Copyright (C) 1996-1997
;;;   Written by Craig Carr - 1996
;;;   http://www.surfersnet.com/sdi/acad.htm
;;;   e-mail superior@surfersnet.com
;;;*****************************************
(DEFUN C:FINDTXT()(SETVAR "CMDECHO" 0)
(DEFUN STRNG(TXT1 TXT2)    ;;;FORMAT- (STRNGAI "IS" "THIS") RETURNS # OF OCCURENCES

                        (SETQ I 0)(SETQ J 1)
                        (SETQ II (+ (- (STRLEN TXT2) (SETQ JJ(STRLEN TXT1)) ) 2) ) 
 
                        (WHILE (< J II)
                               (IF (= (SUBSTR TXT2 J JJ) TXT1)
                                   (PROGN (SETQ I(1+ I))(SETQ SLPOS LPOS)(SETQ LPOS (+ J 1)) )   )    ;;  END IF
                        (SETQ J(1+ J))  ) ; END WHILE
                        (IF (= I 0)(SETQ I nil)(SETQ I I))  ) ; END FUNCTION STRNGAI
;;;;**************

(SETQ SSTXT(SSGET "X" (LIST (CONS 0 "TEXT")) ))
(SETQ TXTQTY(SSLENGTH SSTXT))
(SETQ FIND (GETSTRING "\nTEXT TO FIND: "))
(SETQ NUM 0)(WHILE (< NUM TXTQTY)
          (IF (= (cdr(ASSOC 0 (ENTGET(SSNAME SSTXT NUM)))) "TEXT")
               (IF (STRNG  FIND (CDR(ASSOC 1 (ENTGET(SSNAME SSTXT NUM)))))
                  (PROGN  (COMMAND "ZOOM" "C" (CDR (ASSOC 10 (ENTGET(SSNAME SSTXT NUM)))) (* (GETVAR "DIMSCALE") 8) )
                          (GETSTRING "\n ENTER TO SEARCH AGAIN")))
             );END IF 
;              (COMMAND "CHANGE" (SSNAME SSTXT NUM) "" "" "" "STANDARD" "" "" "" ) ); END IF
     (SETQ NUM(1+ NUM)) ); END WHILE  
(SETVAR "CMDECHO" 1)
(PRINC)); END FUNCTION
;;;;;;*************