---

Split.JPG Zeichnungsplit.JPG

Hallo Zusammen
es geht um die Trennung des Zeichnungsnamens im Schriftfeld wir haben bis jetzt mit Inventor gearbeitet und seit einer Woche arbeiten wir mit Solidworks.
für Inventor haben wir ein Macro (siehe Bilder). Unsere Zeichnungsnamen sehen wie folgt aus "50012345.01.01.001_Handlauf 80 x 40 x 3.2x2500" nun soll der Name nach dem Unterstrich getrennt werden. Die Nummer unter Zeichnungsnummer und der eigentliche Name in die Benenung.
Leider hab ich so gut wie keine Ahnung von Macroprogrammierung. kann da vielleich jemand helfen.

------------------
Tschüß

user

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

---

Moin,

das hier passt "wie Faust aufs Auge": https://www.youtube.com/watch?v=DPCnhX0bjok

Genauso eine Aufgabenstellung wird in dem Video bearbeitet.
Der Faden dazu ist dieser hier: https://ww3.cad.de/foren/ubb/Forum2/HTML/032226.shtml

Zum Einsatz kommt hier unsere kostenfreie DPS JobBox, die du auf unserer Homepage herunterladen kannst.

------------------
Einen schönen Gruß von Heiko
• www.dps-software.de • www.dps-akademie.de • www.iknow-solidworks.de • www.youtube.de/dpssoftwaregmbh •

[Diese Nachricht wurde von Heiko Soehnholz am 28. Okt. 2022 editiert.]

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

---

Danke schonmal mit dem Tipp Jobbox. Aber leider kann ich nicht den Namem auf dem Schriftfeld nicht trennen oder ich habs einfach noch nicht gefunden

------------------
Tschüß

user

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

---

Zitat:

---

Original erstellt von user:
Danke schonmal mit dem Tipp Jobbox. Aber leider kann ich nicht den Namem auf dem Schriftfeld nicht trennen oder ich habs einfach noch nicht gefunden

---

Hallo user,

mit der Jobbox lässt sich das nicht ohne weitere Arbeit machen. Du musst Dir zunächst statt dem Dateinamen zwei Eigenschaftsnamen ausdenken (z.B. Name1, Name2).

Mit der Jobbox trennst Du jetzt den Dateinamen an der passenden Stelle und befüllst damit Name1 und Name2.

Jetzt musst Du noch Deine Zeichnungsvorlage bzw. das Blattformat anpassen und an der Stelle wo der ausgelesene Dateiname angezeigt wird die beiden Eigenschaften Name1 und Name2 platzieren. Das Blattformat sinnvollerweise separat abspeichern 

Jetzt kannst Du mit der Jobbox nochmal bei allen Zeichnungen das Blattformat tauschen...(und wenn das nicht geht, findet Heiko  bestimmt auch noch eine Lösung - hier im Forum gibts dazu auch noch Links zu Makros  )

HTH
Ralf

------------------

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

---

InStr ist die gesuchte Funktion:

Code:

---

Sub test()
    Dim zusammengestzterName As String
    zusammengestzterName = "465465_Super Wichtig"
    Dim UnderScorePos As Long
    UnderScorePos = InStr(zusammengestzterName, "_")
    Dim linkerString, rechterString As String
    linkerString = Left(zusammengestzterName, UnderScorePos - 1)
    rechterString = Right(zusammengestzterName, Len(zusammengestzterName) - UnderScorePos)
End Sub

---

Wenn der Unterstrich auch in der Nummer vokommt, bist Du besser mit Regex dran.

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

---

Hallo User
Ich hab dein Inventor-Makro einmal für SolidWorks umgeschrieben. (Und dazu noch ein paar Fehlerabfragen mit eingebaut.)

Code:

---

Dim swApp As SldWorks.ISldWorks
Dim swModelDoc As SldWorks.IModelDoc2
Dim swDrawDoc As SldWorks.IDrawingDoc
Dim cusPropMgr As SldWorks.ICustomPropertyManager

