---

Hallo zusammen,

gibt es eine Möglichkeit in AutoCAD VBA, einen einfachen Text, der sich auf einem Modellblatt befindet, zu suchen und zu löschen?
(zu suchender und löschender Text ist vorher bekannt)

Viele Grüsse und vielen Danke für jede Hilfe :-)

:-) Marcus

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Marcus,

klitzekleiner Ansatz:

Code:

---

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

---

ciao Nancy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi nancy,

vielen Dank für Deine Hilfe - es funktioniert wunderbar :-)

Viele Grüsse

:-) Marcus

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

das ist sehr gut.

kann man das auf einen Linientyp übertragen?

Ciao

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

wie meinst Du das genau ?
Wenn Suchtext mit Linientyp "Continuous" ???? dann ..., dann halt so 

Code:

---

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" And .Item(i).Linetype = "Continuous" Then
        If .Item(i).TextString = s Then .Item(i).Delete
      End If
    Next
  End With
End Sub

---

Aber mal uno Question @all:

Was mir nur absolut schleierhaft ist...
warum geht's erst mit for i = .count - 1 ???
Sobald ich das -1 rausnehm, bekomm' ich nen LZF, obwohl ja .count die Anzahl aller Items liefert.
Versteh' ich noch nicht so ganz ???

Gruss
Nancy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP