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