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 (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
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
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
Citaat van: JMD op do 17 07 2008, 20:16:23
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?
Citaat van: EddyBeerke op wo 23 07 2008, 16:28:48
Joooooooooooooooooooooooop!!!... waar ben je?
Hiero. :shock:
Hier is misschien wel een oplossing in vba:
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.
Citaat van: EddyBeerke op do 24 07 2008, 14:56:53
Hier is misschien wel een oplossing in vba:
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?
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 :D
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 !!!
Citaat van: Remo op do 24 07 2008, 23:13:41
...
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! :vreegoe: :wink:
Laat het hier ff weten hoe dat je het hebt opgelost. BVD :D
't is hier al een tijdje stil...
is het scriptje niet gelukt Remo?
Grtz, Markske