| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für NX |
Autor
|
Thema: Text in der Zeichnung suchen und ersetzen (1307 / mal gelesen)
|
murxer Mitglied Konstrukteur
Beiträge: 6 Registriert: 20.06.2018 Siemens NX 12.0.1.7 Daimler Umgebung Win7
|
erstellt am: 20. Jun. 2018 16:07 <-- editieren / zitieren --> Unities abgeben:
Hallo Leute! kennt/hat jemand ein Makro mit dem ich in der 2D Zeichnung nach einem bestimmten Text suche und ersetze, die Zeichnung soll am besten komplett durchsucht werden inkl. aller Tabellen und Zeichnungsfelder. Danke im Voraus. gerne auch gegen Bezahlung ------------------ Siemens NX 12.0.1.7 Daimler Umgebung Win7
[Diese Nachricht wurde von murxer am 20. Jun. 2018 editiert.] [Diese Nachricht wurde von murxer am 20. Jun. 2018 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Hermes Mitglied
Beiträge: 311 Registriert: 08.09.2002
|
erstellt am: 09. Jul. 2018 16:10 <-- editieren / zitieren --> Unities abgeben: Nur für murxer
|
murxer Mitglied Konstrukteur
Beiträge: 6 Registriert: 20.06.2018 Siemens NX 12.0.1.7 Daimler Umgebung Win7
|
erstellt am: 04. Sep. 2018 09:53 <-- editieren / zitieren --> Unities abgeben:
|
| Ingenieur Elektrotechnik für Transformatoren (w/m/d) | Hitachi Energy hat es sich zum Ziel gesetzt, eine nachhaltige Energiezukunft für alle zu fördern. Wir versorgen Häuser, Schulen, Krankenhäuser und Fabriken mit Strom. Werden Sie Teil unseres Unternehmens und arbeiten Sie mit engagierten Kollegen zusammen. Dabei lernen Sie und entwickeln sich in Projekten weiter, die einen großen Einfluss auf unsere Gemeinschaft und die Gesellschaft haben.... | Anzeige ansehen | Elektrotechnik, Elektronik |
|
Robse-Ponte Mitglied Entwicklungsingenieur
Beiträge: 104 Registriert: 03.09.2007
|
erstellt am: 25. Sep. 2018 10:11 <-- editieren / zitieren --> Unities abgeben: Nur für murxer
Hallo, Texte in Tabellen können geändert werden. Ein gutes Beispiel ist im nachfolgenden Link ersichtlich. http://www.nxjournaling.com/content/journal-edit-specific-tabular-note Soll das ganze auf alle Seiten der Zeichnung ausgedehnt werden muss eine zusätzliche Doppelschleife eingebaut werden nach folgendem Schema (nicht geprüft, nur aus dem Kopf): Dim dwgs As Drawings.DrawingSheetCollection dwgs = workPart.DrawingSheets Dim sheet As Drawings.DrawingSheet Dim sht As String Dim shts As New ArrayList() For Each sht in shts For Each sheet in dwgs sheet.Open() If sheet.name = sht Then i = i + 1 'Tabellen suchen, Text finden und ersetzen End If Next Next Beste Grüsse Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |