---

Hallo an alle.

ich suche nach der Möglichkeit, die Blattnamen (im Browser der .idw) mittels vba umzubenennen.

Nachdem eine Zeichnungsableitung mit ausgefüllten iProperties gespeichert wurde, möchte ich per Macro die Blattnamen umbenennen.

Im 2. Schritt werde ich mir entsprechende iPropertiy-Einträge auslesen (z.B. Benennung), und diese zur Namensgebung nutzen.

Im 3. Schritt möchte ich auch die ggf. weiteren Blätter entsprechend umbenennen.
Dies würde mir beim Export in dxf + dwg weiterhelfen...

Danke für Euere Tipps.

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

---

Hallo ofencad,

Du kanns nach der ersten Ansicht des Blattes suchen und die Benennung des referenzierten Teiles auslesen. Blattname entsprechend setze.

ABER:
Das sieht danach aus, dass du in EINER idw MEHRERE Ipt darstellst.
Das bringt irgendwann große Probleme.
Jedes Teil hat seine eigene Zeichnung!

------------------
Gruß Roland

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

---

Danke für die prompte Antwort.

Mir ist es sehrwohl bekannt, dass diese Vorgehensweise nicht ganz "ohne" ist, jedoch erst eimal Vorgabe.

Nehmen wir einmal an, dass in einer Montagezeichnung u.a. gelaserte Blechteile (ggf. gekantet) montiert werden. So ist es bei uns durchaus üblich, dass dafür keine separate Zeichnung erstellt wird. Hier wird ein leeres Blatt angelegt, worauf die die Abwicklung des Bleches (ohne Maße) positioniert wird.

Da später beim DWG-Export erst einmal alle Blätter ausgegeben werden, möchte ich (neben der Bauteilnummer) die Benennung des Blattes hinten anhängen. Die weiteren Blätter (mit den Zuschnitten) sollen hierbei nicht weiter berücksichtigt werden. Wohl aber eine mögliche Stückliste, welche ggf. auf ein separates Blatt gebracht wurde.
Nur diese DWGŽs sind für mich brauchbar und auch nötig, da wir zusätzliche 2D-CAD-Systeme einsetzen...

Beim DXF-Export wiederum, brauche ich nur die möglichen Blätter mit den Zuschnitten. Hier wird ein anderer Algorithmus zur Namensfindung verwendet.

Daher wäre ich sehr froh über einen möglichen Lösungsansatz.
Danke

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

---

Hallo

Ein iProp "Benennung" gibt's nicht, ich hab mal "Bezeichnung" stattdessen genommen. So werden alle Blätter mit dem Inhalt des iProps der IDW umbenannt.

Code:

---

Option Explicit

Sub Rename_Sheetnames()

Dim oDrawDoc As DrawingDocument
Set oDrawDoc = ThisApplication.ActiveDocument

Dim oProp As Property
Set oProp = oDrawDoc.PropertySets.Item(3).Item(14)

Dim i As Integer

For i = 1 To oDrawDoc.Sheets.Count
        If Not oProp.Value = "" Then
            oDrawDoc.Sheets.Item(i).Name = oProp.Value
        End If
Next

End Sub

---

Oder soll das iProp aus dem jeweiligen Bauteil das auf dem Blatt dargestellt ist kommen? Dann in einfacher Form so:

Code:

---

Option Explicit

Sub Rename_Sheetnames()

Dim oDrawDoc As DrawingDocument
Set oDrawDoc = ThisApplication.ActiveDocument

Dim oRefedDoc As Document
Dim oProp As Property
Dim i As Integer

For i = 1 To oDrawDoc.Sheets.Count
        Set oRefedDoc = oDrawDoc.Sheets.Item(i).DrawingViews.Item(1).ReferencedDocumentDescriptor.ReferencedDocument
        Set oProp = oRefedDoc.PropertySets.Item(3).Item(14)
        If Not oProp.Value = "" Then
            oDrawDoc.Sheets.Item(i).Name = oProp.Value
        End If
Next

End Sub

---

------------------
MfG
Ralf

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

---

Vielen Dank!

Dein Beitrag gab mir die entsprechende Inspiration, um meine Macros entsprechend anzupassen.

Ich muss lediglich noch ein paar Fehler Abfangen, dann laufen die Macros richtig gut...

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