Find command in VBA

Hello everyone!

I would like to implement the "find" command into our VBA program if it is
somehow doable. I have no idea how to start it though. What I need is a
search function that would find a specified text string, then an option to
be able to zoom to that text string. Any help would be appreciated.

thx,

Akos

 

You can do it the long way with an input box(asking for text to look for),
then create selection set of all text in drawing, then use the InStr to
search the phrase. If found get insertion point the use zoom to center
using insertion point.

good luck

 

If you're using AutoCAD 2000 through 2002, you can use
the AcadX ActiveX Extension library to do this.

Visit www.caddzone.com/acadx and download the AcadX
distribution with samples. In the distribution, you
will find a sample application called SuperFind that
can search/replace text in many drawings in a folder
without opening them in AutoCAD. That's probably more
than what you need, but serves as a good example.

To simply replicate the function of the FIND command,
you can use the AcadXTextProcessor class.