AutoCAD 2009: Find/Replace - no Zoom

[Markske]

Beste,

ik zit met volgend probleem: in AutoCAD 2009 hebben ze het commando Find/Replace serieus onder hande genomen. Er zitten nu wel nieuwe "leuke" functies in (o.a. het zoeken van tekst in x-refs), maar ik gebruikte Find/Replace (Zoom To) vooral om op zoek te gaan naar een bepaalde tekst in grote tekeningen.
In de Find/Replace van ACAD2009 heb je nu een automatic zoom, die je de gezochte tekst laat zien. Maar als je de zoek functie afsluit blijft het beeld niet staan, maar gaat het terug naar z'n oorspronkelijke staat. Met als gevolg: waar is nu mijn gevonden tekst gebleven?

Een oplossing had ik gevonden op onderstaande blog:
http://cadablog.blogspot.com/2008/05/workaround-autocad-2009-findreplace-no.html
maar hun oplossing werkt bij mij niet 

Heeft iemand van jullie hier ook problemen mee?
En... heeft er misschien iemand van jullie een alternative oplossing? (lispje misschien?)

Alvast bedankt!!!

Groetjes, Markske

[JMD]

Dag Markske,

het ligt eraan of je een enkele tekst bedoelt of meerdere teksten met dezlefde waarde (contents)
Wanneer het een enkele tekst betreft het volgende: ga naar quick select > text > contents > vul bij value de waarde in die je zoekt.
Vervolgens zoom > object.

Dit is een wat omslachtige manier maar werkt wel. Voor meerdere teksten met dezelfde waarde zou ook niet weten.
Hopelijk heb je er iets aan,

Gr JMD

[Markske]

Bedankt voor je reactie JMD,

maar 't is nog niet echt de oplossing waar ik naar zoek 

Je bent beperkt in het zoeken van alleen maar tekst, en ik wil ook graag willen zoeken in blocks met bepaalde (ingevulde) attributen...
bv een put met een uniek putnummer.
Komt er nog eens bij dat als je dezelfde teksten verspreid hebt over heel je tekening, dan selecteert acad al die teksten, maar kan je met zoom - object niet alle teksten afzonderlijk afgaan of bekijken... acad laat alle teksten tegelijkertijd zien 

Hopelijk wordt het Find/Replace - no Zoom probleem binnen AutoCAD 2009 nog rechtgezet door Autodesk zelf (dmv een patch misschien?)
Anders moeten we een andere manier van zoeken gaan zoeken (hehe)

Grtz, Markske

[EddyBeerke]

Dag Markske,

het ligt eraan of je een enkele tekst bedoelt of meerdere teksten met dezlefde waarde (contents)
Wanneer het een enkele tekst betreft het volgende: ga naar quick select > text > contents > vul bij value de waarde in die je zoekt.
Vervolgens zoom > object.

Dit is een wat omslachtige manier maar werkt wel. Voor meerdere teksten met dezelfde waarde zou ook niet weten.
Hopelijk heb je er iets aan,

Gr JMD

Dit is nou net iets voor een slimme programeur.

Joooooooooooooooooooooooop!!!... waar ben je?

[Joop]

Joooooooooooooooooooooooop!!!... waar ben je?

Hiero.

[EddyBeerke]

Hier is misschien wel een oplossing in vba:

Code Selecteer Uitklappen

Sub Zoek_Tekst()

Dim Antw
Dim Inp, XX As AcadText, ST As AcadText
Dim i
i = 0
   Inp = InputBox("Geef zoekwaarde:", "Ik zoek...")
   On Error Resume Next
   For Each ST In ThisDrawing.ModelSpace
   If ST.TextString = Inp Then
      'ST.Highlight (True)
     
      Set XX = ST.Copy
      For i = 0 To 500
        XX.Height = XX.Height + "0.002"
        Update
      Next
      For i = 0 To 500
        XX.Height = XX.Height - "0.002"
        Update
      Next
      XX.Delete
      Update
      Antw = MsgBox("Verder zoeken?", vbYesNo, "Zoek de: " & Inp)
      If Antw = "7" Then ZoomCenter ST.InsertionPoint, 1: Exit Sub
   End If

   Next
   MsgBox "Zoeken voltooid!", , "Zoek de: " & Inp
End Sub

Het zoekt een ingevoerde tekst in modelspace en zoomt ernaar toe.

[Remo]

Hier is misschien wel een oplossing in vba:

Code Selecteer Uitklappen

Sub Zoek_Tekst()

Dim Antw
Dim Inp, XX As AcadText, ST As AcadText
Dim i
i = 0
   Inp = InputBox("Geef zoekwaarde:", "Ik zoek...")
   On Error Resume Next
   For Each ST In ThisDrawing.ModelSpace
   If ST.TextString = Inp Then
      'ST.Highlight (True)
     
      Set XX = ST.Copy
      For i = 0 To 500
        XX.Height = XX.Height + "0.002"
        Update
      Next
      For i = 0 To 500
        XX.Height = XX.Height - "0.002"
        Update
      Next
      XX.Delete
      Update
      Antw = MsgBox("Verder zoeken?", vbYesNo, "Zoek de: " & Inp)
      If Antw = "7" Then ZoomCenter ST.InsertionPoint, 1: Exit Sub
   End If

   Next
   MsgBox "Zoeken voltooid!", , "Zoek de: " & Inp
End Sub

Het zoekt een ingevoerde tekst in modelspace en zoomt ernaar toe.

hmm  veelbelovend.....  is het handig als ik hem dit weekend nog aanpas en uitbreid naar zoeken in atributen?

[Markske]

Hey Remo,

dit scriptje uitbreiden zodat je het ook kan gebruiken voor het zoeken + zoomen naar bep. teksten in attributen zou echt wel erg handig zijn 

Groetjes, Markske

ps: is er misschien ook een oplossing te vinden door te zoeken naar het origineel Find/Replace commando/script binnen AutoCAD 2008? Want daar werkt dit nog wel !!!

[EddyBeerke]

...
hmm  veelbelovend.....  is het handig als ik hem dit weekend nog aanpas en uitbreid naar zoeken in atributen?
...

Natuurlijk is dat handig, voor mij oef je niet te wachten tot het weekend, dat mag nu ook al!
Laat het hier ff weten hoe dat je het hebt opgelost. BVD   

[Markske]

't is hier al een tijdje stil...
is het scriptje niet gelukt Remo?

Grtz, Markske