Public Sub SplitProperties()
   
    Set swApp = Application.SldWorks
    Set swModelDoc = swApp.ActiveDoc
   
    If (swModelDoc.GetType <> swDocDRAWING) Then
      swApp.SendMsgToUser ("Funtioniert nur bei Zeichnungen.")
    Else

        Set swDrawDoc = swModelDoc
       
        'Anzeigenamen hohlen
        Dim Hauptname As String
        Hauptname = swModelDoc.GetTitle
'        Debug.Print "Hauptname:        " & Hauptname
       
        Dim Zeichnungsnummer As String
        Dim Zeichnungsname As String
        Dim UnterstrichPos As Integer
        Dim BindestrichPos As Integer
       
        'Zeichnungsnummer extrhieren
        UnterstrichPos = VBA.InStr(1, Hauptname, "_")
        If UnterstrichPos = 0 Then
              swApp.SendMsgToUser ("Dateiname muss einen ""_"" enthalten")
              Exit Sub
        End If
        Zeichnungsnummer = VBA.Left(Hauptname, UnterstrichPos - 1)
       
        'Zeichnungsname extrhieren und falls vorhanden Blattname wegschneiden
        BindestrichPos = VBA.InStrRev(Hauptname, "-")
        If BindestrichPos = 0 Then
            BindestrichPos = VBA.Len(Hauptname) + 1
        End If
        Zeichnungsname = VBA.Mid(Hauptname, UnterstrichPos + 1, BindestrichPos - UnterstrichPos - 2)
       
'        Debug.Print "Zeichnungsnummer: " & Zeichnungsnummer
'        Debug.Print "Zeichnungsname:  " & Zeichnungsname
       
        'In benutzerdefinierte Eigenschaften eintagen (Felder: Zeichnungsnummer, Zeichnungsname)
        Set cusPropMgr = swDrawDoc.Extension.CustomPropertyManager("")
        cusPropMgr.Add3 "Zeichnungsnummer", swCustomInfoType_e.swCustomInfoText, Zeichnungsnummer, swCustomPropertyAddOption_e.swCustomPropertyDeleteAndAdd
        cusPropMgr.Add3 "Zeichnungsname", swCustomInfoType_e.swCustomInfoText, Zeichnungsname, swCustomPropertyAddOption_e.swCustomPropertyDeleteAndAdd
       
        'Neuaufbau
        swDrawDoc.ForceRebuild3 True
    End If
   
End Sub

---

Gruss Andreas

------------------
21 ist nur die halbe Antwort.

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

---

Zitat:

---

Original erstellt von user:
Aber leider kann ich nicht den Namem auf dem Schriftfeld nicht trennen oder ich habs einfach noch nicht gefunden

---

Ein paar Tipps zu den Eigenschaften: https://www.youtube.com/watch?v=KeBYEft0OOQ

Ein paar Tipps zum Thema Blattformate: https://www.youtube.com/watch?v=1cE3aMUU6NA

------------------
Einen schönen Gruß von Heiko
• www.dps-software.de • www.dps-akademie.de • www.iknow-solidworks.de • www.youtube.de/dpssoftwaregmbh •

[Diese Nachricht wurde von Heiko Soehnholz am 28. Okt. 2022 editiert.]

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

---

Screenshot2022-11-01074906.jpg Screenshot2022-11-01074602.jpg Screenshot2022-11-01074806.jpg

Ich weis, das hilft jetzt dem Fragenden nicht. Aber warum so ein Dateinamen, reicht da nicht einfach die Nummer und der Rest kommt in die Eigenschaften?
Punkte und Leerzeichen im Dateinamen sind auch von der ETV nicht gern gesehen, genau wie ä, ö, ü und derlei Sonderzeichen.

Die Bilder: Dateieigenschaften von SWX, wie komme rufe ich die auf und die Eingabemöglichkeit beim Arbeiten mit dem PDM beim z.B. Speichern in der Datenbank.

------------------
Wer nichts verändern will, wird auch das verlieren, was er bewahren möchte. (Gustav Heinemann)
www.vn-biker.de

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

---

split.PNG

Vielen Dank für die Hilfe. mit der Jobbox hab ich es jetzt hinbekommen und auch das Makro funktioniert.
jetzt weiß ich zumindest schonmal wo ich higreifen muss

------------------
Tschüß

user

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

---

Moin,
prima!

