title image


Smiley Re: suchen und Löschen von Text auf einem Modellblatt
Hi germei,



ja, das ist richtig, dass es in AutoCAD (ich habe hier AutoCAD 2004),

ein "suchen und ersetzen" gibt, nur sollte das eben, wie gesagt, automatisiert mittels AutoCAD VBA erfolgen.



Ich habe aber nun einen Lösungsansatz für das Problem gefunden.

Text, der sich auf einem Modellballt befindet, wird damit gelöscht:





Sub x()

Dim i%, s$

s = InputBox("Text eingeben", "Suche")

If s = "" Then Exit Sub

With ThisDrawing.ModelSpace

For i = .Count - 1 To 1 Step -1

If TypeName(.Item(i)) = "IAcadText" Then

If .Item(i).TextString = s Then .Item(i).Delete

End If

Next

End With

End Sub





Viele Grüsse und vielen Danke für deine Hilfe ;-)





:-) Fluvio





























geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: