---

Hallo,

ich möchte Konfigurationen als Parts abspeichern. Als Macro habe ich SaveConfigsAsParts gefunden. Das Ergebnis lautet:

"Dateiname-Konfigname. Ich brauche es verdreht. "Konfigname-Dateiname". Kann mir hier jemand bitte helfen?

Für die Lösung bin ich sehr dankbar.

Grüße

MIREMI

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

---

Hallo Miremi,
dazu musst du dein Macro umschreiben, damit dein gewünschtest Ergebnis rauskommt.

Grüße, Andi 

------------------
Hast du kein Problem?
Such dir eins. ( Und löse es )

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

---

@andi

schön das du programmieren kannst, der threaderöffner kanns wahrscheinlich nicht

denke mal darüber etwas nach

lg martin

------------------
Bin jetzt auch unter Skype erreichbar  , einfach nach Martin Doppler in Wien suchen.

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

---

Hallo MIREMI,
da ich mir nicht sicher bin welches Macro Du woher hast, könnte es sein das Dir folgende Zeile nicht hilft  :

' Namen zusammensetzen
        ModelSaveName = GetFullPathNoExtension(ModelPathName) & mySeparator & _
                        ConfigNames(i) & ModelPathExtension

tauschen gegen:
' Namen zusammensetzen
        ModelSaveName = ConfigNames(i) & mySeparator & _
                        GetFullPathNoExtension(ModelPathName) & ModelPathExtension

HTH & bis demnäx,
Ralf

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

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

---

Die Sache wäre etwas einfacher, wenn uns der Threadersteller mitgeteilt hätte, wo er das Makro gefunden hat.

Ich gehe mal von Stefan's Seite aus:

Anleitung:

Extras-Makro-Bearbeiten
Makro wählen
im Editor die Zeile:

ModelSaveName = GetFullPathNoExtension(ModelPathName) & mySeparator & _
                                            ConfigNames(i) & ModelPathExtension

ändern in:

ModelSaveName = ConfigNames(i) & mySeparator & _
                              GetFullPathNoExtension(ModelPathName) & ModelPathExtension

Editor verlassen.
Frage nach speichern bejahen.
Ausprobieren.

Viel Spaß.

Gruß, Torsten

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

---

Ich werde alt.
Fünf Minuten Rückstand!

...erstmal 'n Bier trinken...

... vordrängelndes Moderatorenpack  ...

Gruß, Torsten

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

---

Danke für den Hinweis, Hab die Änderungen durchgeführt, leider hat es nicht geklappt.
Das Macro ist vom Stefan Berlitz. "Konfigurationen einzeln speichern"

Viele Grüße

MIREMI

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

---

Hallo zusammen,

Zitat:

---

Original erstellt von MIREMI:
[...]Hab die Änderungen durchgeführt, leider hat es nicht geklappt.
Das Macro ist vom Stefan Berlitz. "Konfigurationen einzeln speichern"

---

Und woran erkennst du, dass es nicht geklappt hat, welche Fehlermeldungen kommen, was ist denn das jetztige Ergebniss und wie hast du die Änderung durchgeführt? Die Änderung von Ralf und Torsten oben sollten das gewünschte Ergebnis bringen, wenn dem nicht so ist, hast du irgendwas falsch gemacht.

Hilf uns dir zu helfen, in dem du möglichst viele Infos gibst - wir können weder deinen Code noch deinen Bildschirm sehen, und die Energie der Glaskugel wurde letzte Woche komplett von Katalin aufgebraucht ;)

Zitat:

---

Original erstellt von dopplerm:
schön das du programmieren kannst, der threaderöffner kanns wahrscheinlich nicht

---

Dann sollte er/sie anfangen das zu lernen oder zumindest den Willen zeigen, das selbst herauszufinden - für fertige Makros oder auch "ich kann nicht programmieren, kann mir das einer machen" gibt es Leute, die das als bezahlte Tätigkeit übernehmen können.

