---

Hallo Inventorianer,
möchte in der Zeichnungsableitung im Schriftkopf
den Dateinamen: Dateinamen_XYZ123 im Schriftkopf
getrennt automatisch eintragen wie folgt:
Bezeichnung : Dateinamen
Zeichnungsnummer: XYZ123
Gibt es dafür irgend ein Macro ???
Bei SWX  gibt es so ein MACRO.

Gruß
Rolf

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

---

Hi

Probier mal den hier:

Code:

---

Option Explicit

Private Sub namesplit()

Dim oDrawDoc As DrawingDocument
Set oDrawDoc = ThisApplication.ActiveDocument

Dim oFilename As String
oFilename = oDrawDoc.FullDocumentName

Dim oArray() As String
oArray = Split(oFilename, "\")

oArray = Split(oArray(UBound(oArray)), "_")

Dim dn As String
dn = oArray(LBound(oArray))

Dim zn As String
oArray = Split(oArray(UBound(oArray)), ".")
zn = oArray(LBound(oArray))

Dim oPropset As PropertySet
Set oPropset = oDrawDoc.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}") 'user defined props

On Error Resume Next
If oPropset.Item("Dateiname").Name <> "Dateiname" Then
    Call oPropset.Add(dn, "Dateiname")
Else
    If oPropset.Item("Dateiname").Value <> dn Then
        oPropset.Item("Dateiname").Value = dn
    End If
End If

If oPropset.Item("Zeichnungsnr").Name <> "Zeichnungsnr" Then
    Call oPropset.Add(zn, "Zeichnungsnr")
Else
    If oPropset.Item("Zeichnungsnr").Value <> zn Then
        oPropset.Item("Zeichnungsnr").Value = zn
    End If
End If

End Sub

---

Ich gehe davon aus, das "Dateiname" selbst keinen "_" enthält. Sonst klappt es so nicht. Die beiden benutzerdefinierten iProps kannst du in dein Schriftfeld einfügen.

------------------
MfG
RK

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

---

Hallo rkauskh,

:::::::::::Ich gehe davon aus, das "Dateiname" selbst keinen "_" enthält. Sonst klappt es so nicht. Die beiden benutzerdefinierten iProps kannst du in dein Schriftfeld einfügen.:::::::::::::::::

Doch der Dateiname ist durch Unterstrich getrennt.

Z.B.:

1-046-011346_Brücke Absaugung

Das 1-046-011346 soll im Zeichnungskopf bei Zeichnungsnummer erscheinen
das  Brücke Absaugung  soll bei Benennung erscheinen.

Gruß

Rolf

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

---

Hallo

Dann sollte es funktionieren. Ich meinte es darf nicht so aussehen --> "1_046_011346_Brücke Absaugung". Dann würde das hier rauskommen --> "1".
Das Makro trennt der Ursprungsstring (kompletter Dateiname mit Pfad) an jedem "\" und arbeitet mit dem letzten Schnipsel (Dateiname+Endung) weiter. Den Dateinamen trennt es dann beim ersten "_" den es findet. Der vordere Teile wird "Dateiname". Der Rest wird anschließend nach einem "." durchsucht und dort nochmal getrennt, damit die Dateiendung verschwindet.
Wie gesagt, probier mal ob das ausreicht. Ansonsten müßte man die Schnippelei mit regulären Ausdrücken präziser definieren.

------------------
MfG
RK

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

---

Hallo

Hat es funktioniert oder war es so schlecht, das du dein Vorhaben verworfen hast und wieder von Hand ausfüllst?

------------------
MfG
RK

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