---

Hallo liebe Gemeinde,

wir benutzen als Syntax zum Speichern von Teilen (und BG's) "ArtikelNr" + " " + "Benennung" (ArtikelNr und Benennung sind Benutzerdefinierte Eigenschaften)

Die Eigenschaften auszulesen ist es mit gelungen, speichern unter funktioniert auch. Mein Problem (oder besser gesagt Wunsch wäre dass ich vorm speichern aktiv sagen kann in welches Verzeichnis ich es speichern möchte.

Hat jemand Tipp für mich? Bin was VB betrifft ein Greenhorn, also mein Programmierwisssen ist nicht so hoch.

Die erfahrene Programmiere bitte ich wohlwollend über folgende Zeilen betrachten (ist bestimmt ein Programmierhorror). Die ganzen Mesageboxen sind für mich nur als Kontrolle "dass ich mich richtige Richtung bewege"

Vielen Dank

Robert

Dim Benennung As String
Dim Dateiname As String
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Const CIArtikelnr = "LAT Nummer" 'Dateieigenschaft
Const CIBenennung = "Benennung" 'Dateieigenschaft

Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc

Dim pfad As String

pfad = InputBox("Bitte Speicherpfad angeben", "")

Artikelnr = Part.CustomInfo2("", CIArtikelnr)
MsgBox "ArtikelNr ist " + Artikelnr + " !"

Benennung = Part.CustomInfo2("", CIBenennung)
MsgBox "Benennung ist " + Benennung + " !"

Dateiname = Artikelnr + " " + Benennung
MsgBox "Dateiname ist " + Dateiname + " !"

' Save As
longstatus = Part.SaveAs3(pfad + Dateiname + ".SLDPRT", 0, 2)
MsgBox "Teil wurde als " + Artikelnr + " gespeichert!"
End Sub

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

---

SaveAs2.jpg

ich bin soweit dass er mir sogar das "Speichern unter" Fenster öffnet, leider dort das Teil immer noch als Teil4 führt. Ich kann dort das Verzeichnis wechseln und dann speichert er mir meine Datei tatsächlich mein Teil mit dem richtigen Namen...

Wie kann ich es umgehen dass er nicht im ersten Schritt als "Teil4" speichert sonder nur den Ordner sich auswählen lässt??

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

---

Hallo Robert,

habe keine Ahnung von Programmieren von Makros. aber schau doch mal hier:

EDIT: Das habe ich doch nicht gemeint. Dieses Makro, welches ich empfehlen kann heisst: "ExportConfigsAs"

http://solidworks.cad.de/cgi-bin/topdl/download.pl?file=mmtb_16.zip

Vielleicht kannst Du Deinen Baustein rauspflücken.

Dieses Makro ist gut gemacht!  

------------------
https://www.radiobob.de

[Diese Nachricht wurde von swx-cad-nutzer am 04. Jun. 2020 editiert.]

[Diese Nachricht wurde von swx-cad-nutzer am 04. Jun. 2020 editiert.]

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

---

Du kannst versuchen den Ordnerdialog von Windows zu verwenden.
Hier ist was dazu:

[URL=https://dbwiki.net/wiki/VBA_Tipp:_Ordnerauswahl-Dialog_1][/URL]

Vielleicht hilft das weiter.

------------------
Viele Grüße aus Brackenheim

Lars Pauly

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

---

Hallo Robert,
schau dir mal mein Makro Assembly-Safe-TIF an.

http://ww3.cad.de/foren/ubb/Forum2/HTML/023775.shtml

Darin habe ich eine Eingabezeile für den Speicherpfad eingebaut.
Der ist zum einen als vorgeschlagener Pfad der Baugruppe schon vorgegeben, kann aber umgeschrieben bzw. per Copy & Paste geändert werden.
Außerdem kannst du über den Button den Pfad per Explorer auswählen.

Diese Routinen wäre evtl. für dich eine schöne Vorlage.

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