@Holger.S:
Deine Screenshots zeigen, dass ihr ein PDM System einsetzt. Da stellen sich all diese Fragen meist gar nicht.
Ich gehe davon aus, dass user kein PDM System im Einsatz hat...

------------------
Einen schönen Gruß von Heiko
• www.dps-software.de • www.dps-akademie.de • www.iknow-solidworks.de • www.youtube.de/dpssoftwaregmbh •

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

---

Screenshot2022-11-01095749.jpg

@Heiko Soehnholz

Auch ohne PDM kann man über die Dateieigenschaften alles abdecken, dazu gibt es ja auch den Reiter "Benutzerdefinierte Eigenschaften", war bei uns eigentlich auch erst ohne PDM geplant. Das macht hinterher den einstieg in ein PDM noch einfacher, da alle Informationen schon in der Datei enthalten sind. Auch die Stücklistenausgabe ,über Excel, kann dann zur Weiterverarbeitung alle Informationen beinhalten.

Das sollte nur ein Denkanstoß sein, um sich nicht fest zu fahren und eventuell doppelte Arbeit zu vermeiden. Wie immer, alles kann, nichts muss.

------------------
Wer nichts verändern will, wird auch das verlieren, was er bewahren möchte. (Gustav Heinemann)
www.vn-biker.de

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

---

Hallo Holger,
wo hast du denn das nette Eigenschaftfenster her. wer hat denn euch das programmiert?
Das gibt es nämlich nicht in SW oder?

------------------
Tschüß

user

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

---

richtig Heiko wir nutzen leider kein PDM, deshalb alles so umständlich

------------------
Tschüß

user

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

---

Screenshot2022-11-01120747.jpg Screenshot2022-11-01121121.jpg Screenshot2022-11-01121700.jpg

Zitat:

---

Original erstellt von user:
Hallo Holger,
wo hast du denn das nette Eigenschaftfenster her. wer hat denn euch das programmiert?
Das gibt es nämlich nicht in SW oder?

---

Das Eigenschaftsfenster habe ich selbst erstellt. Das Werkzeug dazu ist unter "Solidworks Werkzeuge 20XX zu finden" siehe Bild.
Dort kann man die Attribute recht komfortabel erstellen. Es ist auch möglich Listen usw. zu hinterlegen. Die Templates die entstehen kann man in der Register Taskansicht (Rechts)  einblenden lassen und ausfüllen.

Mit ein wenig Probieren fuchst man sich da durch.

------------------
Wer nichts verändern will, wird auch das verlieren, was er bewahren möchte. (Gustav Heinemann)
www.vn-biker.de

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

---

Zitat:

---

Original erstellt von user:
Hallo Holger,
wo hast du denn das nette Eigenschaftfenster her. wer hat denn euch das programmiert?
Das gibt es nämlich nicht in SW oder?

---

Also hast du dir noch nicht das von mir verlinkte Video zum Thema "Eigenschaften" angesehen. Schau da doch mal rein...

------------------
Einen schönen Gruß von Heiko
• www.dps-software.de • www.dps-akademie.de • www.iknow-solidworks.de • www.youtube.de/dpssoftwaregmbh •

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

---

Zitat:

---

Original erstellt von Heiko Soehnholz:
Also hast du dir noch nicht das von mir verlinkte Video zum Thema "Eigenschaften" angesehen...

---

Selber damit beschäftigen ist ja sowas von "Old School" ... oder so  Schönen Feierabend Heiko und lass dich nicht entmutigen !

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

---

Hallo Holger,
ich hab mich mittlerweile auch mit dem Video beschäftigt und bin dabei mir was zurecht zu basteln. bei deinem Bild hast du die Typen angelegt aber mit den Werten dafür komme ich nicht klar. Könntest du mir das mal noch erklären?

------------------
Tschüß

user

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

---

Welche Typen meinst du? Ich mache nur im Modell schonmal klar um was für ein Teil es sich handelt. Muss es gefertigt werden, ist es ein Norm oder Kaufteil.
Das ist für die Beschaffung relevant.

------------------
Wer nichts verändern will, wird auch das verlieren, was er bewahren möchte. (Gustav Heinemann)
www.vn-biker.de

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

---

Danke, das hab ich jetzt auch verstanden.
Ihr ward eine super Hilfe.

------------------
Tschüß

user

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