| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| | |
 | PNY: der unverzichtbare Partner für umfassende KI-Lösungen von Workstations bis zu Edge Computing und KI-Cluster-Bereitstellung, eine Pressemitteilung
|
|
Autor
|
Thema: Text auf Zeichnung löschen (863 mal gelesen)
|
Fluvio
Mitglied
Student
   Beiträge: 6
Registriert: 09.06.2004
|
erstellt am: 10. Jun. 2004 13:22  <-- editieren / zitieren -->   Unities abgeben:          
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 |
startrek
Moderator
Architekt
   
Beiträge: 1361
Registriert: 13.02.2003 .
|
erstellt am: 10. Jun. 2004 14:42 <-- editieren / zitieren --> Unities abgeben: Nur für Fluvio 
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 |
Fluvio
Mitglied
Student
Beiträge: 6
Registriert: 09.06.2004
|
erstellt am: 10. Jun. 2004 16:30 <-- editieren / zitieren --> Unities abgeben:
|
AsSchu
Ehrenmitglied
Konstrukteur
Beiträge: 1632
Registriert: 27.06.2003 ACAD 2002,cadMANdu, ExpressTools (etv1-9),
Win 2000 professional
|
erstellt am: 10. Jun. 2004 16:39 <-- editieren / zitieren --> Unities abgeben: Nur für Fluvio
|
startrek
Moderator
Architekt
Beiträge: 1361
Registriert: 13.02.2003 .
|
erstellt am: 10. Jun. 2004 17:37 <-- editieren / zitieren --> Unities abgeben: Nur für Fluvio
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 |
Foren auf CAD.de
| 
