---

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

---

ich bin bei früheren Recherchen auf diese 2 Web-Seiten gestossen;
habe aber keine Erfahrung damit weil wir eine firmenspezifische Lösung mit Zusatzfunktionen beschafft haben

https://www.hbb-engineering.de/inhalte/nx-tools/HBB-NX-Tools_2018.pdf
Text suchen / ersetzen:
Durchsucht Zeichnungen (Drawings) und ersetzt oder ergänzt Texte durch Ihre Vorgaben. Damit können z.B. auch mehrsprachige Zeichnungen erstellt werden.
NX-Version(en): NX 5 und höher

http://nxjournaling.com/search/node/text
Find and replace note content

dieses Journal sucht / listet die Texte;  ändert diese aber nicht

Freunliche Grüsse
Toni

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

---

Danke Hermes, bin bei http://nxjournaling.com, zum Teil zumindest, fündig geworden. Textfelder lassen sich umbenennen (nicht suchen und ersetzen), aber Text in einer Tabelle lässt sich nicht umbenennen, muss ich weiter forschen 

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

---

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