Searching word in cad

[ruksi]

Is this autocad have any command to find some word in the drawing.

Ex. I have some beam MB4 i want search that beam where in drawing

[Krztoff]

Yes, i think you can rightclick mouse anywere on the screen and choose the "Find" command, there you can type what you want to find.

[ruksi]

Krztoff,

I checked that but it no use its good for changing text but I can't locate in drwaing

[Krztoff]

When you press the find button, doesn't it zoom to that text? For me when i type in the symbols that I need to find and press the "find" button it automaticaly zooms to that symbol and i have it on screen.

[dbroada]

one of the options (at least in 2008 ) is to "zoom to".

[ruksi]

When you press the find button, doesn't it zoom to that text? For me when i type in the symbols that I need to find and press the "find" button it automaticaly zooms to that symbol and i have it on screen.

 

yes it zooming but for editing mode i Dont need edit this but I need to know where is the location.

[ruksi]

no commad in 2009 & 2008 like "ZOOM TO"

[dbroada]

yes it has

[Jay Dee]

Start the 'Find' command and enter the text you are looking for. Now temporarily change that text to something like xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx. Go back into your drawing where it should now stand out. Note its location then do an 'undo' until the text has reverted back to its original. There maybe a quicker method but this is a way around your problem for the moment.

[ruksi]

Thanks, dbroada

it in 2008 but not in 2009, I checked. For this work I can do that thru Zoomto commend but somebody know better than this please tell me

[Tiger]

Thanks, dbroada

it in 2008 but not in 2009, I checked. For this work I can do that thru Zoomto commend but somebody know better than this please tell me

 

How about after you have found your object, and I assume you have it highlighted, start the Zoom command, and choose Object? You might have to type P (for Previous Selection) if the selection resets.

[ReMark]

Sorry ruksi but I have to disagree with you.

 

Annotate Panel > Text tab > Find text. Or...

 

Browser Menu (Big red A) > Edit > Find. Or...

 

Toolbar: Text Formatting. Or...

 

Command entry: Find.

 

When the Find and Replace dialog window appears type the text you wish to find in the Find what box then click on the Find button. AutoCAD will automatically zoom to the first instance of that text it finds. If there is more than one instance of the text the Find button is replaced with Find next. Click on the button. AutoCAD immediately jumps to the next one. Repeat as necessary.

[ReMark]

Don't forget to take advantage of some of the other Find and Replace options such as List results, Search options and Text types. Find may be more powerful than you realize.

[ruksi]

ReMark, actually I was telling Find command is thair but in that dialog box didn't have zoom to command, & 2009 It particularly use for change the waord Which we are find, So this is not I am searching, Ex. in my main drawing lots of doors are thair but verious type, so in that one door no i am searching where the location how many tim come How i do this

[ReMark]

You want to know how times a certain word is appears in a drawing? Use the List Results option.

[bonehead411]

I think the OP wants to find the coordinates/location, and number of instances, of specific entities, using their names to seek them out.

I'd be hitting the LISP forum.

[ruksi]

I think the OP wants to find the coordinates/location, and number of instances, of specific entities, using their names to seek them out.

I'd be hitting the LISP forum.

 

Yes your correct Iwants to find the lacotaion +numbers of instance

[Jay Dee]

Yes your correct Iwants to find the lacotaion +numbers of instance

 

If you click on 'List Results' in the 'Find' command box it lists all the instances. If you select each instance then hit 'Find' then it zooms to its location.

[chelsea1307]

You could use qselect to select all instances of the text and then do a list and it will give you the location (x,y,z) and you will know how many you have based on how many coordinates it returns

[alanjt]

Just felt like playing (not case sensitive)...

(defun c:Test (/ #Search #SS #List)
 (cond
   ((and (not (eq "" (setq #Search (getstring T "\nSearch string: "))))
         (setq #SS (ssget "_X" '((0 . "TEXT,MTEXT") (410 . "MODEL"))))
    ) ;_ and
    (vlax-for x (setq #SS (vla-get-activeselectionset
                            (vla-get-activedocument (vlax-get-acad-object))
                          ) ;_ vla-get-activeselectionset
                ) ;_ setq
      (if (wcmatch (strcase (vla-get-textstring x)) (strcase #Search))
        (setq
          #List (cons
                  (strcat (vla-get-objectname x)
                          " - "
                          (vl-princ-to-string
                            (vlax-safearray->list
                              (vlax-variant-value (vla-get-insertionpoint x))
                            ) ;_ vlax-safearray->list
                          ) ;_ vl-princ-to-string
                  ) ;_ strcat
                  #List
                ) ;_ cons
        ) ;_ setq
      ) ;_ if
    ) ;_ vlax-for
    (vla-delete #SS)
    (AT:WriteToFile
      "c:\\StringCount.txt"
      (cons (strcat (itoa (length #List)) " TEXT OBJECTS MATCHING: " #Search)
            #List
      ) ;_ cons
      T
    ) ;_ AT:WriteToFile
    (startapp "notepad" "c:\\StringCount.txt")
   )
 ) ;_ cond
 (princ)
) ;_ defun

 

You'll need this subroutine:

;;; Write list to file
;;; #File - file to write list to (must be in form "c:\\File.txt")
;;; #ListToWrite - list to write to file
;;; #Overwrite - If T, will overwrite; nil to append
;;; Alan J. Thompson, 04.28.09
(defun AT:WriteToFile (#File #ListToWrite #Overwrite / #FileOpen)
 (cond ((and (vl-consp #ListToWrite)
             (setq #FileOpen (open #File
                                   (if #Overwrite
                                     "W"
                                     "A"
                                   ) ;_ if
                             ) ;_ open
             ) ;_ setq
        ) ;_ and
        (foreach x #ListToWrite
          (write-line x #FileOpen)
        ) ;_ foreach
        (close #FileOpen)
        T
       )
 ) ;_ cond
) ;_ defun