Obwohl ich sehr viele fertige und funktionsfähige Makros zur Verfügung stelle sehe ich die trotzdem hauptsächlich als Lernbeispiele und Ansätze, um seine eigenen Anpassung schreiben zu können. Wenn man nicht programmieren kann oder will oder keine Zeit dafür hat muss man ggf. eben einsehen, dass man die Dinger nicht benutzen kann. Es ist etwas anderes, ob ich jemandem einen Schritt nach dem anderen erkläre und er von einem Fehler in den anderen stolpert und dabei hoffentlich was lernt oder ob ich jemandem ein fertiges Makro mache, von dem er dann bei der nächsten Gelegenheit wieder nichts hat, weil dann noch ein "XYZ" mit in den Dateinamen rein muss oder so.

Von daher musste ich z.B. bei Andis Antwort eher grinsen, weil mir genau dasselbe auf den Lippen lag ... auch wenn es vielleicht gemeiner klingt als es sein soltle  

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite    http://solidworks.cad.de
Stefans SolidWorks Blog

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

---

 

Zitat:

---

Original erstellt von StefanBerlitz:
... Die Änderung von Ralf und Torsten oben sollten das gewünschte Ergebnis bringen, wenn dem nicht so ist, hast du irgendwas falsch gemacht...

---

Gleich 3x die gleiche Empfehlung - und das von der versammelten Makro-Elite.
Ich getraue mich ja kaum, zu widersprechen ...  

... aber, wenn ihr in

Code:

---

ModelSaveName = GetFullPathNoExtension(ModelPathName) & mySeparator & _
                                          ConfigNames(i) & ModelPathExtension

---

einfach GetFullPathNoExtension(ModelPathName) und ConfigNames(i) austauscht, wird das nichts ...
Ihr schreibt dann einfach den Konfigname vor den Dateinamen inkl. Laufwerk & Pfad - das wird so nichts!
Da muß dann schon noch Pfadname und Dateiname auseinandergenommen und wieder neu zusammengestzt werden.

Ansonsten stimme ich Stefan's Ausführungen bzgl. der Hilfe zur Selbsthilfe zu ...

------------------
mfg uc

[Diese Nachricht wurde von u.clemens am 26. Jul. 2010 editiert.]

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

---

Ich bleibe bei meiner Meinung, daß das gehen müßte.

Gruß, Torsten

(Aber ich war kurz verunsichert)

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

---

Zitat:

---

Original erstellt von Torsten Niemeier:
Ich bleibe bei meiner Meinung, daß das gehen müßte.

Gruß, Torsten

(Aber ich war kurz verunsichert)

---

Edit: Und jetzt bin ich so weit, daß ich Dir Recht gebe.
So wird das noch nichts.

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

---

Zitat:

---

Original erstellt von u.clemens:
Gleich 3x die gleiche Empfehlung - und das von der versammelten Makro-Elite.
Ich getraue mich ja kaum, zu widersprechen ...      

---

Argh, du hast vollkommen Recht.

Es müsste heißen:

Code:

---

    ModelSaveName = GetPathPart(ModelPathName) & ConfigNames(i) & mySeparator & _
                    Mid(ModelPathName, 1 + InStrRev(ModelPathName, "\")) & _
                    ModelPathExtension

---

mit der zusätzlichen Funktion

Code:

---

Function GetPathPart(strPath As String) As String
  '
  Dim intCounter As Integer

  ' Parse the string backwards
  For intCounter = Len(strPath) To 1 Step -1
    ' Short-circuit when we reach the slash
    If Mid$(strPath, intCounter, 1) = "\" Then
      Exit For
    End If
  Next intCounter

  ' Return the value
  GetPathPart = Left$(strPath, intCounter)

End Function

---

Danke für's Aufpassen  

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite    http://solidworks.cad.de
Stefans SolidWorks Blog

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

---

Hallo und vielen Dank!

Jetzt funst es.

Nochmals Danke

MIREMI

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